login
Numbers n such that Kronecker(3,n) = 1.
1

%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