OFFSET
1,1
COMMENTS
17=3+13+1, 23=5+17+1, 43=13+29+1, 73=29+43+1, 79=31+47+1, 101=41+59+1,...
MATHEMATICA
lst={}; Do[p1=Prime[n]; p5=Prime[n+4]; p=p1+p5+1; If[PrimeQ[p], AppendTo[lst, p]], {n, 6!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 03 2009
STATUS
approved