Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%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