OFFSET
0,1
MATHEMATICA
NextPrime[ n_Integer ] := (k = n + 1; While[ !PrimeQ[ k ], k++ ]; k); Table[ NextPrime[ 8^n ], {n, 0, 20} ]
NextPrime/@(8^Range[0, 20]) (* Harvey P. Dale, May 06 2013 *)
PROG
(PARI) g(n, b) = for(x=0, n, print1(nextprime(b^x)", ")) \\ Cino Hilliard, Mar 03 2005
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Aug 14 2001
EXTENSIONS
Edited by N. J. A. Sloane at the suggestion of Andrew S. Plewe, May 16 2007
STATUS
approved