login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A029955 Palindromic in base 9. 23

%I

%S 0,1,2,3,4,5,6,7,8,10,20,30,40,50,60,70,80,82,91,100,109,118,127,136,

%T 145,154,164,173,182,191,200,209,218,227,236,246,255,264,273,282,291,

%U 300,309,318,328,337,346,355,364,373,382,391,400,410,419,428,437

%N Palindromic in base 9.

%H T. D. Noe, <a href="/A029955/b029955.txt">Table of n, a(n) for n = 1..10000</a>

%H P. De Geest, <a href="http://www.worldofnumbers.com/nobase10.htm">Palindromic numbers beyond base 10</a>

%t f[n_,b_] := Module[{i=IntegerDigits[n,b]}, i==Reverse[i]]; lst={}; Do[If[f[n,9], AppendTo[lst,n]], {n,1000}]; lst (* _Vladimir Joseph Stephan Orlovsky_, Jul 08 2009 *)

%o (Python)

%o from gmpy2 import digits

%o def palQgen(l,b): # generator of palindromes in base b of length <= 2*l

%o ....if l > 0:

%o ........yield 0

%o ........for x in range(1,l+1):

%o ............for y in range(b**(x-1),b**x):

%o ................s = digits(y,b)

%o ................yield int(s+s[-2::-1],b)

%o ............for y in range(b**(x-1),b**x):

%o ................s = digits(y,b)

%o ................yield int(s+s[::-1],b)

%o A029955_list = list(palQgen(4,9)) # _Chai Wah Wu_, Dec 01 2014

%Y Palindromes in bases 2 through 10: A006995, A014190, A014192, A029952, A029953, A029954, A029803, A029955, A002113.

%K nonn,base

%O 1,3

%A _Patrick De Geest_

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 November 22 10:59 EST 2019. Contains 329389 sequences. (Running on oeis4.)