login
A063768
Smallest prime >= 8^n.
0
2, 11, 67, 521, 4099, 32771, 262147, 2097169, 16777259, 134217757, 1073741827, 8589934609, 68719476767, 549755813911, 4398046511119, 35184372088891, 281474976710677, 2251799813685269, 18014398509482143, 144115188075855881
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
Cf. A001018.
Sequence in context: A138792 A058056 A266579 * A042245 A153298 A153393
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