OFFSET
1,1
COMMENTS
8=4+4, 13=9+4, 20=16+4, 24=16+4+4, 29=25+4,...
MATHEMATICA
f1[n_]:=(x=n; While[x>3, x-=Floor[Sqrt[x]]^2]; x); f2[n_]:=(x=n; k=0; While[x>3, k++; x-=Floor[Sqrt[x]]^2]; k); lst={}; Do[If[f1[n]==0&&f2[n]>1, AppendTo[lst, n]], {n, 6!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 12 2010
STATUS
approved