A339993 Sums of two positive even cubes.

16, 72, 128, 224, 280, 432, 520, 576, 728, 1008, 1024, 1064, 1216, 1512, 1736, 1792, 1944, 2000, 2240, 2728, 2752, 2808, 2960, 3256, 3456, 3744, 4104, 4160, 4312, 4472, 4608, 5096, 5488, 5824, 5840, 5896, 6048, 6344, 6832, 6840, 7560, 8008, 8064, 8192, 8216, 8512, 8576

Offset

1,1

Links

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

Formula

a(n) = 8*A003325(n). - Robert Israel, Dec 30 2020

Example

72 is in the sequence since 2^3 + 4^3 = 8 + 64 = 72, where 8 and 64 are even and 0 < 8 <= 64.

Mathematica

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

Crossrefs

Cf. A000578, A003325, A010057, A339990.

Sequence in context: A232579 A212862 A253151 * A232402 A212513 A279905

Adjacent sequences: A339990 A339991 A339992 * A339994 A339995 A339996

Keyword

nonn

Author

Wesley Ivan Hurt, Dec 25 2020

Status

approved