A043272 Sum of the digits of the n-th base 13 palindrome.
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 8, 9, 10, 11, 12, 13, 14, 15
Offset: 1
Crossrefs
A029958 (base 13 palindromes)
Programs
-
Mathematica
Total[IntegerDigits[#,13]]&/@Select[Range[0,1000],IntegerDigits[#,13] == Reverse[ IntegerDigits[ #,13]]&] (* Harvey P. Dale, May 08 2020 *)