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 A091922 #15 Apr 02 2025 10:37:53
%S A091922 5,10,19,18,3801,6167,251529,128019,13780180,20576
%N A091922 Smallest m such that the decimal representation of the m-th prime interpreted in base n is not a prime, but prime in bases 10 <= b < n.
%C A091922 No more terms <= 3*10^10. - _Michael S. Branicky_, Apr 02 2025
%F A091922 A090862(a(n)) = n and A090862(m) <> n for m < a(n).
%t A091922 f[p_] := Module[{d = IntegerDigits[p], b = 11}, While[PrimeQ[FromDigits[d, b]], b++]; b]; a[n_] := Module[{p = 11, m = 5}, While[f[p] != n, p = NextPrime[p]; m++]; m]; Array[a, 8, 11] (* _Amiram Eldar_, Mar 28 2025 *)
%Y A091922 Cf. A090862.
%K A091922 nonn,base,more
%O A091922 11,1
%A A091922 _Reinhard Zumkeller_, Feb 13 2004
%E A091922 a(17)-a(20) from _Amiram Eldar_, Mar 28 2025