A391353 Numbers k such that 3*k - (greatest prime < 3*k) > (least prime > 3*k) - 3*k.

9, 12, 17, 19, 22, 26, 29, 32, 41, 42, 45, 49, 52, 54, 57, 59, 63, 69, 70, 73, 74, 79, 83, 85, 87, 89, 92, 97, 101, 102, 109, 110, 112, 115, 119, 122, 124, 126, 129, 132, 136, 139, 143, 146, 149, 152, 158, 159, 162, 166, 169, 172, 173, 178, 179, 180, 182

Offset

1,1

Links

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

Mathematica

m = 3; z = 140;
u[n_] := NextPrime[m n, -1]; v[n_] := NextPrime[m n];
Select[Range[400], m*# - v[#] < u[#] - m*# &]   (* A391351 *)
Select[Range[400], m*# - v[#] == u[#] - m*# &]  (* A391352 *)
Select[Range[400], m*# - v[#] > u[#] - m*# &]   (* A391353 *)

Crossrefs

Cf. A000027, A000040, A391351, A391352.

Sequence in context: A342757 A154631 A199593 * A356842 A174525 A141552

Adjacent sequences: A391350 A391351 A391352 * A391354 A391355 A391356

Keyword

nonn

Author

Clark Kimberling, Dec 10 2025

Status

approved