|
%I #8 Jun 13 2020 00:51:27
%S 341,407,539,737,1001,2662,2728,2926,3256,3718,4312,5038,5896,6886,
%T 8008,9009,9207,9262,9603,10197,10989,11979,13167,14553,16137,17919,
%U 19899,21296,21428,21824,22077,22484,23408,24453,24596,26048,27027,27764
%N Numbers which are the sum of two positive cubes and divisible by 11.
%H Vincenzo Librandi, <a href="/A101852/b101852.txt">Table of n, a(n) for n = 1..1000</a>
%t 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 *)
%Y Cf. A003325.
%K nonn,easy
%O 1,1
%A Jun Mizuki (suzuki32(AT)sanken.osaka-u.ac.jp), Jan 27 2005
|
