A162796 Number of toothpicks in the toothpick structure A139250 that are orthogonal to the initial toothpick after n even rounds.
0, 2, 6, 14, 22, 30, 42, 70, 86, 94, 106, 134, 154, 182, 222, 310, 342, 350, 362, 390, 410, 438, 478, 566, 602, 630, 670, 758, 814, 906, 1046, 1302, 1366, 1374, 1386, 1414, 1434, 1462, 1502, 1590, 1626, 1654, 1694, 1782, 1838, 1930, 2070, 2326, 2394, 2422, 2462
Offset: 0
Keywords
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
Programs
-
Maple
a139251 := BFILETOLIST("b139251.txt") ; A162794 := proc(n) global a139251; op(2*n,a139251) ; end: A162796 := proc(n) add( A162794(k),k=1..n) ; end: seq(A162796(n),n=1..120) ; # R. J. Mathar, Sep 27 2009 -
Mathematica
terms = 100; Cases[Import["https://oeis.org/A139251/b139251.txt", "Table"], {, }][[;; 2terms;; 2, 2]] // Accumulate (* Jean-François Alcover, Mar 24 2020 *)
Extensions
Extended by R. J. Mathar, Sep 27 2009
Comments