editing

approved

10 is a palindrome in basebases 3, 4 and 9: 101(3), 22(4) and 11(9). So a(3)=10.

approved

editing

editing

approved

3 = 11 in base 2.

5 = 101 in base 2 and 11 in base 4.

approved

editing

editing

approved

Giovanni Resta and Robert G. Wilson v, <a href="/A037183/b037183.txt">Table of n, a(n) for n = 1..342</a> (first 100 terms from Giovanni Resta).)

approved

editing

reviewed

approved

proposed

reviewed

editing

proposed

f[n_] := Module[{idn, s = Floor@ Sqrt[n + 1] - 1}, lng = Table[ If[ Reverse[ idn = IntegerDigits[n, b]] == idn, {b}, Sequence @@ {}], {b, 2, s + 1}]; If[ IntegerQ@ Sqrt[n + 1], -1, 0] + Length@ lng + Count[ Mod[n, Range@ s], 0]]; f[n_] := 0 /; n < 3; t = Table[0, {700}]; k = 3; While[k < 1100000001, a = f[k]; If[ t[[a]] == 0, t[[a]] = k; Print[{a, k}]]; k <++]; Take[t, 310] (* _Robert G. Wilson v_, Nov 02 2014 *)

1100000001, a = f[k]; If[ t[[a]] == 0, t[[a]] = k; Print[{a, k}]]; k++]; Take[t, 310] (* Robert G. Wilson v, Nov 02 2014 *)

proposed

editing