|
%I #10 Nov 21 2013 12:49:02
%S 1,4,4,6,10,6,4,6,18,46,4,34,22,16,58,4,72,28,42,34,30,166,60,16,136,
%T 46,94,66,276,30,70,136,70,18,60,142,228,10,462,12,28,166,138,12,376,
%U 16,180,102,222,228,102,126,108,46,24,172,162,6,114,6,108,6,72,84,22,70
%N Nextprime(13^n)-13^n.
%t np13[n_]:=Module[{c=13^n},NextPrime[c]-c]; Array[np13,70,0] (* _Harvey P. Dale_, Mar 31 2012 *)
%Y Cf. A013597, A013598, A013602, A013599, A013600, A013601, A127796, A033873, A127795, A127796, A127797, A127798.
%K nonn
%O 0,2
%A _Artur Jasinski_, Jan 29 2007
|
