OFFSET
1,1
COMMENTS
The b-file contains all the members of the sequence. See link. - Robert Israel, Dec 29 2019
LINKS
Robert Israel, Table of n, a(n) for n = 1..112
Robert Israel, Proof that the b-file is full
MAPLE
N:= 100000: # to test all n <= N
ft:= t -> t*(t+1)*(t+2)/6:
tets:= map(ft, [$1..floor((6*N)^(1/3))]):
f:= proc(n, tmax) option remember;
local res, s;
if member(n, tets) and n < tmax then return false fi;
for s in tets while s < min(n, tmax) do
if not procname(n-s, s) then return false fi
od;
true
end proc:
select(f, [$1..N], infinity); # Robert Israel, Dec 29 2019
MATHEMATICA
M = 1000; (* to test all n <= M *)
ft[t_] := t*(t+1)*(t+2)/6;
tets = Map[ft, Range[Floor[(6*M)^(1/3)]]];
f[n_, tMax_] := f[n, tMax] = Module[{res, s}, If[MemberQ[tets, n] && n < tMax, Return[False]]; For[i = 1, s = tets[[i]]; i <= Length[tets] && s < Min[n, tMax], i++, If[!f[n-s, s], Return[False]]]; True];
Select[Range[M], f[#, Infinity]&] (* Jean-François Alcover, Sep 15 2022, after Robert Israel *)
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
Jud McCranie, Feb 26 2005
STATUS
approved