login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A106801 Records by number in A037183, by indices in A065531. 1
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; text; internal format)
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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 7 14:00 EST 2021. Contains 341886 sequences. (Running on oeis4.)