|
%I #15 Jan 24 2023 06:58:15
%S 1,3,13,45,121,299,705,1603,3653,8141,17841,38849,83991,180475,386063,
%T 821609,1742503,3681095,7754039,16290007,34135987,71378525,148948093,
%U 310248193,645155147,1339484145,2777105075,5750078991,11891268343,24563311249,50685770105
%N a(n) = prime(2^n) - 2*n.
%F a(n) = A033844(n) - A005843(n).
%e a(1) = prime(2^1) - 2*1 = prime(2) - 2 = 3 - 2 = 1;
%e a(4) = prime(2^4) - 2*4 = prime(16) - 8 = 53 - 8 = 45.
%p seq(ithprime(2^n)-2*n,n=1..24); # _Emeric Deutsch_, Aug 27 2008
%t Table[Prime[2^n]-2n,{n,30}] (* _Harvey P. Dale_, Oct 11 2014 *)
%o (PARI) a(n) = prime(2^n) - 2*n; \\ _Michel Marcus_, Mar 25 2019
%Y Cf. A033844, A005843.
%K nonn
%O 1,2
%A _Juri-Stepan Gerasimov_, Jul 31 2008
%E Corrected and extended by _Emeric Deutsch_, Aug 27 2008
%E More terms from _Harvey P. Dale_, Oct 11 2014
|
