OFFSET
1,2
COMMENTS
LINKS
Paul T. Bateman, Adolf J. Hildebrand and George B. Purdy, Sums of distinct squares, Acta Arith. 67 (1994), 349-380.
H. D. Nguyen and D. Taggart, Mining the OEIS: Ten Experimental Conjectures, 2013. [Mentions this sequence.]
Index entries for linear recurrences with constant coefficients, signature (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4).
MATHEMATICA
data1=Reduce[w^2+x^2+y^2+z^2==# && 0<w<x<y<z<#, {w, x, y, z}, Integers]&/@Range[1000]; data2=If[Head[ # ]===And, 1, Length[ # ]] &/@data1; DeleteCases[Table[If[data2[[k]]>0, 0, k], {k, 1, Length[data2]}], 0] (* Ant King, Aug 13 2010 *)
CROSSREFS
KEYWORD
nonn,easy,changed
AUTHOR
STATUS
approved