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 A100502 #7 Apr 24 2024 19:36:02
%S A100502 10301,10501,10601,101501,101701,102001,102101,102301,102701,103001,
%T A100502 103801,104701,104801,105401,105601,105701,106501,106801,107101,
%U A100502 107201,108301,108401,109001,109201,1010201,1010501,1011001,1011601,1012201,1012601,1013401
%N A100502 Primes arising in A099678.
%p A100502 t0:=[]; u0:=[]; for n from 0 to 500 do p0:="10"; p1:="01"; t1:=cat(p0,n,p1); t1:=convert(t1,decimal,10); if isprime(t1) then t0:=[op(t0),n]; u0:=[op(u0),t1]; fi; od: u0;
%t A100502 p = Select[ Range[280], PrimeQ[ FromDigits[Join[{1, 0}, IntegerDigits[ # ], {0, 1}]]] &]; Table[ FromDigits[ Join[{1, 0}, IntegerDigits[ p[[n]]], {0, 1}]], {n, 29}] (* _Robert G. Wilson v_, Nov 20 2004 *)
%Y A100502 Cf. A099678.
%K A100502 nonn,base
%O A100502 1,1
%A A100502 _N. J. A. Sloane_, Nov 19 2004