login
A282989
Primes p such that q = 2*p^3-1, r = 2*q^3-1 and s = 2*r^3-1 are also prime.
2
208291, 958333, 2239723, 5203453, 5437951, 6677623, 6954421, 9232843, 13078531, 13142011, 15345763, 17670481, 20282551, 21415321, 23547283, 23694883, 25262623, 25550113, 26642491, 27425521, 29851993, 30327421
OFFSET
1,1
COMMENTS
Primes p such that A283020(i) > 2, where i is the index of p in A000040. - Felix Fröhlich, Feb 26 2017
MATHEMATICA
Select[Prime@ Range[10^6], Times @@ Boole@ PrimeQ@ NestList[2 #^3 - 1 &, #, 3] > 0 &] (* Michael De Vlieger, Feb 26 2017 *)
PROG
(PARI) is(n) = my(q=2*n^3-1, r=2*q^3-1, s=2*r^3-1); ispseudoprime(n) && ispseudoprime(q) && ispseudoprime(r) && ispseudoprime(s) \\ Felix Fröhlich, Feb 26 2017
CROSSREFS
Sequence in context: A072679 A147705 A237971 * A233663 A232136 A183602
KEYWORD
nonn
AUTHOR
Pierre CAMI, Feb 26 2017
STATUS
approved