|
%I #16 Sep 08 2022 08:45:11
%S 53,239,6719,7321,15737,30763,38977,41981,44987,587107,661121,751133,
%T 1051177,1229201,1297211,1303213,1327217,1823281,1913293,1999303,
%U 2131321,2179327,2207329,2239333,2371351,2689391,2699393,3067439
%N Primes which are a concatenation of prime(n) and n.
%e a(2)=239 because prime[9]=23 and concatenation of 23 and 9 is 239 which is prime.
%t Select[Table[FromDigits[Flatten[{IntegerDigits[Prime[n]], IntegerDigits[n]}]], {n, 1, 500}], PrimeQ]
%o (Magma) [p: n in [1..500] | IsPrime(p) where p is Seqint(Intseq(n) cat Intseq(NthPrime(n)))]; // _Bruno Berselli_, Sep 15 2015
%Y Cf. A084667.
%Y Subsequence of primes of A075110.
%K nonn,base
%O 1,1
%A _Zak Seidov_, Jun 29 2003
|
