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