OFFSET
0,2
COMMENTS
Equivalent to replacements 0 -> {0,1}; 1 -> {0,1,2}; 2 -> {0,1,2,3}; 3 -> {0} operating n times with {0}.
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (3,-1,0,1).
FORMULA
G.f.: (1-x+x^3)/(1-3*x+x^2-x^4).
EXAMPLE
{0}, {0,1}, {0,1,0,1,2}, {0,1,0,1,2,0,1,0,1,2,0,1,2,3} have lengths 1, 2, 5, 14.
MATHEMATICA
Length/@Flatten/@NestList[ # /. k_Integer:>Range[0, Mod[k+1, 4]]&, {0}, 8]
LinearRecurrence[{3, -1, 0, 1}, {1, 2, 5, 14}, 41] (* G. C. Greubel, Oct 15 2022 *)
PROG
(Magma) I:=[1, 2, 5, 14]; [n le 4 select I[n] else 3*Self(n-1) -Self(n-2) +Self(n-4): n in [1..41]]; // G. C. Greubel, Oct 15 2022
(SageMath)
def A084085_list(prec):
P.<x> = PowerSeriesRing(ZZ, prec)
return P( (1-x+x^3)/(1-3*x+x^2-x^4) ).list()
A084085_list(40) # G. C. Greubel, Oct 15 2022
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Wouter Meeussen, May 11 2003
STATUS
approved