A391799 - OEIS

%I #6 Jan 04 2026 19:51:35

%S 1,4,7,9,10,18,23,25,26,29,30,33,35,38,42,43,45,48,49,55,57,59,60,62,

%T 66,67,68,72,78,80,82,87,92,94,98,101,102,105,108,110,113,115,116,119,

%U 127,129,131,133,139,141,144,146,148,152,154,158,159,162,163

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

%t z = 300; p[n_] := Prime[n];

%t a[n_] := p[2 n + 2] - p[2 n] - p[2 n + 1] + p[2 n - 1];

%t Select[Range[z], a[#] < 0 &]   (* A391797 *)

%t Select[Range[z], a[#] == 0 &]  (* A391798 *)

%t Select[Range[z], a[#] > 0 &]   (* A391799 *)

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

%K nonn

%O 1,2

%A _Clark Kimberling_, Dec 29 2025