login
A370010
a(n) is the greatest prime less than 4*prime(n).
1
7, 11, 19, 23, 43, 47, 67, 73, 89, 113, 113, 139, 163, 167, 181, 211, 233, 241, 263, 283, 283, 313, 331, 353, 383, 401, 409, 421, 433, 449, 503, 523, 547, 547, 593, 601, 619, 647, 661, 691, 709, 719, 761, 769, 787, 787, 839, 887, 907, 911, 929, 953, 953, 997
OFFSET
1,1
EXAMPLE
7 < 4*2 < 11 < 4*3 < 13 < 17 < 19 < 5*3 < 23, so (a(1), a(2), a(3)) = (7,11,19).
MATHEMATICA
Table[Prime[PrimePi[4*Prime[n]]], {n, 1, 200}]
PROG
(PARI) a(n) = precprime(4*prime(n)); \\ Michel Marcus, Feb 10 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Feb 09 2024
STATUS
approved