A234955 -id:A234955 - cp's OEIS frontend

A234956 Trisection of A107926: The least number k such that there are primes p and q with p - q = 6*n+4, p + q = k, and p the least such prime >= k/2.

18, 48, 102, 444, 174, 432, 582, 672, 846, 984, 1902, 636, 1122, 1464, 2730, 3348, 3342, 1752, 5154, 8424, 1842, 5244, 5802, 5076, 9714, 10392, 11898, 11928, 12966, 14796, 7662, 21516, 23202, 39216, 18234, 10572, 8742, 21732, 16770, 38076, 30102, 19884, 54822, 44604

Offset: 1

Robert G. Wilson v, Jan 01 2014

nonn

All terms found to date are congruent to 0 (mod 6).

Record values: 18, 48, 102, 174, 432, 582, 636, 1122, 1464, 1752, 1842, 5076, 7662, 8742, 16770, 16938, 27072, 37416, 49086, 50736, 63552, 80568, 93654, 126582, 136362, 255672, 500208, 1070574, 2549718, 3328608, 4436316, 4743834, 7906854, 8303664, 8818122, 11747676, 21461364, 26582496, 30738636, 36170334, 42304728, 45413748, 100573404, 101901222, 142408062, 215780022, 222856404, 276403416, 397812606, 578042658, 695661546, 1217194032, 1540728846, 1752132852, 1760999466, 1896604482, 3024520584, 8602478358, 12860956476, 12987816186, 13162543146, 13319210952, …, .

Robert G. Wilson v, Table of n, a(n) for n = 1..855

Cf. A107926, A231156, A234955.

f[n_] := Block[{p = n/2}, While[ !PrimeQ[n - p], p = NextPrime@ p]; p - n/2]; t = Table[0, {10000}]; k = 4;  While[k < 12475000001, If[ t[[f@ k]] == 0, t[[f@ k]] = k; Print[{f@ k, k}]]; k += 2]; Table[ t[[n]], {n, 2, 5000, 3}]

a(n) = A107926(3n-1).

cp's OEIS Frontend

A234956 Trisection of A107926: The least number k such that there are primes p and q with p - q = 6*n+4, p + q = k, and p the least such prime >= k/2.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula