|
%I #18 Aug 13 2019 04:55:09
%S 1,1,1,3,1,7,3,27,1,3,7,15,43,15,3,3,15,25,31,7,15,15,7,15,21,55,21,
%T 159,81,69,33,135,13,9,33,25,15,37,15,7,13,9,3,27,7,133,25,129,61,7,
%U 277,267,111,99,33,27,25,43,33,25,451,277,67,7,51,169,67,27,85,87
%N a(n) = nextprime(4^n)-4^n.
%H Daniel Starodubtsev, <a href="/A013602/b013602.txt">Table of n, a(n) for n = 0..1000</a>
%F a(n) = A104082(n) - A000302(n). - _Michel Marcus_, Aug 13 2019
%F a(n) = A013597(2*n), n >= 0. - _A.H.M. Smeets_, Aug 13 2019
%p seq(nextprime(4^i)-4^i,i=0..100);
%t np4[n_]:=Module[{c=4^n},NextPrime[c]-c]; Array[np4,70,0] (* _Harvey P. Dale_, Jan 23 2012 *)
%o (PARI) a(n) = nextprime(4^n)-4^n; \\ _Michel Marcus_, Aug 13 2019
%Y Cf. A000302, A104082.
%K nonn
%O 0,4
%A James Kilfiger (mapdn(AT)csv.warwick.ac.uk)
|
