OFFSET
1,1
COMMENTS
5-+2->primes, 37-+6->primes,..
MATHEMATICA
f1[n_]:=n-Floor[Sqrt[n]]; f2[n_]:=n+Floor[Sqrt[n]]; lst={}; Do[p=Prime[n]; If[PrimeQ[f1[p]]&&PrimeQ[f2[p]], AppendTo[lst, p]], {n, 8!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Feb 25 2010
STATUS
approved