OFFSET
1,1
COMMENTS
LINKS
EXAMPLE
54 is the smallest number having three partitions into nonzero squares: 54 = 1+4+49 = 4+25+25 = 9+9+36.
MATHEMATICA
lim=200; 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, Sqrt[lim^2-a^2]}, {c, b, Sqrt[lim^2-a^2-b^2]}]; u=Union[nLst]; kMax=First[Complement[1+Range[u[[ -1]]], u]]-1; Table[First[Flatten[Position[nLst, k]]], {k, kMax}] (T. D. Noe)
PROG
(Haskell)
import Data.List (elemIndex); import Data.Maybe (fromJust)
a025414 = fromJust . (`elemIndex` a025427_list)
-- Reinhard Zumkeller, Feb 26 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved