login
A176209
Sums of at least 2 squares s', for s >= 4.
0
8, 13, 20, 24, 29, 33, 34, 40, 44, 45, 53, 57, 58, 62, 68, 72, 73, 77, 80, 85, 89, 90, 94, 97, 104, 108, 109, 113, 116, 120, 125, 129, 130, 134, 137, 141, 148, 152, 153, 157, 160, 164, 168, 173, 177, 178, 182, 185, 189, 193, 194, 200, 204, 205, 209, 212, 216, 220
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
Sequence in context: A070131 A030782 A219721 * A227453 A266212 A063849
KEYWORD
nonn
AUTHOR
STATUS
approved