login
A084082
Length of lists created by n substitutions k -> Range[ -Floor[Abs[k]/2],Floor[Abs[k]+3/2]] starting with {0}.
0
1, 2, 5, 15, 49, 169, 604, 2212, 8244, 31128, 118716, 456337, 1765251
OFFSET
0,2
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
KEYWORD
nonn
AUTHOR
Wouter Meeussen, May 11 2003
STATUS
approved