A104084 Smallest prime >= 7^n.

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

Offset: 0

Author

Cino Hilliard, Mar 03 2005

Keywords

• easy
• nonn

Programs

Mathematica

NextPrime[#]&/@(7^Range[0,20]-1) (* Harvey P. Dale, Dec 20 2014 *)

PARI

g(n,b) = for(x=0,n,print1(nextprime(b^x)","))