OFFSET
1,1
EXAMPLE
a(2)=239 because prime[9]=23 and concatenation of 23 and 9 is 239 which is prime.
MATHEMATICA
Select[Table[FromDigits[Flatten[{IntegerDigits[Prime[n]], IntegerDigits[n]}]], {n, 1, 500}], PrimeQ]
PROG
(Magma) [p: n in [1..500] | IsPrime(p) where p is Seqint(Intseq(n) cat Intseq(NthPrime(n)))]; // Bruno Berselli, Sep 15 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Jun 29 2003
STATUS
approved