This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A065437 #11 Feb 16 2025 08:32:45
%S A065437 3,2,2,2,10,3,2,18,3,4,2,6,5,6,46,52,4,6,5,7,2,78,5,8,8,10,102,2,5,8,
%T A065437 2,10,136,138,148,3,7,162,166,3,178,10,6,12,6,11,8,222,8,12,3,14,12,8,
%U A065437 2,262,268,7,11,14,282,292,7,310,2,316,15,9,346,8,10,358,366,4,13,10,388
%N A065437 Smallest base relative to which the n-th prime is palindromic.
%C A065437 Subset of A016026 for primes only.
%H A065437 Harvey P. Dale, <a href="/A065437/b065437.txt">Table of n, a(n) for n = 1..1000</a>
%H A065437 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PalindromicPrime.html">Palindromic Primes</a>
%e A065437 71 is the 20th prime and can be written as 131 in base 7, hence a(20)=7.
%t A065437 PrimeMinBase[ n_ ] := NestWhile[ # + 1 &, 2, IntegerDigits[ Prime[ n ], # ] != Reverse[ IntegerDigits[ Prime[ n ], # ] ] & ]
%t A065437 sbr[n_]:=Module[{k=2},While[IntegerDigits[n,k]!=Reverse[ IntegerDigits[ n,k]], k++]; k]; Table[sbr[n],{n,Prime[Range[80]]}] (* _Harvey P. Dale_, Jun 07 2016 *)
%Y A065437 Cf. A016026.
%K A065437 base,easy,nonn
%O A065437 1,1
%A A065437 Peter Bertok (peter(AT)bertok.com), Nov 23 2001