cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A096021 Greatest number, not divisible by 4, having exactly n partitions into three distinct positive squares.

This page as a plain text file.
%I A096021 #3 Mar 30 2012 17:22:33
%S A096021 1507,4323,5947,10707,19723,30067,34483,47107,58843,77683,111763,
%T A096021 106723,126043,166147,164803,222643,217627,232243,289963,319243,
%U A096021 300787,319867,462883,393187,546067,532123,502483,615883,662803,606643
%N A096021 Greatest number, not divisible by 4, having exactly n partitions into three distinct positive squares.
%C A096021 These are conjectured values. The Mathematica program checks numbers up to 10^6.
%t A096021 lim=1000; nLst=Table[0, {lim^2}]; Do[n=a^2+b^2+c^2; If[n>0 && n<lim^2, nLst[[n]]++ ], {a, lim}, {b, a+1, Sqrt[lim^2-a^2]}, {c, b+1, Sqrt[lim^2-a^2-b^2]}]; Table[Last[Select[Flatten[Position[nLst, k]], Mod[ #, 4]>0&]], {k, 30}]
%Y A096021 Cf. A025415 (least sum of 3 distinct nonzero squares in exactly n ways).
%K A096021 nonn
%O A096021 1,1
%A A096021 _T. D. Noe_, Jun 15 2004