A339994 Sums of two distinct nonzero even cubes.

72, 224, 280, 520, 576, 728, 1008, 1064, 1216, 1512, 1736, 1792, 1944, 2240, 2728, 2752, 2808, 2960, 3256, 3744, 4104, 4160, 4312, 4472, 4608, 5096, 5824, 5840, 5896, 6048, 6344, 6832, 6840, 7560, 8008, 8064, 8216, 8512, 8576, 9000, 9728, 9928, 10656, 10712, 10744

Offset

1,1

Links

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

Formula

a(n) = 8 * A024670(n). - Rémy Sigrist, Jun 06 2021

Example

224 is in the sequence since 2^3 + 6^3 = 8 + 216 = 224, where 8 and 216 are even cubes such 0 < 8 < 216.

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 - 1)/2]}] > 0, n, {}], {n, 1200}] // Flatten

Crossrefs

Cf. A000578, A010057, A024670, A339990.

Sequence in context: A344179 A050498 A077535 * A064716 A073412 A250749

Adjacent sequences: A339991 A339992 A339993 * A339995 A339996 A339997

Keyword

nonn

Author

Wesley Ivan Hurt, Dec 25 2020

Status

approved