login
Smallest prime >= 7^n.
2

%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