%I #7 Feb 23 2016 18:42:33
%S 2,5,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 >= 5^n.
%F a(n)=A054321(n), n>1. [From _R. J. Mathar_, Dec 13 2008]
%t Join[{2,5},NextPrime[5^Range[2,30]]] (* _Harvey P. Dale_, Feb 23 2016 *)
%o (PARI) g(n,b) = for(x=0,n,print1(nextprime(b^x)","))
%K easy,nonn
%O 0,1
%A _Cino Hilliard_, Mar 03 2005