A054321 Smallest prime greater than 5^n.

2, 7, 29, 127, 631, 3137, 15629, 78137, 390647, 1953151, 9765629, 48828139, 244140683, 1220703131, 6103515637, 30517578167, 152587890649, 762939453127, 3814697265637, 19073486328181, 95367431640673, 476837158203149

Offset: 0

Author

Robert G. Wilson v, Aug 14 2001

Keywords

• nonn

Links

• Robert Israel, Table of n, a(n) for n = 0..143

Crossrefs

Cf. A014210, A014211, A013599 (a(n)-5^n).

Programs

Maple

seq(nextprime(5^n),n=0..100); # Robert Israel, May 19 2014

Mathematica

NextPrime[ n_Integer] := (k = n + 1; While[ !PrimeQ[k], k++ ]; k); Table[ NextPrime[5^n], {n, 0, 22} ] (* Mathematica 5 and below *)
NextPrime[5^Range[0,25]] (* Mathematica 6; Harvey P. Dale, Jun 19 2011 *)

PARI

a(n)=nextprime(5^n+1) \\ Charles R Greathouse IV, Jun 19 2011