|
| |
|
|
A084077
|
|
Length of list created by n substitutions k -> Range[ -Abs[k+1], Abs[k-1]] starting with {1}.
|
|
0
| |
|
|
1, 3, 11, 41, 159, 633, 2575, 10657, 44735, 190017, 815231, 3527681, 15378687, 67478401, 297777407, 1320753665, 5884652543, 26326301697, 118211192831, 532574203905, 2406726828031, 10906541371393
(list; graph; refs; listen; history; internal format)
|
|
|
|
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: A196472 A176085 A129637 * A027103 A151086 A151087
Adjacent sequences: A084074 A084075 A084076 * A084078 A084079 A084080
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Wouter Meeussen (wouter.meeussen(AT)pandora.be), May 11 2003
|
| |
|
|
