A104083 Smallest prime >= 5^n.
2, 5, 29, 127, 631, 3137, 15629, 78137, 390647, 1953151, 9765629, 48828139, 244140683, 1220703131, 6103515637, 30517578167, 152587890649, 762939453127, 3814697265637, 19073486328181, 95367431640673, 476837158203149
Offset: 0
Programs
-
Mathematica
Join[{2,5},NextPrime[5^Range[2,30]]] (* Harvey P. Dale, Feb 23 2016 *)
-
PARI
g(n,b) = for(x=0,n,print1(nextprime(b^x)","))
Formula
a(n)=A054321(n), n>1. [From R. J. Mathar, Dec 13 2008]