OFFSET
1,1
MATHEMATICA
f[n_]:=(n-1)/2; lst={}; Do[p=Prime[n]; If[PrimeQ[a=f[p]], If[PrimeQ[b=f[a]], If[PrimeQ[c=f[b]], If[PrimeQ[d=f[c]], If[PrimeQ[e=f[d]], AppendTo[lst, p]]]]]], {n, 11!}]; lst (* Vladimir Joseph Stephan Orlovsky, Mar 10 2010 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladeta Jovovic, Dec 15 2001
EXTENSIONS
More terms from Don Reble, Dec 17 2001
STATUS
approved