login
Primes p with the property that nextprime(p) is a substring of p^2.
6

%I #29 Feb 19 2024 01:58:34

%S 23,83,113,1123,200003,328127,381289,714597769,4916552822383

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

%C a(10) > 4*10^13. The prime 482564152712479922509389813571 is also a term. - _Giovanni Resta_, May 24 2018

%e 381289 is a term because nextprime(381289) = 381301 is a substring of 381289^2 = 145381301521.

%t Select[Prime@Range[1000000],

%t StringContainsQ[ToString[#^2], ToString[NextPrime[#]]] &] (* _Robert Price_, Oct 12 2019 *)

%Y Cf. A052074, A052075, A052076.

%K nonn,base,more

%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 a(9) from _Giovanni Resta_, May 24 2018