login

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

Smallest prime >= 8^n.
0

%I #17 May 12 2023 19:19:48

%S 2,11,67,521,4099,32771,262147,2097169,16777259,134217757,1073741827,

%T 8589934609,68719476767,549755813911,4398046511119,35184372088891,

%U 281474976710677,2251799813685269,18014398509482143,144115188075855881

%N Smallest prime >= 8^n.

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

%t NextPrime/@(8^Range[0,20]) (* _Harvey P. Dale_, May 06 2013 *)

%o (PARI) g(n,b) = for(x=0,n,print1(nextprime(b^x)",")) \\ _Cino Hilliard_, Mar 03 2005

%Y Cf. A001018.

%K nonn

%O 0,1

%A _Robert G. Wilson v_, Aug 14 2001

%E Edited by _N. J. A. Sloane_ at the suggestion of _Andrew S. Plewe_, May 16 2007