|
%I #13 Apr 11 2024 04:07:26
%S 235,329,470,658,695,705,799,807,940,987,1316,1390,1410,1529,1598,
%T 1614,1645,1786,1880,1969,1974,2085,2115,2397,2632,2734,2820,3055,
%U 3058,3290,3478,3938,3948,4136,4170,4230,4465,4587,4794,4935,5264,5358,5593,5640
%N Non-balanced numbers in A015769.
%H Amiram Eldar, <a href="/A077803/b077803.txt">Table of n, a(n) for n = 1..10000</a>
%F sigma_11(a(n)) mod phi(a(n)) = 0; sigma(a(n)) mod phi(a(n)) <> 0.
%t q[n_] := Sign[Mod[DivisorSigma[{1, 11}, n], EulerPhi[n]]] == {1, 0}; Select[Range[6000], q] (* _Amiram Eldar_, Apr 11 2024 *)
%o (PARI) is(n) = {my(f = factor(n), phi = eulerphi(f)); (sigma(f) % phi) && !(sigma(f, 11) % phi);} \\ _Amiram Eldar_, Apr 11 2024
%Y Cf. A000010, A000203, A013959, A015769, A020492, A078539.
%Y Cf. A074866, A074868, A077801, A078544, A078549, A078550.
%K nonn,changed
%O 1,1
%A _Labos Elemer_, Dec 05 2002
|
