|
Search: id:A084083
|
|
|
| A084083 |
|
Length of lists created by n substitutions k -> Range[k+1,-Abs[k],-2] starting with {1}. |
|
+0
1
|
|
| 1, 2, 4, 9, 19, 44, 96, 227, 507, 1218, 2768, 6732, 15504, 38076, 88616, 219351, 514855
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
EXAMPLE
|
{1}, {2,0}, {3,1,-1,1}, {4,2,0,-2,2,0,0,2,0} have lengths 1, 2, 4, 9.
|
|
MATHEMATICA
|
Length/@Flatten/@NestList[ # /. k_Integer:>Range[k+1, -Abs[k], -2]&, {1}, 16]
|
|
CROSSREFS
|
Sequence in context: A101463 A026776 A117160 this_sequence A036611 A036612 A036613
Adjacent sequences: A084080 A084081 A084082 this_sequence A084084 A084085 A084086
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Wouter Meeussen (wouter.meeussen(AT)pandora.be), May 11 2003
|
|
|
Search completed in 0.002 seconds
|
