This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A106801 #8 Jun 10 2013 02:09:47
%S A106801 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,
%T A106801 47,49,50,51,52,54,61,66,73,76,84,85,92,97,99,101,110,113,121,122
%N A106801 Records by number in A037183, by indices in A065531.
%D A106801 Michael Trott, The Mathematica Guide Book for Programming, Springer, 2004, page 218.
%t A106801 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]]
%Y A106801 Cf. A037183, A065531, A107129.
%K A106801 nonn
%O A106801 0,3
%A A106801 Michael Trott (mtrott(AT)wolfram.com) and _Robert G. Wilson v_, May 12 2005; extended Jun 06 2005