A391802 - OEIS

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

%S 2,7,17,23,29,61,83,97,101,109,113,137,149,163,181,191,197,223,227,

%T 257,269,277,281,293,317,331,337,359,397,409,421,449,479,491,521,547,

%U 557,571,593,601,617,631,641,653,709,727,739,751,797,811,827,839,857,881

%N Primes indexed by A391799.

%F a(n) = A000040(A391799(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 A391799, A391800, A391801.

%K nonn

%O 1,1

%A _Clark Kimberling_, Dec 30 2025