%I #5 Dec 20 2014 11:48:04
%S 2,7,53,347,2411,16811,117659,823547,5764817,40353611,282475267,
%T 1977326753,13841287217,96889010447,678223072853,4747561510009,
%U 33232930569607,232630513987231,1628413597910497,11398895185373167
%N Smallest prime >= 7^n.
%t NextPrime[#]&/@(7^Range[0,20]-1) (* _Harvey P. Dale_, Dec 20 2014 *)
%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