|
Search: id:A084078
|
|
|
| A084078 |
|
Length of list created by n substitutions k -> Range[ -Abs[k+1],Abs[k-1],2] starting with {0}. |
|
+0
1
|
|
| 1, 2, 4, 10, 24, 66, 172, 498, 1360, 4066, 11444, 34970, 100520, 312066, 911068, 2862562, 8457504, 26824386, 80006116, 255680170, 768464312, 2471150402, 7474561164, 24161357010, 73473471344, 238552980386, 728745517972
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
FORMULA
|
see Mma line.
|
|
EXAMPLE
|
{0}, {-1,1}, {0,2,-2,0}, {-1,1,-3,-1,1,-1,1,3,-1,1}
|
|
MATHEMATICA
|
2 Rest@CoefficientList[InverseSeries[Series[(-1-6n-8n^2+(1+2n)^2 Sqrt[1+4n])/(2(n+4n^2+4n^3)), {n, 0, 28}]], n] from a(2) onwards, or Length/@Flatten/@NestList[ # /. k_Integer:>Range[ -Abs[k+1], Abs[k-1]]&, {1}, 8]
|
|
CROSSREFS
|
a(2n-1)=A027307, a(n)=2*A084075.
Adjacent sequences: A084075 A084076 A084077 this_sequence A084079 A084080 A084081
Sequence in context: A121704 A049144 A049131 this_sequence A137842 A049146 A000682
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Wouter Meeussen (wouter.meeussen(AT)pandora.be), May 11 2003
|
|
|
Search completed in 0.002 seconds
|
