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,3

References

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

Links

Table of n, a(n) for n=0..45.

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

Cf. A037183, A065531, A107129.

Sequence in context: A062895 A085869 A068892 * A242417 A225657 A175772

Adjacent sequences: A106798 A106799 A106800 * A106802 A106803 A106804

Keyword

nonn

Author

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

Status

approved