A022561 Numbers that are not the sum of 3 nonnegative cubes.

4, 5, 6, 7, 11, 12, 13, 14, 15, 18, 19, 20, 21, 22, 23, 25, 26, 30, 31, 32, 33, 34, 37, 38, 39, 40, 41, 42, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 56, 57, 58, 59, 60, 61, 63, 67, 68, 69, 70, 71, 74, 75, 76, 77, 78, 79, 82, 83, 84, 85, 86, 87, 88, 89

Offset

1,1

Links

T. D. Noe, Table of n, a(n) for n=1..10000

Index entries for sequences related to sums of cubes

Mathematica

lst1=Range[1359]; lst3=Take[Union[Flatten[Table[a^3+b^3+c^3, {a, 0, 16}, {b, 0, 16}, {c, 0, 16}]]], 234] Complement[lst1, lst3] (* Vladimir Joseph Stephan Orlovsky, Feb 16 2010 *)
Select[Range[90], PowersRepresentations[#, 3, 3] == {} &] (* Bruno Berselli, Nov 09 2012, after Giovanni Resta in A022555 *)

Crossrefs

Complement of A004825.

Sequence in context: A139448 A356398 A364803 * A213524 A047312 A191164

Adjacent sequences: A022558 A022559 A022560 * A022562 A022563 A022564

Keyword

nonn

Author

N. J. A. Sloane

Status

approved