login
A101852
Numbers which are the sum of two positive cubes and divisible by 11.
7
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,1
LINKS
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 *)
CROSSREFS
Cf. A003325.
Sequence in context: A271874 A025335 A025327 * A020188 A025353 A025345
KEYWORD
nonn,easy
AUTHOR
Jun Mizuki (suzuki32(AT)sanken.osaka-u.ac.jp), Jan 27 2005
STATUS
approved