Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #12 Jan 29 2014 13:22:47
%S 2,13,311,313,419,641,643,647,653,761,983,997,9103,11131,11149,12157,
%T 12163,14197,15227,15233,18307,18311,18313,20353,20359,21379,21383,
%U 21397,22409,23431,24499,25523,25541,26557,29599,30631,30643,30661,30677,31727,33773
%N Primes formed from concatenation of PrimePi(n) and prime(n).
%H K. D. Bajpai, <a href="/A236551/b236551.txt">Table of n, a(n) for n = 1..1461</a>
%e pi(6) = 3: prime(6) = 13. Concatenation of 3 and 13 gives 313 which is prime and appears in the sequence.
%e pi(8) = 4: prime(6) = 19. Concatenation of 4 and 19 gives 419 which is prime and appears in the sequence.
%p with(StringTools): with(numtheory): KD := proc() local a,b,d; a:=pi(n); b:=ithprime(n); d:=parse(cat(a,b)); if isprime (d) then RETURN (d); fi; end: seq(KD(), n=1..300);
%t Select[Table[FromDigits[Flatten[{IntegerDigits[PrimePi[n]], IntegerDigits[Prime[n]]}]], {n, 100}], PrimeQ] (* _Alonso del Arte_, Jan 28 2014 *)
%Y Cf. A030458 (primes: concatenation of n and n+1), A084667 (primes: concatenation of n and prime(n)), A084669 (primes: concatenation of prime(n) and n).
%K nonn,base,less
%O 1,1
%A _K. D. Bajpai_, Jan 28 2014