OFFSET
1,1
COMMENTS
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..10000
EXAMPLE
Both 7 and 7 + 2*3*5 = 37 are prime.
MATHEMATICA
lst={}; Do[p=Prime[n]; If[PrimeQ[p+30], AppendTo[lst, p]], {n, 6!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jan 04 2009 *)
Select[Prime[Range[100]], PrimeQ[#+30]&] (* Harvey P. Dale, Apr 28 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved