OFFSET
0,1
COMMENTS
Variant of A104084 - R. J. Mathar, Dec 13 2008
MATHEMATICA
NextPrime[ n_Integer ] := (k = n + 1; While[ !PrimeQ[ k ], k++ ]; k); Table[ NextPrime[ 7^n ], {n, 0, 22} ]
NextPrime[7^Range[0, 20]] (* Harvey P. Dale, Nov 22 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Aug 14 2001
EXTENSIONS
Corrected definition. R. J. Mathar, Dec 13 2008
STATUS
approved