|
%I #26 Jun 18 2018 11:44:39
%S 1,1,-1,1,1,-1,-1,1,1,1,1,-1,-1,1,1,1,1,-1,-1,1,1,1,1,-1,-1,-1,-1,-1,
%T -1,1,1,-1,-1,-1,-1,-1,-1,1,1,1,1,-1,-1,1,1,1,1,-1,-1,-1,-1,-1,-1,1,1,
%U 1,1,1,1,-1,-1,1,1,1,1,1,1,-1,-1,-1,-1,1,1,-1,-1,-1,-1,-1,-1,1,1,1,1,-1,-1,-1,-1,-1,-1,1,1,1,1,1,1,1,1,-1,-1,-1,-1,1,1
%N a(n) = (-1)^pi(n) where pi(n) is the number of primes <= n.
%H N. J. A. Sloane, <a href="/A065357/b065357.txt">Table of n, a(n) for n = 0..10000</a> (First 1000 terms from Harry J. Smith)
%t (-1)^PrimePi[Range[0,110]] (* _Harvey P. Dale_, Nov 02 2015 *)
%o (PARI) { for (n=0, 1000, if (n, a=(-1)^primepi(n), a=1); write("b065357.txt", n, " ", a) ) } \\ _Harry J. Smith_, Sep 30 2009
%Y Cf. A000720, A065358.
%K easy,sign
%O 0,1
%A _Jason Earls_, Oct 31 2001
|
