OFFSET
0,11
COMMENTS
Every integer n is a palindrome when expressed in unary, or in base n-1 (where it will be 11). So here we assume 1 < b < n-1.
Records for a(n)>=1 are in A107129. - Dmitry Kamenetsky, Oct 22 2015
LINKS
T. D. Noe, Table of n, a(n) for n = 0..10000
John P. Linderman, Description of A135549-A135551 and A016038
John P. Linderman, Perl program [Use the command: palin.pl]
MATHEMATICA
a = {0, 0, 0}; For[n = 4, n < 100, n++, c = 0; For[b = 2, b < n - 1, b++, If[IntegerDigits[n, b] == Reverse[IntegerDigits[n, b]], c++ ]]; AppendTo[a, c]]; a (* Stefan Steinerberger, Feb 27 2008 *)
Table[cnt=0; Do[d=IntegerDigits[n, b]; If[d==Reverse[d], cnt++ ], {b, 2, n-2}]; cnt, {n, 0, 100}] (* T. D. Noe, Feb 28 2008 *)
Table[Total[Boole[Table[PalindromeQ[IntegerDigits[n, b]], {b, 2, n-2}]]], {n, 0, 120}] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 14 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
John P. Linderman, Feb 26 2008, Feb 28 2008
STATUS
approved