%I #13 Sep 08 2022 08:45:53
%S 1,5,8,11,16,19,24,27,32,39,42,49,54,57,62,69,76,79,86,91,94,101,106,
%T 113,122,127,130,135,138,143,158,163,170,173,184,187,194,201,206,213,
%U 220,223,234,237,242,245,258,271,276,279,284,291,294,305,312,319,326
%N a(n) = prime(n) - n*(-1)^prime(n).
%C Unit together with n-th odd prime + n + 1.
%H Harvey P. Dale, <a href="/A176628/b176628.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n+1) = A014688(n+1).
%e a(1) = prime(1) - 1*(-1)^prime(1) = 2-1 = 1.
%t np[n_]:=Module[{npr=Prime[n]},npr-n (-1)^npr];Array[np,60] (* _Harvey P. Dale_, Oct 08 2011 *)
%o (Magma) [1]cat[NthPrime(n) +n: n in [2..60]]; // _G. C. Greubel_, Jul 01 2021
%o (Sage) [1]+[nth_prime(n) +n for n in (2..60)] # _G. C. Greubel_, Jul 01 2021
%K nonn
%O 1,2
%A _Juri-Stepan Gerasimov_, Apr 22 2010
%E Entries checked by _R. J. Mathar_, Apr 27 2010
|