|
%I #20 Feb 16 2018 20:31:02
%S 1,4,10,11,13,14,16,23,25,34,35,37,38,40,44,47,49,52,56,58,59,61,62,
%T 64,71,73,82,83,85,86,92,95,97,100,106,107,109,110,119,121,130,131,
%U 133,134,136,140,143,145,148,152,154,155,157,158,160,167,169,176,178,179
%N Numbers n such that Kronecker(3,n) = 1.
%C Numbers n such that Kronecker(3, n) = mu(gcd(n, 3)).
%H Indranil Ghosh, <a href="/A074226/b074226.txt">Table of n, a(n) for n = 0..1665</a>
%F a(n) seems to be asymptotic to c*n with c=3. - _Benoit Cloitre_, Sep 18 2002
%t Select[Range@ 180, KroneckerSymbol[3, #]== 1 &] (* _Indranil Ghosh_, Mar 16 2017 *)
%o (PARI) for (x=1,200, for (y=1,200,if (kronecker(x,y)==moebius(gcd(x,y)),write("km.txt",x,";",y," : ",kronecker(x,y)))))
%o (PARI) is(n)=kronecker(3,n)>0 \\ _Charles R Greathouse IV_, Apr 06 2012
%Y Cf. A074227, A047209, A074229.
%K nonn
%O 0,2
%A _Jon Perry_, Sep 17 2002
%E Definition simplified by _Charles R Greathouse IV_, Apr 06 2012
|
