|
|
A153005
|
|
Primes in toothpick sequence A153003.
|
|
0
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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: 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
|
|
MATHEMATICA
|
a139250 = Cases[Import["https://oeis.org/A139250/b139250.txt", "Table"], {_, _}][[All, 2]];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|