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,1

Links

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

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 *)

Prog

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

Crossrefs

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

Sequence in context: A278391 A126568 A150663 * A344502 A150664 A193040

Adjacent sequences: A054318 A054319 A054320 * A054322 A054323 A054324

Keyword

nonn

Author

Robert G. Wilson v, Aug 14 2001

Status

approved