login
A001476
Numbers that are not the sum of distinct positive cubes.
10
2, 3, 4, 5, 6, 7, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 29, 30, 31, 32, 33, 34, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 66, 67, 68, 69, 70, 71, 74, 75, 76, 77, 78, 79, 80
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.
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