A286836 Even numbers that are the sum of two odd prime cubes.
54, 152, 250, 370, 468, 686, 1358, 1456, 1674, 2224, 2322, 2540, 2662, 3528, 4394, 4940, 5038, 5256, 6244, 6886, 6984, 7110, 7202, 8190, 9056, 9826, 11772, 12194, 12292, 12510, 13498, 13718, 14364, 17080, 19026, 24334, 24416, 24514, 24732, 25720, 26586, 29302
Offset: 1
Programs
-
Mathematica
Do[If[Prime[i]^3 + Prime[j]^3 == 2n, Print[2n]], {n, 15000}, {i, 2, n^(1/3)}, {j, i, (2n - i^3)^(1/3)}]
Comments