|
|
A003362
|
|
Numbers that are the sum of 6 positive 6th powers.
|
|
32
|
|
|
6, 69, 132, 195, 258, 321, 384, 734, 797, 860, 923, 986, 1049, 1462, 1525, 1588, 1651, 1714, 2190, 2253, 2316, 2379, 2918, 2981, 3044, 3646, 3709, 4101, 4164, 4227, 4290, 4353, 4374, 4416, 4829, 4892, 4955, 5018, 5081, 5557, 5620, 5683, 5746, 6285, 6348, 6411, 7013
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
This sequence has no sixth powers less than 1.5133*10^35. - J. Lowell, Jul 03 2021
|
|
LINKS
|
|
|
EXAMPLE
|
448832 is in the sequence as 448832 = 2^6 + 6^6 + 6^6 + 6^6 + 6^6 + 8^6.
1000733 is in the sequence as 1000733 = 1^6 + 1^6 + 1^6 + 1^6 + 3^6 + 10^6.
1819677 is in the sequence as 1819677 = 1^6 + 1^6 + 3^6 + 3^6 + 6^6 + 11^6. (End)
|
|
MATHEMATICA
|
Reap[For[n = 1, n <= 10000, n++, If[AnyTrue[PowersRepresentations[n, 6, 6], First[#] > 0&], Print[n]; Sow[n]]]][[2, 1]] (* Jean-François Alcover, Jul 18 2017 *)
With[{nn=5}, Select[Total/@Tuples[Range[nn]^6, 6]//Union, #<=nn^6-5&]] (* Harvey P. Dale, Mar 27 2022 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|