|
Search: id: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, 47, 49, 50, 51, 52, 54, 61, 66, 73, 76, 84, 85, 92, 97, 99, 101, 110, 113, 121, 122
(list; graph; listen)
|
|
|
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 this_sequence A124868 A165209 A072227
Adjacent sequences: A106798 A106799 A106800 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
