OFFSET
1,1
LINKS
David A. Corneth, Table of n, a(n) for n = 1..10000
EXAMPLE
From David A. Corneth, Aug 02 2020: (Start)
3233088249 is in the sequence as 3233088249 = 4^10 + 4^10 + 5^10 + 8^10 + 8^10 + 8^10.
5125476725 is in the sequence as 5125476725 = 1^10 + 1^10 + 7^10 + 7^10 + 8^10 + 9^10.
12440773098 is in the sequence as 12440773098 = 4^10 + 5^10 + 7^10 + 8^10 + 8^10 + 10^10. (End)
MATHEMATICA
k = 6; p = 10; amax = 2*10^6; bmax = amax^(1/p) // Ceiling; Clear[b]; b[0] = 1; Select[Table[Total[Array[b, k]^p], {b[1], b[0], bmax}, Evaluate[ Sequence @@ Table[{b[j], b[j-1], bmax}, {j, 1, k}]]] // Flatten // Union, # <= amax&] (* Jean-François Alcover, Jul 19 2017 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
STATUS
approved