A173529 a(n) = 1 + A053830(n-1), where A053830 is the sum of the digits of its argument in base 9.
1, 2, 3, 4, 5, 6, 7, 8, 9, 2, 3, 4, 5, 6, 7, 8, 9, 10, 3, 4, 5, 6, 7, 8, 9, 10, 11, 4, 5, 6, 7, 8, 9, 10, 11, 12, 5, 6, 7, 8, 9, 10, 11, 12, 13, 6, 7, 8, 9, 10, 11, 12, 13, 14, 7, 8, 9, 10, 11, 12, 13, 14, 15, 8, 9, 10, 11, 12, 13, 14, 15, 16, 9, 10, 11, 12, 13, 14, 15, 16, 17, 2, 3, 4, 5, 6, 7, 8, 9, 10, 3, 4, 5, 6, 7, 8, 9, 10, 11, 4
Offset: 1
Programs
-
Mathematica
Table[1 + Plus@@IntegerDigits[n - 1, 9], {n, 90}] (* Vincenzo Librandi, Jul 01 2019 *)
Formula
a(n) = A053830(9^k + n - 1) where k >= ceiling(log_9(n/8)). - R. J. Mathar, Dec 09 2010
Comments