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 A048404 #19 Mar 23 2023 17:12:32 %S A048404 2,3,5,7,29,181,929,18181,929292929, %T A048404 18181818181818181818181818181818181818181818181818181818181818181818181818181 %N A048404 Primes with consecutive digits that differ exactly by 7. %C A048404 The next term (a(11)) has 163 digits. - _Harvey P. Dale_, Mar 23 2023 %H A048404 Sean A. Irvine, <a href="/A048404/b048404.txt">Table of n, a(n) for n = 1..13</a> %t A048404 Module[{s18,s81,s29,s92},s18=Select[Table[FromDigits[PadRight[{},n,{1,8}]],{n,1,181,2}],PrimeQ]; s81=Select[Table[FromDigits[PadRight[{},n,{8,1}]],{n,2,182,2}],PrimeQ];s29 = Select[ Table[FromDigits[PadRight[{},n,{2,9}]],{n,2,182,2}],PrimeQ]; s92 =Select[Table[ FromDigits[ PadRight[{},n,{9,2}]],{n,1,183,2}],PrimeQ]; Join[{2,3,5,7},s18,s81,s29,s92]//Sort] (* _Harvey P. Dale_, Mar 23 2023 *) %Y A048404 Cf. A048398, A048399, A048400, A048401, A048402, A048403, A048405, A048409. %K A048404 nonn,base %O A048404 1,1 %A A048404 _Patrick De Geest_, Apr 15 1999