OFFSET
1,1
COMMENTS
Complement of A003997.
There are 85 terms below 100, 793 terms below 1000, but only 2765 terms below 10^4, and only 23 more up to the largest term a(2788)=12758. - M. F. Hasler, Feb 25 2012
Indices k such that A279329(k) = 0. - Vaclav Kotesovec, Sep 22 2017
LINKS
T. D. Noe, Table of n, a(n) for n = 1..2788 (complete sequence)
R. E. Dressler and T. Parker, 12,758, Math. Comp. 28 (1974), 313-314.
R. Sprague, Über Zerlegungen in n-te Potenzen mit lauter verschiedenen Grundzahlen, Math. Z. 51, (1948). 466-468.
Eric Weisstein's World of Mathematics, Cubic Number
MATHEMATICA
Cubes[ n_ ] := Block[ {A, i}, A = {0}; if[ n>0, Do[ A = Union[ A, A + i*i*i ], {i, n} ]; ]; Return[ A ]; ]; Q = Complement[ Table[ i, {i, 1, 12760} ], Cubes[ 23 ] ]
PROG
(PARI) select( is_A001476(n, m=n)={m^3>n&&m=sqrtnint(n, 3); n!=m^3&&!while(m>1, is_A001476(n-m^3, m--)||return)}, [1..77]) \\ M. F. Hasler, Apr 21 2020
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
Jeff Adams (jeff.adams(AT)byu.net)
EXTENSIONS
Definition clarified by Jeppe Stig Nielsen, Jan 27 2015
STATUS
approved