|
|
A003363
|
|
Numbers that are the sum of 7 positive 6th powers.
|
|
31
|
|
|
7, 70, 133, 196, 259, 322, 385, 448, 735, 798, 861, 924, 987, 1050, 1113, 1463, 1526, 1589, 1652, 1715, 1778, 2191, 2254, 2317, 2380, 2443, 2919, 2982, 3045, 3108, 3647, 3710, 3773, 4102, 4165, 4228, 4291, 4354, 4375, 4417, 4438, 4480, 4830, 4893, 4956, 5019, 5082
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
267342 is in the sequence as 267342 = 1^6 + 2^6 + 3^6 + 5^6 + 5^6 + 7^6 + 7^6.
594482 is in the sequence as 594482 = 1^6 + 4^6 + 4^6 + 4^6 + 4^6 + 6^6 + 9^6.
696667 is in the sequence as 696667 = 2^6 + 2^6 + 2^6 + 3^6 + 6^6 + 7^6 + 9^6. (End)
|
|
MATHEMATICA
|
Reap[For[n = 1, n <= 5000, n++, If[AnyTrue[PowersRepresentations[n, 7, 6], First[#] > 0&], Print[n]; Sow[n]]]][[2, 1]] (* Jean-François Alcover, Jul 18 2017 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|