login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Smallest prime > 7^n.
1

%I #9 Nov 22 2023 12:56:13

%S 2,11,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.

%C Variant of A104084 - _R. J. Mathar_, Dec 13 2008

%t NextPrime[ n_Integer ] := (k = n + 1; While[ !PrimeQ[ k ], k++ ]; k); Table[ NextPrime[ 7^n ], {n, 0, 22} ]

%t NextPrime[7^Range[0,20]] (* _Harvey P. Dale_, Nov 22 2023 *)

%Y Cf. A000420.

%K nonn

%O 0,1

%A _Robert G. Wilson v_, Aug 14 2001

%E Corrected definition. _R. J. Mathar_, Dec 13 2008