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 A346027 #8 Aug 08 2021 11:34:09
%S A346027 11897,18719,125627,743989,910909,920957,928429,941449,1093571,
%T A346027 1407181,1466533,1518863,1648553,1770829,3170743,3300593,7321943,
%U A346027 7682687,7755581,9013351,12890047,13267459,14113199,16413013,16944341,17316031,18447001,18490267,18964111
%N A346027 Primes that are the first in a run of exactly 7 emirps.
%C A346027 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 A346027 a(1) = 11897 because of the nine consecutive primes 11887, 11897, 11903, 11909, 11923, 11927, 11933, 11939, 11941 all except 11887 and 11941 are emirps and this is the first such occurrence.
%t A346027 EmQ[n_]:=(s=IntegerReverse@n;PrimeQ@s&&n!=s);
%t A346027 Monitor[Do[p=Prime@k;If[MemberQ[{1,3,7,9},First@IntegerDigits@p],If[Boole[EmQ/@NextPrime[p,Range[-1,7]]]=={0,1,1,1,1,1,1,1,0},Print@p]],{k,10^6}],p] (* _Giorgos Kalogeropoulos_, Jul 27 2021 *)
%o A346027 (Python) # uses code in A346026
%o A346027 print(aupto(10**7, runlength=7)) # _Michael S. Branicky_, Jul 14 2021
%Y A346027 Subsequence of A006567 (emirps).
%Y A346027 Cf. A003684, A048052, A048054, A071612, A346022, A346023, A346024, A346025, A346026.
%K A346027 nonn,base
%O A346027 1,1
%A A346027 _Lars Blomberg_, Jul 14 2021