OFFSET
1,1
COMMENTS
Primes p such that 3*p+10, 9*p+40 and 27*p+130 are also primes. - Vincenzo Librandi, Aug 04 2010
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Prime[Range[1200]], AllTrue[Rest[NestList[3#+10&, #, 3]], PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Mar 22 2015 *)
PROG
(Magma) [n: n in [1..150000] | IsPrime(n) and IsPrime(3*n+10) and IsPrime(9*n+40) and IsPrime(27*n+130)] // Vincenzo Librandi, Aug 04 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved