A383813
Primes which satisfy the requirements of A380943 in exactly four ways.
Original entry on oeis.org
257931013, 1394821313, 2699357347, 3122419127, 3132143093, 3647381953, 3736320359, 3799933727, 6130099337, 7622281937, 7943701397, 7991407367
Offset: 1
-
f[n_] := Block[{cnt = 0, id = IntegerDigits@ n, k = 1, len, p, q, qp}, len = Length@ id; While[k < len, p = Take[id, k]; q = Take[id, -len + k]; qp = FromDigits[ Join[q, p]]; If[ PrimeQ[FromDigits[p]] && PrimeQ[FromDigits[q]] && PrimeQ[qp] && IntegerLength[qp] == len, cnt++]; k++]; cnt];Select[ Prime@ Range@ 10000000, f@# == 4 &]
A238499
Primes which are the concatenation of two primes in exactly three ways.
Original entry on oeis.org
3137, 3797, 13997, 19937, 19997, 23911, 23929, 29173, 29311, 31193, 37337, 37397, 43397, 59929, 73331, 78737, 79337, 103997, 109397, 127997, 139967, 173347, 173359, 193337, 193373, 193877, 199337, 199373, 199967, 229373, 233113, 233329, 233353, 233617
Offset: 1
13997 is in the sequence because (13, 997), (139, 97), (1399, 7) are all primes, so there are three ways.
-
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@ 20000, spl[#] == 3 &] (* Giovanni Resta, Mar 03 2014 *)
Showing 1-2 of 2 results.
Comments