A127795 Nextprime(8^n)-8^n.

1, 3, 3, 9, 3, 3, 3, 17, 43, 29, 3, 17, 31, 23, 15, 59, 21, 21, 159, 9, 33, 29, 9, 29, 15, 33, 7, 17, 3, 39, 133, 105, 61, 255, 267, 39, 33, 51, 43, 29, 451, 165, 7, 17, 67, 33, 87, 5, 175, 51, 147, 95, 45, 299, 19, 141, 87, 129, 7, 75, 15, 215, 205, 35, 133, 35, 15, 351, 7, 203

Offset

0,2

Comments

"Nextprime(k)" is not well-defined: it can mean the smallest prime >= k or the smallest prime > k. Of course here it does not matter. - N. J. A. Sloane, Jan 31 2007

Links

Table of n, a(n) for n=0..69.

Mathematica

np[n_]:=Module[{n8=8^n}, NextPrime[n8]-n8]; Array[np, 70, 0] (* Harvey P. Dale, Jun 20 2011 *)

Crossrefs

Cf. A013597, A013598, A013602, A013599, A013600, A013601, A127796, A033873, A127797, A127798, A127799.

Sequence in context: A144809 A353616 A225074 * A074724 A109932 A071909

Adjacent sequences: A127792 A127793 A127794 * A127796 A127797 A127798

Keyword

nonn

Author

Artur Jasinski, Jan 29 2007

Extensions

Erroneous Mathematica program deleted by Harvey P. Dale, Jun 20 2011

Status

approved