A224485 Numbers which are the sum of two positive cubes and divisible by 5.
35, 65, 250, 280, 370, 520, 730, 855, 945, 1125, 1395, 1755, 2000, 2060, 2205, 2240, 2540, 2745, 2960, 3500, 3925, 4075, 4160, 4375, 4825, 4940, 5425, 5840, 6175, 6750, 6840, 6860, 7075, 7110, 7560, 8125, 8190, 9000, 9325, 9990
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Crossrefs
Programs
-
Mathematica
upto[n_] := Block[{t}, Union@ Reap[ Do[If[Mod[t = x^3 + y^3, 5] == 0, Sow@t], {x, n^(1/3)}, {y, Min[x, (n - x^3)^(1/3)]}]][[2, 1]]]; upto[10000] (* Giovanni Resta, Jun 12 2020 *)
Comments