%I #11 Feb 15 2014 12:31:57
%S 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,
%T 7,17,3,39,133,105,61,255,267,39,33,51,43,29,451,165,7,17,67,33,87,5,
%U 175,51,147,95,45,299,19,141,87,129,7,75,15,215,205,35,133,35,15,351,7,203
%N Nextprime(8^n)-8^n.
%C "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
%t np[n_]:=Module[{n8=8^n},NextPrime[n8]-n8]; Array[np,70,0] (* _Harvey P. Dale_, Jun 20 2011 *)
%Y Cf. A013597, A013598, A013602, A013599, A013600, A013601, A127796, A033873, A127797, A127798, A127799.
%K nonn
%O 0,2
%A _Artur Jasinski_, Jan 29 2007
%E Erroneous Mathematica program deleted by _Harvey P. Dale_, Jun 20 2011