|
Search: id:A084077
|
|
|
| A084077 |
|
Length of list created by n substitutions k -> Range[ -Abs[k+1], Abs[k-1]] starting with {1}. |
|
+0
1
|
|
| 1, 3, 11, 41, 159, 633, 2575, 10657, 44735, 190017, 815231, 3527681, 15378687, 67478401, 297777407, 1320753665, 5884652543, 26326301697, 118211192831, 532574203905, 2406726828031, 10906541371393
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
FORMULA
|
invOGF satisfies n+(-1-3 n) a[n]+(-2 n-2 n^2) a[n]^2-2 n^2 a[n]^3 = 0
|
|
EXAMPLE
|
{1}, {-2,-1,0}, {-1,0,1,2,3,0,1,2,-1,0,1}
|
|
MATHEMATICA
|
Length/@Flatten/@NestList[ # /. k_Integer:>Range[ -Abs[k+1], Abs[k-1]]&, {1}, 8]
|
|
CROSSREFS
|
Sequence in context: A113437 A076540 A129637 this_sequence A027103 A018962 A102417
Adjacent sequences: A084074 A084075 A084076 this_sequence A084078 A084079 A084080
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Wouter Meeussen (wouter.meeussen(AT)pandora.be), May 11 2003
|
|
|
Search completed in 0.002 seconds
|
