|
%I #25 Jul 01 2016 11:46:52
%S -2,3,-5,7,-11,13,-17,19,-23,29,-31,37,-41,43,-47,53,-59,61,-67,71,
%T -73,79,-83,89,-97,101,-103,107,-109,113,-127,131,-137,139,-149,151,
%U -157,163,-167,173,-179,181,-191,193,-197,199,-211,223,-227,229,-233,239,-241,251,-257,263,-269,271
%N a(n) = (-1)^n*prime(n).
%F a(n) = A000040(n)*A033999(n). - _Felix Fröhlich_, Jun 15 2016
%e a(1) = 2*(-1)^1 = -2.
%e a(2) = 3*(-1)^2 = 3.
%e a(3) = 5*(-1)^3 = -5.
%t Table[Prime[n]*(-1)^n,{n,1,70}]
%t Table[If[OddQ[n],-Prime[n],Prime[n]],{n,70}] (* _Harvey P. Dale_, Jul 01 2016 *)
%o (PARI) a(n) = prime(n)*(-1)^n \\ _Felix Fröhlich_, Jun 15 2016
%Y Cf. A000040, A083236.
%K sign
%O 1,1
%A _Terry D. Grant_, Jun 12 2016
|
