



0, 1, 2, 4, 5, 7, 10, 13, 14, 16, 19, 22, 25, 30, 36, 40, 41, 43, 46, 49, 52, 57, 63, 67, 70, 75, 81, 87, 95, 106, 116, 121, 122, 124, 127, 130, 133, 138, 144, 148, 151, 156, 162, 168, 176, 187, 197, 202, 205, 210, 216, 222, 230, 241, 251, 258, 266, 277, 289, 303, 322, 343, 358
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,3


COMMENTS

Can be considered toothpick sequence for N=1.
Based on a consistent set of rules for generating toothpick sequences.
Cf. A139250 where (1, 1, 3, 1, 3, 5, 7, ...) is convolved with (1, 2, 2, 2, ...) and A162958 where A162956 is convolved with (1, 3, 3, 3, ...); the present sequence can be considered toothpick N=1 since A118977 is convolved with (1, 1, 1, ...).
Arranged in array fashion, the first three toothpick sequences would be:
N=1: A163267: (1, 2, 4, 5, 7, 10, 13, 14, ...)
N=2: A139250: (1, 3, 7, 11, 15, 23, 35, 43, ...)
N=3: A162958: (1, 4, 10, 19, 25, 40, 67, 94, ...)
...
Is there an illustration of this sequence using toothpicks?  Omar E. Pol, Dec 13 2016


LINKS

G. C. Greubel, Table of n, a(n) for n = 0..1000
David Applegate, Omar E. Pol and N. J. A. Sloane, The Toothpick Sequence and Other Sequences from Cellular Automata
N. J. A. Sloane, Catalog of Toothpick and Cellular Automata Sequences in the OEIS


MATHEMATICA

a[0] = 0; a[1] = 1; a[n_] := a[n] = (j = n  2^Floor[Log[2, n]]; a[j] + a[j + 1]); Table[Sum[a[n], {n, 0, k}], {k, 0, 20}] (* G. C. Greubel, Dec 12 2016 *)


CROSSREFS

Cf. A118977, A139250, A162958.
Sequence in context: A007997 A123120 A194462 * A036559 A083022 A279022
Adjacent sequences: A163264 A163265 A163266 * A163268 A163269 A163270


KEYWORD

nonn


AUTHOR

Gary W. Adamson, Jul 24 2009


EXTENSIONS

Edited and extended by N. J. A. Sloane, Jan 07 2010


STATUS

approved



