A052074 - OEIS

%I #28 Feb 19 2024 01:58:59

%S 529,6889,12769,1261129,40001200009,107667328129,145381301521,

%T 510649971459777361,24172491655282243145798689

%N Squares of primes p^2 with the property that nextprime(p) is a substring of p^2.

%e 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 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 Cf. A052073, A052075, A052076, A274932.

%K nonn,base,more,nice

%O 1,1

%A _Patrick De Geest_, Jan 15 2000

%E a(8) from Sam Handler (sam_5_5_5_0(AT)yahoo.com), Sep 04 2006

%E Definition clarified and offset changed by _N. J. A. Sloane_, Jul 13 2016

%E a(9) from _Giovanni Resta_, May 24 2018