OFFSET
1,3
COMMENTS
MATHEMATICA
f[n_]:=Floor[Sqrt[n]]; lst={}; Do[p=Prime[n]; AppendTo[lst, Abs[((f[p]+1)^2-p)-(p-f[p]^2)]], {n, 3*5!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 06 2010
STATUS
approved