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 A052073 #29 Feb 19 2024 01:58:34 %S A052073 23,83,113,1123,200003,328127,381289,714597769,4916552822383 %N A052073 Primes p with the property that nextprime(p) is a substring of p^2. %C A052073 a(10) > 4*10^13. The prime 482564152712479922509389813571 is also a term. - _Giovanni Resta_, May 24 2018 %e A052073 381289 is a term because nextprime(381289) = 381301 is a substring of 381289^2 = 145381301521. %t A052073 Select[Prime@Range[1000000], %t A052073 StringContainsQ[ToString[#^2], ToString[NextPrime[#]]] &] (* _Robert Price_, Oct 12 2019 *) %Y A052073 Cf. A052074, A052075, A052076. %K A052073 nonn,base,more %O A052073 1,1 %A A052073 _Patrick De Geest_, Jan 15 2000 %E A052073 a(8) from Sam Handler (sam_5_5_5_0(AT)yahoo.com), Sep 04 2006 %E A052073 a(9) from _Giovanni Resta_, May 24 2018