|
%I #23 Sep 08 2022 08:46:14
%S 353,7177,9239,113111,5324153,5726957,5927759,6934769,8141981,9750997,
%T 101547101,123677123,131739131,153883153,1791063179,1891129189,
%U 2011229201,2071279207,2311453231,2491579249,2631669263,2691723269,2791801279
%N Primes that are the concatenation of n, prime(n) and n.
%e 353 is a prime number that is concatenation of 3, prime(3) and 3.
%e 7177 is a prime number that is concatenation of 7, prime(7) and 7.
%e 9239 is a prime number that is concatenation of 9, prime(9) and 9.
%t 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 *)
%o (PARI) for(n=1, 1e3, if(isprime(k=eval(Str(n, prime(n), n))), print1(k", ")))
%o (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
%Y Cf. A084667, A084669, A084670, A084671.
%K nonn,easy,base
%O 1,1
%A _Altug Alkan_, Sep 15 2015
|
