OFFSET
1,2
LINKS
Andrew Granville and Yiliang Zhu, Representing binomial coefficients as sums of squares, Amer. Math. Monthly, Vol. 97, No. 6 (1990), 486-493.
MATHEMATICA
NoRepAs3Sqrs[n_] := Module[{e2}, e2=IntegerExponent[n, 2]; If[EvenQ[e2], 7==Mod[n/2^e2, 8], False]]; Select[Range[200], {}==Flatten[Position[Table[NoRepAs3Sqrs[Binomial[ #, m]], {m, #}], True]]&]
CROSSREFS
KEYWORD
fini,full,nonn
AUTHOR
T. D. Noe, Oct 18 2004
STATUS
approved