|
| |
|
|
A054321
|
|
Smallest prime greater than 5^n.
|
|
2
| |
|
|
2, 7, 29, 127, 631, 3137, 15629, 78137, 390647, 1953151, 9765629, 48828139, 244140683, 1220703131, 6103515637, 30517578167, 152587890649, 762939453127, 3814697265637, 19073486328181, 95367431640673, 476837158203149
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
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; from Harvey P. Dale, June 19 2011 *)
|
|
|
PROG
| (PARI) a(n)=nextprime(5^n+1) \\ Charles R Greathouse IV, Jun 19 2011
|
|
|
CROSSREFS
| Cf. A014210, A014211.
Sequence in context: A150662 A126568 A150663 * A150664 A193040 A200755
Adjacent sequences: A054318 A054319 A054320 * A054322 A054323 A054324
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 14 2001
|
| |
|
|
