Powers n such that the sum of the digits in 9^n sets a record.
0, 1, 3, 5, 7, 12, 13, 14, 17, 23, 24, 25, 31, 36, 37, 41, 45, 49, 51, 56, 59, 61, 72, 73, 77, 82, 83, 92, 97, 100, 103, 110, 115, 117, 123, 129, 140, 141, 144, 163, 169, 172, 177, 180, 187, 188, 205, 219, 224, 230, 231, 236, 237, 239, 254, 257, 258, 266, 269
1
The number 9^n is computed in base 10.
T. D. Noe, Plot of 1000 terms
T. D. Noe, Table of 1000 terms
(Mma) nn = 60; mx = -1; t = {}; n = 0; While[Length[t] < nn, s = Total[IntegerDigits[9^n]]; If[s > mx, mx = s; AppendTo[t, n]]; n++]; t
Cf. A065999 (sum of digits of 9^n), S000875-S000881.
nonn,base
T. D. Noe, May 11 2016