|
|
A025401
|
|
Numbers that are the sum of 3 distinct positive cubes in exactly 3 ways.
|
|
3
|
|
|
5104, 9729, 12104, 12384, 14175, 17604, 17928, 20691, 21412, 21888, 24480, 28792, 29457, 30528, 31221, 32850, 34497, 36288, 38259, 39339, 39376, 40060, 40097, 40832, 40851, 41033, 41040, 41364, 42056, 43408, 45144, 46593, 46684, 46747, 46808, 47683
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Reap[For[n = 1, n <= 50000, n++, pr = Select[ PowersRepresentations[n, 3, 3], Times @@ # != 0 && Length[#] == Length[Union[#]] &]; If[pr != {} && Length[pr] == 3, Print[n, pr]; Sow[n]]]][[2, 1]] (* Jean-François Alcover, Jul 31 2013 *)
|
|
CROSSREFS
|
Cf. A025397 (not necessarily distinct)
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|