|
%I #10 Feb 24 2021 02:48:18
%S 1,3,6,9,12,21,24,27,30,45,66,69,84,105,156,192,195,222,273,366,504,
%T 528,531,558,717,912,1236,1536,1539,1572,1581,1797,2346,3060,4008,
%U 4464,4467,4500,4725,5940,7752,10128,12480,12483,12516,12522,12741,12825,13959
%N Records in A153004.
%H David Applegate, Omar E. Pol and N. J. A. Sloane, <a href="/A000695/a000695_1.pdf">The Toothpick Sequence and Other Sequences from Cellular Automata</a>, 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.]
%H N. J. A. Sloane, <a href="/wiki/Catalog_of_Toothpick_and_CA_Sequences_in_OEIS">Catalog of Toothpick and Cellular Automata Sequences in the OEIS</a>
%p 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
%Y Cf. A139251, A152768, A152973, A152978, A152979, A152998, A153000, A153003, A153004. Toothpick sequence: A139250.
%K nonn
%O 1,2
%A _Omar E. Pol_, Jan 02 2009
%E More terms from _R. J. Mathar_, Jul 13 2009
|
