|
| |
| |
|
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
REFERENCES
| Michael Troot, 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
| Cf. A037183, A065531, A107129.
Sequence in context: A062895 A085869 A068892 * A175772 A124868 A165209
Adjacent sequences: A106798 A106799 A106800 * A106802 A106803 A106804
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Michael Trott (mtrott(AT)wolfram.com) and Robert G. Wilson v (rgwv(AT)rgwv.com), May 12 2005; extended Jun 06 2005
|
| |
|
|
