OFFSET
1,1
EXAMPLE
353 is a prime number that is concatenation of 3, prime(3) and 3.
7177 is a prime number that is concatenation of 7, prime(7) and 7.
9239 is a prime number that is concatenation of 9, prime(9) and 9.
MATHEMATICA
f[n_] := Block[{d = IntegerDigits@ n, p = IntegerDigits@ Prime@ n}, FromDigits@ Join[d, p, d]]; Select[f /@ Range@ 300, PrimeQ] (* Michael De Vlieger, Sep 15 2015 *)
PROG
(PARI) for(n=1, 1e3, if(isprime(k=eval(Str(n, prime(n), n))), print1(k", ")))
(Magma) [p: n in [1..400] | IsPrime(p) where p is Seqint(Intseq(n) cat Intseq(NthPrime(n)) cat Intseq(n))]; // Bruno Berselli, Sep 15 2015
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Altug Alkan, Sep 15 2015
STATUS
approved