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
LINKS
Pierre CAMI, PFGW Script
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
KEYWORD
nonn
AUTHOR
Pierre CAMI, Feb 26 2017
STATUS
approved