A392114 Numbers k such that 6*k - (greatest prime < 6*n) = (least prime > 6*n) - 6*k.

1, 2, 3, 5, 7, 10, 12, 17, 18, 20, 23, 24, 25, 30, 31, 32, 33, 38, 40, 41, 45, 47, 48, 50, 52, 54, 57, 58, 69, 70, 71, 72, 77, 87, 92, 95, 97, 100, 103, 106, 107, 110, 116, 119, 130, 132, 135, 136, 137, 138, 139, 141, 143, 145, 147, 154, 160, 170, 171, 172

Offset

1,2

Links

Table of n, a(n) for n=1..60.

Mathematica

m = 6;
u[n_] := NextPrime[m n, -1]; v[n_] := NextPrime[m n];
Select[Range[400], m*# - v[#] < u[#] - m*# &]   (* A392113 *)
Select[Range[400], m*# - v[#] == u[#] - m*# &]  (* A392114 *)
Select[Range[400], m*# - v[#] > u[#] - m*# &]   (* A392115 *)

Crossrefs

Cf. A000027, A000040, A390788, A392113, A392115.

Sequence in context: A062442 A036964 A067162 * A002822 A191327 A109598

Adjacent sequences: A392111 A392112 A392113 * A392115 A392116 A392117

Keyword

nonn

Author

Clark Kimberling, Jan 16 2026

Status

approved