OFFSET
1,1
COMMENTS
9-6=3, 16-10=6, 16-14=2, 16-15=1, 25-21=4,...
MATHEMATICA
f1[n_]:=Floor[Sqrt[n]]; f2[n_]:=Last/@FactorInteger[n]=={1, 1}; lst={}; Do[If[f2[n], AppendTo[lst, (f1[n]+1)^2-n]], {n, 0, 6!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 06 2010
STATUS
approved