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 A069676 #21 Jul 12 2022 12:59:20
%S A069676 2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,
%T A069676 97,113,211,311,313,317,419,613,617,619,719,811,911,919,1117,2111,
%U A069676 2113,3119,4111,5113,5119,6113,8111,8117,11113,11117,11119,41113,41117,71119
%N A069676 Primes with either no internal digits or all internal digits are 1.
%H A069676 Eder Vanzei, <a href="/A069676/b069676.txt">Table of n, a(n) for n = 1..257</a>
%t A069676 aid1Q[n_]:=Union[Most[Rest[IntegerDigits[n]]]]=={1}; Join[Prime[Range[PrimePi[ 100]]], Select[Prime[Range[PrimePi[100]+1,7100]],aid1Q]] (* _Harvey P. Dale_, Apr 12 2013 *)
%o A069676 (PARI) lista(na) = my(vp = List(primes(primepi(100)))); for (n=1, na, my(x=(10^n-1)/9); for (i=1, 9, forstep(j=1, 9, 2, my(y=10^(n+1)*i + 10*x + j); if (ispseudoprime(y), listput(vp, y));););); Vec(vp); \\ _Michel Marcus_, Jul 12 2022
%Y A069676 Cf. A069675, A069677, A069678, A069679, A069680, A069681, A069682, A069683, A069684.
%K A069676 nonn,base
%O A069676 1,1
%A A069676 _Amarnath Murthy_, Apr 06 2002
%E A069676 Corrected by _Ray Chandler_, Nov 24 2003
%E A069676 Offset corrected and name changed by _Arkadiusz Wesolowski_, Sep 07 2011