A370011 a(n) is the least prime greater than 4*prime(n).
11, 13, 23, 29, 47, 53, 71, 79, 97, 127, 127, 149, 167, 173, 191, 223, 239, 251, 269, 293, 293, 317, 337, 359, 389, 409, 419, 431, 439, 457, 509, 541, 557, 557, 599, 607, 631, 653, 673, 701, 719, 727, 769, 773, 797, 797, 853, 907, 911, 919, 937, 967, 967
Offset: 1
Keywords
Examples
7 < 4*2 < 11 < 4*3 < 13 < 17 < 19 < 4*5 < 23, so (a(1), a(2), a(3)) = (11,13,23).
Programs
-
Mathematica
Table[NextPrime[Prime[PrimePi[4*Prime[n]]]], {n, 1, 200}] -
PARI
a(n) = nextprime(4*prime(n)); \\ Michel Marcus, Feb 10 2024