OFFSET
0,3
REFERENCES
Michael Trott, The Mathematica Guide Book for Programming, Springer, 2004, page 218.
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]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Michael Trott (mtrott(AT)wolfram.com) and Robert G. Wilson v, May 12 2005; extended Jun 06 2005
STATUS
approved