OFFSET
1,1
COMMENTS
Is the sequence infinite? - Zak Seidov, Nov 19 2013
LINKS
Zak Seidov, Table of n, a(n) for n = 1..20000
EXAMPLE
a(3) = 613 because prime(6) = 13 and 613 is prime,
a(1000) = 761077477 because prime(7610) = 77477 and 761077477 is prime.
a(20000) = 2092142886529 because prime(209214) = 2886529 and 2092142886529 is prime.
MATHEMATICA
Select[Table[FromDigits[Flatten[{IntegerDigits[n], IntegerDigits[Prime[n]]}]], {n, 1, 500}], PrimeQ] (* Alonso del Arte, Sep 22 2004 *)
PROG
(Magma) [p: n in [1..200] | IsPrime(p) where p is Seqint(Intseq(NthPrime(n)) cat Intseq(n))]; // Bruno Berselli, Sep 15 2015
(PARI) lista(NN) = for(k=1, NN, p=prime(k); if(isprime(j=k*10^#digits(p)+p), print1(j, ", "))) \\ Jinyuan Wang, Apr 05 2019
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Jun 29 2003
STATUS
approved