A114412
Records in semiprime gaps ordered by merit.
Original entry on oeis.org
2, 3, 4, 6, 11, 19, 24, 28, 30, 32, 38, 47, 54, 70, 74, 107, 110, 112, 120, 126, 146
Offset: 1
Records defined in terms of A065516 and A001358:
.
n A065516(n) A065516(n)/log_10(A001358(n))
= ========== ==============================
1 2 2 / log_10(4) = 3.32192809...
2 3 3 / log_10(6) = 3.85529162...
3 1 1 / log_10(9) = 1.04795163...
4 4 4 / log_10(10) = 4.00000000
5 1 1 / log_10(14) = 0.87250286...
6 6 6 / log_10(15) = 5.10164492...
7 1 1 / log_10(21) = 0.75630419...
8 3 3 / log_10(22) = 2.23476557...
9 1 1 / log_10(25) = 0.71533827...
-
sp = 4; m0 = 0; l = {}; lim = 1000000;
For[i = 5, i <= lim, i++, If[PrimeOmega[i] == 2, m = (i - sp)/Log[sp]; If[m > m0, m0 = m; AppendTo[l, i - sp]]; sp = i] ]; l (* Robert Price, Oct 29 2018 *)
Original entry on oeis.org
86, 298, 371, 1243, 1541, 2426, 2627, 3053, 4258, 5366, 5663, 6281, 6602, 6931, 7613, 8327, 9073, 9458, 10661, 13283, 14702, 15191, 16706, 18293, 18838, 23486, 25361, 26002, 26651, 27973, 28646, 34318, 35063, 36577, 38123, 41311, 43786, 44627
Offset: 1
a(10) = 4*37^2 - 3*37 + 1 = 5366 = 2 * 2683.
a(11) = 4*38^2 - 3*38 + 1 = 5663 = 7 * 809.
a(10) and a(11) are horizontally adjacent in the prime spiral, hence part of a clump and not isolated semiprimes as in A113688.
a(57) = 4*156^2 - 3*156 + 1 = 96877 = 11 * 8807 is the greatest member under 10^5.
-
IsSemiprime:= func; [s: n in [1..120] | IsSemiprime(s) where s is 4*n^2 - 3*n + 1]; // Vincenzo Librandi, Sep 22 2012
-
Select[Table[4*n^2 - 3*n + 1, {n, 150}], PrimeOmega[#] == 2&] (* Vincenzo Librandi, Sep 22 2012 *)
Original entry on oeis.org
46, 77, 218, 1073, 1351, 1502, 1661, 2186, 2998, 4193, 4727, 5006, 5293, 5891, 7183, 8603, 10558, 12266, 13631, 14581, 15563, 19811, 20953, 25202, 27806, 29843, 30538, 31241, 32671, 33398, 35627, 37153, 39502, 40301, 46118, 46981, 49618, 56051
Offset: 1
a(5) = 4*18^2 + 3*18 + 1 = 1351 = 7 * 193.
a(6) = 4*19^2 + 3*19 + 1 = 1502 = 2 * 751.
a(7) = 4*20^2 + 3*20 + 1 = 1661 = 11 * 151.
a(5), a(6) and a(7) are vertically adjacent in the semiprime spiral, hence part of a clump and not isolated semiprimes as in A113688. a(11), a(12) and a(13) are another such vertical string of 3 adjacent semiprimes and so is a(26), a(27) and a(28).
a(52) = 4*152^2 + 3*152 + 1 = 92873 = 11 * 8443 is the greatest member under 10^5.
-
IsSemiprime:= func; [s: n in [1..120] | IsSemiprime(s) where s is 4*n^2 + 3*n + 1]; // Vincenzo Librandi, Sep 22 2012
-
Select[Table[4*n^2 + 3*n + 1, {n, 200}], PrimeOmega[#] == 2&] (* Vincenzo Librandi, Sep 22 2012 *)
Original entry on oeis.org
6, 69, 106, 265, 334, 411, 589, 799, 1041, 1174, 1315, 1959, 2329, 3394, 4659, 5221, 5815, 7099, 8146, 8511, 10869, 16449, 21979, 23181, 23794, 25681, 26326, 31774, 33949, 35439, 36961, 38515, 40101, 43369, 45051, 48511, 50289, 52099, 54874
Offset: 1
a(4) = 4*9^2 - 7*9 + 4 = 265 = 5 * 53.
a(5) = 4*10^2 - 7*10 + 4 = 334 = 2 * 167.
a(6) = 4*11^2 - 7*11 + 4 = 411 = 3 * 137.
a(4), a(5) and a(6) are horizontally adjacent in the semiprime spiral, hence part of a clump and not isolated semiprimes as in A113688. a(9), a(10) and a(11) are another such horizontal string of 3 adjacent semiprimes.
a(46) = 4*151^2 - 7*151 + 4 = 90151 = 17 * 5303 is the greatest member under 10^5 (it is coincidence that this integer ends, base 10, with the same 151 that is the index of the quadratic).
-
IsSemiprime:= func; [s: n in [2..120] | IsSemiprime(s) where s is 4*n^2 - 7*n + 4]; // Vincenzo Librandi, Sep 22 2012
-
Select[Table[4*n^2 - 7*n + 4, {n, 200}], PrimeOmega[#] == 2&] (* Vincenzo Librandi, Sep 22 2012 *)
Showing 1-4 of 4 results.
Comments