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

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

Offset

1,1

Comments

a(10) > 4*10^13. The prime 482564152712479922509389813571 is also a term. - Giovanni Resta, May 24 2018

Links

Table of n, a(n) for n=1..9.

Example

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

Mathematica

Select[Prime@Range[1000000],
StringContainsQ[ToString[#^2], ToString[NextPrime[#]]] &] (* Robert Price, Oct 12 2019 *)

Crossrefs

Cf. A052074, A052075, A052076.

Sequence in context: A304592 A302729 A139940 * A213174 A256376 A128825

Adjacent sequences: A052070 A052071 A052072 * A052074 A052075 A052076

Keyword

nonn,base,more

Author

Patrick De Geest, Jan 15 2000

Extensions

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

a(9) from Giovanni Resta, May 24 2018

Status

approved