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 A346028 #8 Aug 08 2021 11:34:16
%S A346028 334759,9094009,9685771,11875307,12503017,19776443,32906869,35414443,
%T A346028 37376201,70252333,71161309,73694129,77454067,93907523,98606489,
%U A346028 100545637,104827991,112604857,147009703,155376791,183766217,187717499,194024953,196702423,314716411
%N A346028 Primes that are the first in a run of exactly 8 emirps.
%C A346028 There are large gaps in this sequence because all terms need to begin with 1, 3, 7, or 9 otherwise the reversal is composite.
%e A346028 a(1) = 334759 because of the 10 consecutive primes 334753, 334759, 334771, 334777, 334783, 334787, 334793, 334843, 334861, 334877 all except 334753 and 334877 are emirps and this is the first such occurrence.
%t A346028 EmQ[n_]:=(s=IntegerReverse@n;PrimeQ@s&&n!=s);
%t A346028 Monitor[Do[p=Prime@k;If[MemberQ[{1,3,7,9},First@IntegerDigits@p],If[Boole[EmQ/@NextPrime[p,Range[-1,8]]]=={0,1,1,1,1,1,1,1,1,0},Print@p]],{k,10^6}],p] (* _Giorgos Kalogeropoulos_, Jul 27 2021 *)
%o A346028 (Python) # uses code in A346026
%o A346028 print(aupto(10**7, runlength=8)) # _Michael S. Branicky_, Jul 14 2021
%Y A346028 Subsequence of A006567 (emirps).
%Y A346028 Cf. A003684, A048052, A048054, A071612, A346022, A346023, A346024, A346025, A346026, A346027.
%K A346028 nonn,base
%O A346028 1,1
%A A346028 _Lars Blomberg_, Jul 14 2021