A391799 Numbers k such that prime(2*k + 2) - prime(2*k) > prime(2*k + 1) - prime(2*k - 1).

1, 4, 7, 9, 10, 18, 23, 25, 26, 29, 30, 33, 35, 38, 42, 43, 45, 48, 49, 55, 57, 59, 60, 62, 66, 67, 68, 72, 78, 80, 82, 87, 92, 94, 98, 101, 102, 105, 108, 110, 113, 115, 116, 119, 127, 129, 131, 133, 139, 141, 144, 146, 148, 152, 154, 158, 159, 162, 163

Offset

1,2

Links

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

Mathematica

z = 300; p[n_] := Prime[n];
a[n_] := p[2 n + 2] - p[2 n] - p[2 n + 1] + p[2 n - 1];
Select[Range[z], a[#] < 0 &]   (* A391797 *)
Select[Range[z], a[#] == 0 &]  (* A391798 *)
Select[Range[z], a[#] > 0 &]   (* A391799 *)

Crossrefs

Cf. A000040, A110854, A391797, A391798, A391800.

Sequence in context: A153001 A010454 A390098 * A272015 A310941 A310942

Adjacent sequences: A391796 A391797 A391798 * A391800 A391801 A391802

Keyword

nonn

Author

Clark Kimberling, Dec 29 2025

Status

approved