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 A346029 #8 Aug 08 2021 11:34:23
%S A346029 7904639,120890249,154984343,174625597,312700789,318629783,707262887,
%T A346029 756791029,923780981,958610069,1049344897,1068171977,1117675201,
%U A346029 1194919381,1327765591,1368391847,1385828243,1846629391,1976590081,3117896521,3182618969,3322051367
%N A346029 Primes that are the first in a run of exactly 9 emirps.
%C A346029 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 A346029 a(1) = 7904639 because of the 11 consecutive primes 7904629, 7904639, 7904651, 7904653, 7904657, 7904669, 7904683, 7904707, 7904719, 7904723, 7904731 all except 7904629 and 7904731 are emirps and this is the first such occurrence.
%t A346029 EmQ[n_]:=(s=IntegerReverse@n;PrimeQ@s&&n!=s);
%t A346029 Monitor[Do[p=Prime@k;If[MemberQ[{1,3,7,9},First@IntegerDigits@p],If[Boole[EmQ/@NextPrime[p,Range[-1,9]]]==Join[{0},1~Table~9,{0}],Print@p]],{k,10^8}],p] (* _Giorgos Kalogeropoulos_, Jul 27 2021 *)
%o A346029 (Python) # uses code in A346026
%o A346029 print(aupto(10**7, runlength=9)) # _Michael S. Branicky_, Jul 14 2021
%Y A346029 Subsequence of A006567 (emirps).
%Y A346029 Cf. A003684, A048052, A048054, A071612, A346022, A346023, A346024, A346025, A346026, A346027, A346028.
%K A346029 nonn,base
%O A346029 1,1
%A A346029 _Lars Blomberg_, Jul 14 2021