A214427 The base for which A214423(n) is palindromic.
10, 5, 3, 6, 10, 3, 4, 4, 9, 7, 4, 6, 6, 4, 5, 4, 6, 10, 7, 6, 8, 3, 4, 9, 6, 5, 7, 10, 3, 9, 7, 5, 6, 10, 8, 5, 6, 8, 8, 10, 3, 8, 6, 9, 6, 5, 4, 5, 7, 10, 9, 8, 9, 8, 6, 2, 5, 7, 10, 8, 2, 6, 6, 10, 2, 4, 7, 3, 6, 10, 7, 8, 7, 5, 6, 9, 7, 10, 3, 7, 2, 10, 3
Offset: 1
Links
- T. D. Noe, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
n = -1; t = {}; While[Length[t] < 100, n++; u = Table[s = IntegerDigits[n, m]; s == Reverse[s], {m, 2, 10}]; u2 = Position[u, True]; If[Length[u2] == 1, AppendTo[t, 1 + u2[[1,1]]]]]