proposed
approved
proposed
approved
editing
proposed
Giovanni Resta, <a href="/A238500/b238500.txt">Table of n, a(n) for n = 1..10000</a>
spl[n_] := Block[{d = IntegerDigits@n, c = 0, z}, z = Length@d; Do[If[PrimeQ@ FromDigits@ Take[d, k] && d[[k + 1]] > 0 && PrimeQ@ FromDigits@ Take[d, k - z], c++], {k, z - 1}]; c]; Select[ Prime@ Range@ 250000, spl[#] == 4 &] (* Giovanni Resta, Mar 03 2014 *)
proposed
editing
editing
proposed
allocated for Colin BarkerPrimes which are the concatenation of two primes in exactly four ways.
233347, 233911, 239929, 337397, 373613, 379397, 733331, 796337, 1321997, 1933331, 2333347, 2333533, 2339929, 2392333, 2393257, 2393761, 2939971, 3136373, 3165713, 3217337, 3319733, 3499277, 3539311, 3727397, 3733967, 3739103, 3739199, 3739397, 3739433
1,1
233347 is in the sequence because 2, 33347, 23, 3347, 233, 347, 2333 and 47 are all primes, so there are four ways.
allocated
nonn,base
Colin Barker, Feb 27 2014
approved
editing
allocated for Colin Barker
allocated
approved