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 A052074 #28 Feb 19 2024 01:58:59 %S A052074 529,6889,12769,1261129,40001200009,107667328129,145381301521, %T A052074 510649971459777361,24172491655282243145798689 %N A052074 Squares of primes p^2 with the property that nextprime(p) is a substring of p^2. %e A052074 The corresponding primes p are 23, 83, 113, 1123, 200003, 328127, ..., the "next primes" are 29, 89, 127, 1129, 200009, 328129, ..., and these numbers are indeed substrings of 529, 6889, 12769, 1261129, 40001200009, 107667328129, ... %t A052074 Select[Prime[Range[37*10^6]]^2,SequenceCount[IntegerDigits[#], IntegerDigits[ NextPrime[ Sqrt[#]]]]>0&] (* The program uses the SequenceCount function from Mathematica version 10 *) (* _Harvey P. Dale_, Jul 13 2016 *) %Y A052074 Cf. A052073, A052075, A052076, A274932. %K A052074 nonn,base,more,nice %O A052074 1,1 %A A052074 _Patrick De Geest_, Jan 15 2000 %E A052074 a(8) from Sam Handler (sam_5_5_5_0(AT)yahoo.com), Sep 04 2006 %E A052074 Definition clarified and offset changed by _N. J. A. Sloane_, Jul 13 2016 %E A052074 a(9) from _Giovanni Resta_, May 24 2018