OFFSET
1,1
COMMENTS
Primes p such that 6*p+5, 36*p+35, 216*p+215 and 1296*p+1295 are also primes. - Vincenzo Librandi, Aug 04 2010
LINKS
John Cerkan, Table of n, a(n) for n = 1..10000
MATHEMATICA
if4Q[n_]:=AllTrue[Rest[NestList[6#+5&, n, 4]], PrimeQ]; Select[Prime[ Range[ 5000]], if4Q] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, May 10 2018 *)
PROG
(Magma) [n: n in [1..1000000] | IsPrime(n) and IsPrime(6*n+5) and IsPrime(36*n+35) and IsPrime(216*n+215) and IsPrime(1296*n+1295)] // Vincenzo Librandi, Aug 04 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved