A101852 Numbers which are the sum of two positive cubes and divisible by 11.
341, 407, 539, 737, 1001, 2662, 2728, 2926, 3256, 3718, 4312, 5038, 5896, 6886, 8008, 9009, 9207, 9262, 9603, 10197, 10989, 11979, 13167, 14553, 16137, 17919, 19899, 21296, 21428, 21824, 22077, 22484, 23408, 24453, 24596, 26048, 27027, 27764
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A003325.
Programs
-
Mathematica
upto[n_] := Block[{t}, Union@ Reap[ Do[If[Mod[t = x^3 + y^3, 11] == 0, Sow@t], {x, n^(1/3)}, {y, Min[x, (n - x^3)^(1/3)]}]][[2, 1]]]; upto[28000] (* Giovanni Resta, Jun 12 2020 *)