A153009 -id:A153009 - cp's OEIS frontend

A152999 Primes in toothpick sequence A152998.

3, 5, 7, 11, 17, 23, 47, 61, 97, 103, 151, 173, 191, 211, 241, 347, 353, 359, 367, 397, 467, 541, 599, 607, 659, 733, 1109, 1237, 1367, 1439, 1453, 1471, 1663, 2029, 2357, 2399, 2671, 2797, 3373, 3607, 3719, 3911, 4241, 5479, 5501, 5527, 5701, 5741, 5779, 5923

Offset: 1

Omar E. Pol, Dec 23 2008

nonn

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

Cf. A139250, A139251, A139253, A152768, A152968, A152978, A152998, A153000, A153002, A153006, A153009.

More terms from Jinyuan Wang, Mar 15 2020

A153005 Primes in toothpick sequence A153003.

Original entry on oeis.org

7, 31, 127, 211, 487, 571, 643, 811, 1033, 1249, 1663, 1999, 2131, 2179, 2281, 2347, 2467, 3391, 4801, 5059, 6361, 7759, 8191, 8209, 8713, 8779, 8929, 9187, 9343, 9679, 9931, 10687, 13903, 14947, 19009, 19267, 19423, 25057, 26731, 28879, 33289, 35521

Offset: 1

Omar E. Pol, Jan 02 2009

nonn

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

Cf. A139250, A139253, A152998, A152999, A153000, A153002, A153003, A153006, A153009.

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: for n from 0 to 400 do p := A153003(n) ; if isprime(p) then printf("%d,",p) ; fi; od: # R. J. Mathar, Jul 13 2009

a139250 = Cases[Import["https://oeis.org/A139250/b139250.txt", "Table"], {, }][[All, 2]];
A139250[n_] := a139250[[n + 1]];
A153003[n_] := If[n == 0, 0, 1 + 3/4*(A139250[n + 1] - 3)];
Reap[Do[p = A153003[n]; If[PrimeQ[p], Sow[p]], {n, 0, 400}]][[2, 1]] (* Jean-François Alcover, Apr 05 2020 *)

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

cp's OEIS Frontend

A152999 Primes in toothpick sequence A152998.

Views

Author

Keywords

Links

Crossrefs

Extensions