Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #7 Aug 05 2019 19:36:38
%S 3,7,13,37,59,61,83,103,113,149,151,179,181,197,199,251,263,269,271,
%T 283,353,421,431,439,479,487,523,631,643,653,661,677,709,769,811,829,
%U 853,937,947,1019,1039,1049,1051,1277,1319,1399,1427,1433,1489,1543,1663
%N Primes such that the concatenation of its index and itself is a prime.
%H Harvey P. Dale, <a href="/A166283/b166283.txt">Table of n, a(n) for n = 1..1000</a>
%e The prime, 3 has an index of 2, i.e.; pi(3) = 2 and the concatenation, 23 is a prime.
%t Select[ Prime@ Range@ 273, PrimeQ@ FromDigits@ Join[ IntegerDigits@ PrimePi@#, IntegerDigits@# ] &]
%t Select[Table[{n,Prime[n]},{n,300}],PrimeQ[#[[1]]*10^IntegerLength[ #[[2]]]+ #[[2]]]&][[All,2]] (* _Harvey P. Dale_, Jun 01 2017 *)
%Y Complement of 155030, A000040, A084671.
%K base,nonn
%O 1,1
%A _Robert G. Wilson v_, Oct 10 2009