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 A108848 #21 Jan 31 2023 08:28:58 %S A108848 191,797,19991,79997,199999991,79999999999999999999999999997, %T A108848 19999999999999999999999999999999999999991, %U A108848 199999999999999999999999999999999999999999999999999999999999999999999999999999999999991 %N A108848 Palindromic primes in which all internal digits are 9. %C A108848 Obviously, 1 and 7 are the only possible outer digits for repeating inner digit 9. %C A108848 Terms a(14), a(15), and a(16) have respectively 1213, 1285, and 1461 digits. - _Harvey P. Dale_, Dec 11 2019 %H A108848 Harvey P. Dale, <a href="/A108848/b108848.txt">Table of n, a(n) for n = 1..13</a> %t A108848 Select[Flatten[Table[FromDigits[PadRight[{k},n,9]]*10+k,{n,2,200},{k,{1,7}}]],PrimeQ] (* _Harvey P. Dale_, Dec 11 2019 *) %o A108848 (PARI) n10np9(n,d) = { local(x,y,k); for(x=1,n, for(k=1,9, y=10^(x+1)*k+(10^x-1)*10+k; if(isprime(y),print1(y",")) ) ) } %o A108848 (Python) %o A108848 from sympy import isprime %o A108848 from itertools import count, islice %o A108848 def agen(): yield from (t for i in count(1) for f in "17" if isprime(t:=int(f + "9"*i + f))) %o A108848 print(list(islice(agen(), 13))) # _Michael S. Branicky_, Jan 27 2023 %Y A108848 Similar sequences for digit d: A108845 (d=1), A108846 (d=2), A108841 (d=4), A108842 (d=5), A108843 (d=6), A108844 (d=7), A108847 (d=8), A108848 (d=9). %K A108848 easy,nonn,base %O A108848 1,1 %A A108848 _Cino Hilliard_, Jul 11 2005 %E A108848 Name changed by _Arkadiusz Wesolowski_, Sep 07 2011 %E A108848 More terms from _Harvey P. Dale_, Dec 11 2019