OFFSET
1,1
COMMENTS
Except for 5, all terms == 29 (mod 30). - Robert Israel, May 28 2018
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
select(t -> andmap(isprime, [t, 2*t+1, 3*t+2, 4*t+3, 5*t+4]),
[5, seq(i, i=29..2*10^6, 30)]); # Robert Israel, May 28 2018
MATHEMATICA
a={}; Do[p=Prime[n]; If[PrimeQ[p*2+1]&&PrimeQ[p*3+2]&&PrimeQ[p*4+3]&&PrimeQ[p*5+4], AppendTo[a, p]], {n, 1, 10^5}]; Print[a]; (* Vladimir Joseph Stephan Orlovsky, Apr 29 2008 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Feb 20 2002
EXTENSIONS
More terms from Sascha Kurz, Mar 23 2002
STATUS
approved