

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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

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


LINKS

R. E. Dressler and T. Parker, 12,758, Math. Comp. 28 (1974), 313314.


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(nm^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



STATUS

approved



