%I #26 Oct 28 2022 17:13:42
%S 2,7,29,127,631,3137,15629,78137,390647,1953151,9765629,48828139,
%T 244140683,1220703131,6103515637,30517578167,152587890649,
%U 762939453127,3814697265637,19073486328181,95367431640673,476837158203149
%N Smallest prime greater than 5^n.
%H Robert Israel, <a href="/A054321/b054321.txt">Table of n, a(n) for n = 0..143</a>
%p seq(nextprime(5^n),n=0..100); # _Robert Israel_, May 19 2014
%t NextPrime[ n_Integer] := (k = n + 1; While[ !PrimeQ[k], k++ ]; k); Table[ NextPrime[5^n], {n, 0, 22} ] (* Mathematica 5 and below *)
%t NextPrime[5^Range[0,25]] (* Mathematica 6; _Harvey P. Dale_, Jun 19 2011 *)
%o (PARI) a(n)=nextprime(5^n+1) \\ _Charles R Greathouse IV_, Jun 19 2011
%Y Cf. A014210, A014211, A013599 (a(n)-5^n).
%K nonn
%O 0,1
%A _Robert G. Wilson v_, Aug 14 2001
|