OFFSET
1,3
MATHEMATICA
sp[n_]:=Module[{np=NextPrime[n]}, While[!IntegerQ[Sqrt[np-n]], np = NextPrime[ np]]; Sqrt[np-n]]; sp/@(Range[80]!!) (* Harvey P. Dale, Aug 04 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Nov 02 2002
STATUS
approved