A084082 Length of lists created by n substitutions k -> Range[ -Floor[Abs[k]/2],Floor[Abs[k]+3/2]] starting with {0}.

1, 2, 5, 15, 49, 169, 604, 2212, 8244, 31128, 118716, 456337, 1765251

Offset

0,2

Links

Table of n, a(n) for n=0..12.

Example

{0}, {0,1}, {0,1,0,1,2}, {0,1,0,1,2,0,1,0,1,2,-1,0,1,2,3}

Mathematica

{Length/@Flatten/@NestList[ # /. k:(_Integer|_Rational):>Range[ -Floor[Abs[k]/2], Floor[Abs[k]+3/2]]&, {0}, 11]}

Crossrefs

Sequence in context: A148365 A001892 A176025 * A190270 A364588 A341342

Adjacent sequences: A084079 A084080 A084081 * A084083 A084084 A084085

Keyword

nonn

Author

Wouter Meeussen, May 11 2003

Status

approved