OFFSET
2,1
LINKS
David Applegate, Omar E. Pol and N. J. A. Sloane, The Toothpick Sequence and Other Sequences from Cellular Automata, Congressus Numerantium, Vol. 206 (2010), 157-191. [There is a typo in Theorem 6: (13) should read u(n) = 4.3^(wt(n-1)-1) for n >= 2.]
N. J. A. Sloane, Catalog of Toothpick and Cellular Automata Sequences in the OEIS
MATHEMATICA
f[n_] := f[n] = Sum[Binomial[1, n - k] Mod[ Binomial[k, j], 2], {k, 0, n}, {j, 0, k}]; g[n_] := Sum[f@k, {k, 0, n}]; Array[g, 77]/2
CROSSREFS
KEYWORD
nonn
AUTHOR
Omar E. Pol, May 29 2010
EXTENSIONS
I changed the title (its index), the offset, extended the sequence and added the Mathematica coding Robert G. Wilson v, Jun 28 2010
STATUS
approved