A050812 Number of times n is palindromic in bases b, 2 <= b <= 10.

9, 9, 8, 8, 7, 7, 5, 5, 4, 3, 3, 1, 1, 1, 1, 2, 2, 2, 2, 0, 2, 3, 1, 1, 2, 1, 2, 2, 2, 1, 1, 2, 1, 2, 1, 1, 2, 1, 1, 0, 3, 1, 1, 1, 1, 2, 2, 0, 1, 1, 2, 2, 2, 0, 1, 3, 1, 2, 0, 1, 1, 1, 1, 3, 1, 3, 1, 2, 1, 0, 1, 1, 1, 2, 1, 0, 0, 1, 2, 0, 3, 1, 2, 1, 0, 3

Offset

0,1

Links

T. D. Noe, Table of n, a(n) for n = 0..10000

Patrick De Geest, Palindromic numbers beyond base 10

Example

a(121) = 4 since 121_10, 171_8, 232_7 and 11111_3 are palindromes.

Mathematica

Table[Count[Table[IntegerDigits[n, b], {b, 2, 10}], _?(#==Reverse[#]&)], {n, 0, 90}] (* Harvey P. Dale, Aug 18 2012 *)

Prog

(Python)
from sympy.ntheory.digits import digits
def ispal(n, b):
    digs = digits(n, b)[1:]
    return digs == digs[::-1]
def a(n): return sum(ispal(n, b) for b in range(2, 11))
print([a(n) for n in range(87)]) # Michael S. Branicky, Sep 09 2021
(PARI) a(n) = sum(b=2, 10, my(d=digits(n, b)); d == Vecrev(d)); \\ Michel Marcus, Sep 09 2021

Crossrefs

Cf. A050813, A016038, A002113.

Sequence in context: A304029 A019896 A175570 * A139345 A231470 A109942

Adjacent sequences: A050809 A050810 A050811 * A050813 A050814 A050815

Keyword

nonn,base

Author

Patrick De Geest, Oct 15 1999

Status

approved