OFFSET
1,1
COMMENTS
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..138 (terms 1..102 from Robert Israel)
EXAMPLE
A000045(6) = 8. In base 2 this is 1000, not a palindrome, but in base 3 it is 22, a palindrome. Thus a(6) = 3.
MAPLE
f:= proc(x) local b, L;
for b from 2 do
L:= convert(x, base, b);
if L = ListTools:-Reverse(L) then return b fi
od
end proc:
map(f, [seq(combinat:-fibonacci(n), n=1..70)]);
MATHEMATICA
A372754[n_] := Block[{b = 1}, While[!PalindromeQ[IntegerDigits[#, ++b]]] & [Fibonacci[n]]; b]; Array[A372754, 70] (* Paolo Xausa, May 18 2024 *)
PROG
(Python)
from itertools import count
from sympy import fibonacci
from sympy.ntheory.factor_ import digits
def A372754(n): return next(b for b in count(2) if (s := digits(fibonacci(n), b)[1:])[:(t:=len(s)+1>>1)]==s[:-t-1:-1]) # Chai Wah Wu, May 13 2024
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert Israel, May 12 2024
STATUS
approved