OFFSET
0,3
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..1000
FORMULA
{k: A101428(k) > 0} .- R. J. Mathar, Apr 28 2020
MAPLE
isA014133 := proc(n)
local c, t ;
for c from 0 do
t := c*(c+1)/2 ;
if t > n then
return false;
end if;
if issqr(n-t) then
return true;
end if;
end do:
end proc:
for n from 0 to 100 do
if isA014133(n) then
printf("%d, ", n) ;
end if;
end do: # R. J. Mathar, Oct 11 2014
MATHEMATICA
With[{nn=20}, Select[Union[Flatten[Outer[Plus, Range[0, nn]^2, Accumulate[ Range[ 0, nn]]]]], #<=(nn(nn+1))/2&]] (* Harvey P. Dale, Dec 29 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved