[go: up one dir, main page]

login
A339992
Sums of two distinct odd cubes.
1
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
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
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Dec 25 2020
STATUS
approved