A339992 Sums of two distinct odd cubes.

28, 126, 152, 344, 370, 468, 730, 756, 854, 1072, 1332, 1358, 1456, 1674, 2060, 2198, 2224, 2322, 2540, 2926, 3376, 3402, 3500, 3528, 3718, 4104, 4706, 4914, 4940, 5038, 5256, 5572, 5642, 6244, 6860, 6886, 6984, 7110, 7202, 7588, 8190, 8288, 9056, 9262, 9288, 9386

Offset

1,1

Links

Table of n, a(n) for n=1..46.

Example

126 is in the sequence since 1^3 + 5^3 = 1 + 125 = 126, where 1 and 125 are two distinct odd cubes.

Mathematica

Table[If[Sum[Mod[i, 2] Mod[n - i, 2] (Floor[i^(1/3)] - Floor[(i - 1)^(1/3)]) (Floor[(n - i)^(1/3)] - Floor[(n - i - 1)^(1/3)]), {i, Floor[(n - 1)/2]}] > 0, n, {}], {n, 1200}] // Flatten

Crossrefs

Cf. A000578, A010057, A339990.

Sequence in context: A101095 A232403 A219851 * A320885 A045823 A327750

Adjacent sequences: A339989 A339990 A339991 * A339993 A339994 A339995

Keyword

nonn

Author

Wesley Ivan Hurt, Dec 25 2020

Status

approved