A391800 - OEIS

%I #4 Jan 04 2026 22:12:00

%S 13,19,37,53,71,89,103,107,127,139,157,173,193,199,229,233,251,263,

%T 271,283,311,313,347,349,353,367,401,419,433,439,461,463,499,509,523,

%U 541,563,569,587,599,607,613,619,643,659,661,677,701,733,743,757,761,787

%N Primes indexed by A391797.

%C The sequences A391800, A391801, A391802 partition the primes, A000040.

%F a(n) = A000040(A391797(n)).

%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 Prime[Select[Range[z], a[#] < 0 &]]

%Y Cf. A000027, A391797, A391801, A391802.

%K nonn

%O 1,1

%A _Clark Kimberling_, Dec 30 2025