OFFSET
1,2
COMMENTS
Complement of A292740.
LINKS
EXAMPLE
881 is in the sequence because 881 = 27 + 125 + 729 = 3^3 + 5^3 + 9^3.
MAPLE
N:= 10000: # to get all terms <= N
M:= floor(N^(1/3)):
G:= mul(1+x^(j^3), j=1..M, 2):
S:= series(G, x, N+1):
select(t -> coeff(S, x, t)>0, [$1..N]); # Robert Israel, Jul 26 2017
MATHEMATICA
max = 2212; f[x_] := Product[1 + x^(2 k + 1)^3, {k, 0, 8}]; Exponent[#, x] & /@ List @@ Normal[Series[f[x], {x, 0, max}]] // Rest
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Jul 25 2017
STATUS
approved