%I #6 Nov 21 2013 12:49:02
%S 1,1,5,5,7,7,7,25,5,31,49,31,35,25,23,11,17,29,47,103,7,5,7,23,133,19,
%T 5,13,7,215,89,5,53,89,17,35,257,29,19,193,13,121,79,71,53,61,287,61,
%U 107,125,5,203,23,119,89,5,95,61,7,29,191,211,119,31,377,37,49,89,161,5,785
%N Nextprime(12^n)-12^n.
%t << NumberTheory`NumberTheoryFunctions` a = {}; Do[k = NextPrime[12^x] - 12^x; AppendTo[a, k], {x, 0, 100}]; a
%t f[n_]:=Module[{c=12^n},NextPrime[c]-c]; f/@Range[0,100] (* _Harvey P. Dale_, Mar 19 2011 *)
%Y Cf. A013597, A013598, A013602, A013599, A013600, A013601, A127796, A033873, A127795, A127796, A127797, A127799.
%K nonn
%O 0,3
%A _Artur Jasinski_, Jan 29 2007