A106801 Records by number in A037183, by indices in A065531.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 13, 16, 17, 18, 20, 21, 25, 26, 30, 32, 35, 36, 38, 40, 43, 47, 49, 50, 51, 52, 54, 61, 66, 73, 76, 84, 85, 92, 97, 99, 101, 110, 113, 121, 122

Offset: 0

Author

Michael Trott (mtrott(AT)wolfram.com) and Robert G. Wilson v, May 12 2005; extended Jun 06 2005

Keywords

• nonn

References

• Michael Trott, The Mathematica Guide Book for Programming, Springer, 2004, page 218.

Crossrefs

Cf. A037183, A065531, A107129.

Programs

Mathematica

palindromicBases[n_] := Module[{p}, Table[p = IntegerDigits[n, b]; If[ p == Reverse[p], {b, p}, Sequence @@ {}], {b, 2, n - 1}]]; lst = {0, 0}; Do[ If[ Length[ palindromicBases[n]] > lst[[ -1, 1]], AppendTo[lst, {c, n}]], {n, 200000}]; First[ Transpose[ lst]]