OFFSET
1,1
LINKS
David A. Corneth, Table of n, a(n) for n = 1..10000 (first 1000 terms from T. D. Noe)
EXAMPLE
From David A. Corneth, Aug 03 2020: (Start)
251633402 is in the sequence as 251633402 = 1^10 + 2^10 + 2^10 + 2^10 + 5^10 + 6^10 + 6^10 + 6^10 + 6^10.
383052503 is in the sequence as 383052503 = 1^10 + 1^10 + 4^10 + 5^10 + 5^10 + 5^10 + 5^10 + 6^10 + 7^10.
626642399 is in the sequence as 626642399 = 1^10 + 1^10 + 3^10 + 3^10 + 3^10 + 4^10 + 6^10 + 7^10 + 7^10. (End)
MATHEMATICA
k = 9; p = 10; amax = 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