login
A166283
Primes such that the concatenation of its index and itself is a prime.
2
3, 7, 13, 37, 59, 61, 83, 103, 113, 149, 151, 179, 181, 197, 199, 251, 263, 269, 271, 283, 353, 421, 431, 439, 479, 487, 523, 631, 643, 653, 661, 677, 709, 769, 811, 829, 853, 937, 947, 1019, 1039, 1049, 1051, 1277, 1319, 1399, 1427, 1433, 1489, 1543, 1663
OFFSET
1,1
LINKS
EXAMPLE
The prime, 3 has an index of 2, i.e.; pi(3) = 2 and the concatenation, 23 is a prime.
MATHEMATICA
Select[ Prime@ Range@ 273, PrimeQ@ FromDigits@ Join[ IntegerDigits@ PrimePi@#, IntegerDigits@# ] &]
Select[Table[{n, Prime[n]}, {n, 300}], PrimeQ[#[[1]]*10^IntegerLength[ #[[2]]]+ #[[2]]]&][[All, 2]] (* Harvey P. Dale, Jun 01 2017 *)
CROSSREFS
Complement of 155030, A000040, A084671.
Sequence in context: A106951 A106057 A049492 * A350676 A186721 A177945
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Oct 10 2009
STATUS
approved