OFFSET
1,3
EXAMPLE
a(4)=7 since 7 can be expressed in 4 ways, 7= T(3)+T(1)+0^2 = T(3)+T(0)+1^2 = T(2)+T(0)+2^2 = T(2)+T(2)+1^2 and none of the numbers from 0 to 6 can be expressed in 4 ways.
MAPLE
a := [seq(0, n=0..100)] ;
for k from 0 do
a330861 := A330861(k) ;
if a330861 <= nops(a) then
if op(a330861, a) = 0 then
a := subsop(a330861=k, a) ;
print(a) ;
end if;
end if;
if not member(0, [op(2..nops(a), a)]) then
break;
end if;
end do: # R. J. Mathar, Apr 28 2020
MATHEMATICA
V=Table[0, {i, 2500}]; T[n]:=n(n+1)/2; Do[a=T[i]+T[j]+k^2; If[a<2500, V[[a+1]]++ ], {i, 0, 71}, {j, 0, i}, {k, 0, 50}]; Table[Position[V, z][[1, 1]]-1, {z, 60}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Resta, Jan 19 2006
STATUS
approved