(MAGMAMagma) I:=[0, 0, 1, 2]; [n le 4 select I[n] else 2*Self(n-1) + 2*Self(n-2) -3*Self(n-3) -2*Self(n-4): n in [1..40]]; // G. C. Greubel, Mar 06 2019
(MAGMAMagma) I:=[0, 0, 1, 2]; [n le 4 select I[n] else 2*Self(n-1) + 2*Self(n-2) -3*Self(n-3) -2*Self(n-4): n in [1..40]]; // G. C. Greubel, Mar 06 2019
proposed
approved
editing
proposed
with(combstruct):
TSU := [T, { T = Sequence(S, card > 1), S = Sequence(U, card > 0), U = Sequence(Z, card > 1)}, unlabeled]:
seq(count(TSU, size = j+2), j=0..32); # Peter Luschny, Jan 04 2020
approved
editing
proposed
approved
editing
proposed
a(2) = 0 + 2*0 + 1 = 1
a(3) = 1 + 2*0 + 1 = 2
a(4) = 2 + 2*1 + 2 = 6
a(5) = 6 + 2*2 + 3 = 13
a(6) = 13 + 2*6 + 5 = 30
a(7) = 30 + 2*13 + 8 = 64
a(8) = 64 + 2*30 + 13 = 137
reviewed
editing
proposed
reviewed
editing
proposed