A153838 Records in A153004.

1, 3, 6, 9, 12, 21, 24, 27, 30, 45, 66, 69, 84, 105, 156, 192, 195, 222, 273, 366, 504, 528, 531, 558, 717, 912, 1236, 1536, 1539, 1572, 1581, 1797, 2346, 3060, 4008, 4464, 4467, 4500, 4725, 5940, 7752, 10128, 12480, 12483, 12516, 12522, 12741, 12825, 13959

Offset: 1

Author

Omar E. Pol, Jan 02 2009

Keywords

• nonn

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

Crossrefs

Cf. A139251, A152768, A152973, A152978, A152979, A152998, A153000, A153003, A153004. Toothpick sequence: A139250.

Programs

Maple

read("transforms3") : a139250 := BFILETOLIST("b139250.txt") : A139250 := proc(n) global a139250; op(n+1,a139250) ; end: A153003 := proc(n) if n =0 then 0; else 1+3/4*(A139250(n+1)-3) ; fi; end: A153004 := proc(n) A153003(n)-A153003(n-1) ; end: rec := -1 ; for n from 1 to 3000 do t := A153004(n) ; if t > rec then printf("%d,",t) ; rec := t; fi; od: # R. J. Mathar, Jul 13 2009

Extensions

More terms from R. J. Mathar, Jul 13 2009