%I #13 Jul 13 2013 12:03:14
%S 1,1,1,2,2,2,5,2,6,3,6,2,6,5,7,8,8,3,10,4,6,6,14,4,20,9,9,6,14,6,21,8,
%T 10,10,14,12,18,12,18,8,20,8,21,10,12,13,28,8,42,11,18,12,26,10,29,12,
%U 18,15,32,8,30,19,19,32,24,14,32,16,22,14,42,12,36,23,22,18,30,14,50,16
%N a(n) = #{1<=i<=n: k(n,i) = +1} where k(n,i) is the Kronecker symbol.
%C a(n) = A000010(n) - A096397(n) = A071961(n) + A096397(n). [_Reinhard Zumkeller_, Mar 24 2012]
%H Reinhard Zumkeller, <a href="/A096396/b096396.txt">Table of n, a(n) for n = 1..10000</a>
%o (PARI) a(n)=sum(i=1,n,if(kronecker(n,i)-1,0,1))
%Y Cf. A000010, A051953.
%K nonn
%O 1,4
%A _Benoit Cloitre_, Aug 06 2004
%E Typo in definition fixed by _Reinhard Zumkeller_, Mar 24 2012
|