A063767 Smallest prime > 7^n.

2, 11, 53, 347, 2411, 16811, 117659, 823547, 5764817, 40353611, 282475267, 1977326753, 13841287217, 96889010447, 678223072853, 4747561510009, 33232930569607, 232630513987231, 1628413597910497, 11398895185373167

Offset: 0

Author

Robert G. Wilson v, Aug 14 2001

Keywords

• nonn

Comments

Variant of A104084 - R. J. Mathar, Dec 13 2008

Crossrefs

Cf. A000420.

Programs

Mathematica

NextPrime[ n_Integer ] := (k = n + 1; While[ !PrimeQ[ k ], k++ ]; k); Table[ NextPrime[ 7^n ], {n, 0, 22} ]
NextPrime[7^Range[0,20]] (* Harvey P. Dale, Nov 22 2023 *)

Extensions

Corrected definition. R. J. Mathar, Dec 13 2008