A160172 T-toothpick sequence (see Comments lines for definition).
0, 1, 4, 9, 18, 27, 36, 49, 74, 95, 104, 117, 142, 167, 192, 229, 302, 359, 368, 381, 406, 431, 456, 493, 566, 627, 652, 689, 762, 835, 908, 1017, 1234, 1399, 1408, 1421, 1446, 1471, 1496, 1533, 1606, 1667, 1692, 1729, 1802, 1875, 1948, 2057, 2274, 2443, 2468
Offset: 0
Links
- David Applegate, The movie version
- 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
Crossrefs
Programs
-
Mathematica
wt[n_] := DigitCount[n, 2, 1]; A151920[n_] := Sum[3^wt[i], {i, 1, n + 1}]/3; a[n_] := 2*A151920[n - 2] + 2*A151920[n - 3] + n; Table[a[n], {n, 0, 50}] (* Jean-François Alcover, Apr 21 2024, after Charlie Neder *)
Formula
Extensions
Edited and extended by N. J. A. Sloane, Jan 01 2010
Comments