login
A391802
Primes indexed by A391799.
2
2, 7, 17, 23, 29, 61, 83, 97, 101, 109, 113, 137, 149, 163, 181, 191, 197, 223, 227, 257, 269, 277, 281, 293, 317, 331, 337, 359, 397, 409, 421, 449, 479, 491, 521, 547, 557, 571, 593, 601, 617, 631, 641, 653, 709, 727, 739, 751, 797, 811, 827, 839, 857, 881
OFFSET
1,1
FORMULA
a(n) = A000040(A391799(n)).
MATHEMATICA
z = 300; p[n_] := Prime[n];
a[n_] := p[2 n + 2] - p[2 n] - p[2 n + 1] + p[2 n - 1];
Prime[Select[Range[z], a[#] > 0 &]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Dec 30 2025
STATUS
approved