OFFSET
1,3
LINKS
Robert Israel, Table of n, a(n) for n = 1..201
EXAMPLE
MAPLE
istri:= proc(n) issqr(1+8*n) end proc:
tri:= n -> n*(n+1)/2:
F:= proc(n, s) option remember; local v;
if s = 0 then return 1 fi;
if s > n*(n+1)*(n+2)/6 then return 0 fi;
v:= tri(n);
if s >= v then procname(n-1, s-v) + procname(n-1, s)
else procname(n-1, s)
fi;
end proc:
f:= proc(n) local i, t, m;
t:= 0;
m:= n*(n+1)*(n+2)/6;
for i from 1 while tri(i) <= m do
t:= t + F(n, tri(i)) - F(n-1, tri(i))
od;
t
end proc:
map(f, [$1..50]); # Robert Israel, Jan 13 2025
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Dec 12 2024
STATUS
approved