OFFSET
1,1
LINKS
T. D. Noe, Table of n, a(n) for n = 1..1000
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]]]]]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
T. D. Noe, Jul 18 2012
STATUS
approved