|
%I #12 Jul 24 2016 20:46:15
%S 1,2,3,4,6,8,9,12,16,18,19,24,25,27,29,31,32,36,37,38,47,48,50,53,54,
%T 55,57,58,59,62,64,65,72,74,75,76,81,83,85,87,93,94,96,100,103,106,
%U 108,109,110,111,113,114,115,116,118,121,124,128,130,131,137,139
%N Numbers n such that A089509(n)=1.
%C The original name was: Kronecker(7,y) == mu(gcd(7,y)).
%H Matthew House, <a href="/A074230/b074230.txt">Table of n, a(n) for n = 1..10000</a>
%p select(t -> numtheory:-jacobi(7,t)=1, [$1..1000]); # _Robert Israel_, Jul 24 2016
%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)))))
%Y Cf. A089509.
%K nonn
%O 1,2
%A _Jon Perry_, Sep 17 2002
%E Name simplified by _Robert Israel_, Jul 24 2016.
|
