|
%I
%S 0,0,1,0,2,0,1,2,0,1,4,2,6,1,1,0,8,3,8,4,6,4,8,4,0,3,9,6,14,2,9,8,10,
%T 6,10,0,18,6,6,8,20,4,21,10,12,9,18,8,0,9,14,12,26,8,11,12,18,13,26,8,
%U 30,11,17,0,24,6,34,16,22,10,28,12,36,13,18,18,30,10,28,16,0,18,39,12,32
%N a(n) = #{ 1<=i<=n : k(n,i)=-1 } where k(n,i) is the Kronecker symbol.
%C a(A096398(n)) = 0; a(n) = A000010(n) - A096396(n) = A096396(n) - A071961(n). [_Reinhard Zumkeller_, Mar 24 2012]
%H _Reinhard Zumkeller_, <a href="/A096397/b096397.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,5
%A _Benoit Cloitre_, Aug 06 2004
|
