login
Primes of the concatenated form 3nn3.
3

%I #10 Dec 17 2023 16:12:05

%S 313133,323233,328283,329293,338383,343433,349493,350503,352523,

%T 356563,364643,367673,380803,383833,392923,394943,395953,397973,

%U 3100010003,3100310033,3102410243,3102510253,3102810283,3103910393,3104610463

%N Primes of the concatenated form 3nn3.

%e 313133 is prime and of the form 3nn3 for n=13.

%e 3100010003 is prime and of the form 3nn3 for n=1000.

%t mn[n_]:=Module[{idn=IntegerDigits[n]}, FromDigits[Join[{3},idn,idn,{3}]]]; Select[ mn/@ Range[ 1100],PrimeQ] (* _Harvey P. Dale_, Feb 04 2011 *)

%Y Cf. A102896 for sequence of all numbers of form 3nn3. A102498 for the n values corresponding to the primes in this sequence.

%K easy,nonn,base

%O 1,1

%A Mark Hudson (mrmarkhudson(AT)hotmail.com), Jan 13 2005