A381969 Primes p with the property that PreviousPrime(p) is a substring of p^2.
3701, 65442077, 8410957371097
Offset: 1
Examples
3701 is a term because PreviousPrime(3701) = 3697 is a substring of 3701^2 = 13697401.
Links
- Carlos Rivera, Coll.20th-017. The square of Prime contains Prevprime, The Prime Puzzles and Problems Connection.
Crossrefs
Cf. A052073.
Programs
-
Mathematica
Select[Prime@Range[10^4],StringContainsQ[ToString[#^2],ToString[NextPrime[#,-1]]]&]
Comments