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,1

Links

Table of n, a(n) for n=1..53.

Example

7 < 4*2 < 11 < 4*3 < 13 < 17 < 19 < 4*5 < 23, so (a(1), a(2), a(3)) = (11,13,23).

Mathematica

Table[NextPrime[Prime[PrimePi[4*Prime[n]]]], {n, 1, 200}]

Prog

(PARI) a(n) = nextprime(4*prime(n)); \\ Michel Marcus, Feb 10 2024

Crossrefs

Cf. A000040, A001749, A059786, A059788, A370008, A370010.

Sequence in context: A289688 A080790 A066123 * A048393 A136058 A106073

Adjacent sequences: A370008 A370009 A370010 * A370012 A370013 A370014

Keyword

nonn

Author

Clark Kimberling, Feb 09 2024

Status

approved