login
Primes p = prime(k) such that the decimal representation of p contains k as a substring.
6

%I #19 May 27 2019 21:09:10

%S 17,64553,64567,64577,64591,64601,64661,99551,4303027,6440999,

%T 14968819,95517973,527737957,1893230839,1966640443,1246492090901

%N Primes p = prime(k) such that the decimal representation of p contains k as a substring.

%C prime(k) = 1966640443 for k=96664044. This is the first case in which k is an internal string of prime(k). - _Carlos Rivera_, Jun 16 2004

%C 2*10^12 < a(17) <= 12426836115943. a(18) <= 21732382677641. a(19) <= 154895576080181. - _Donovan Johnson_, May 08 2010

%e Pairs {n, prime(n)}: {7, 17}, {6455, 64553}, {6456, 64567}, {6457, 64577}, {6459, 64591}, {6460, 64601}, {6466, 64661}, {9551, 99551}, {303027, 4303027}, {440999, 6440999}, {968819, 14968819}, {5517973, 95517973}.

%t Prime[Select[Range[10^6], StringContainsQ[ToString[Prime[#]], ToString[#]] & ]] (* _Robert Price_, May 27 2019 *)

%Y Cf. A067248, A046883, A075902.

%K more,base,nonn

%O 1,1

%A _Zak Seidov_, Sep 27 2002

%E 3 more terms from _Carlos Rivera_, Jun 16 2004

%E a(16) from _Donovan Johnson_, May 08 2010