A118755 Smallest prime >= 6*n.
2, 7, 13, 19, 29, 31, 37, 43, 53, 59, 61, 67, 73, 79, 89, 97, 97, 103, 109, 127, 127, 127, 137, 139, 149, 151, 157, 163, 173, 179, 181, 191, 193, 199, 211, 211, 223, 223, 229, 239, 241, 251, 257, 263, 269, 271, 277, 283, 293, 307, 307
Offset: 0
Programs
-
Mathematica
Prime[1+PrimePi[6Range[0,50]]] (* T. D. Noe, Nov 15 2006 *) NextPrime[6*Range[0,50]] (* Harvey P. Dale, Sep 05 2015 *)
-
PARI
a(n) = nextprime(6*n); \\ Michel Marcus, Feb 13 2021
Formula
Extensions
Corrected by T. D. Noe, Nov 15 2006