This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A077803 #13 Apr 11 2024 04:07:26 %S A077803 235,329,470,658,695,705,799,807,940,987,1316,1390,1410,1529,1598, %T A077803 1614,1645,1786,1880,1969,1974,2085,2115,2397,2632,2734,2820,3055, %U A077803 3058,3290,3478,3938,3948,4136,4170,4230,4465,4587,4794,4935,5264,5358,5593,5640 %N A077803 Non-balanced numbers in A015769. %H A077803 Amiram Eldar, <a href="/A077803/b077803.txt">Table of n, a(n) for n = 1..10000</a> %F A077803 sigma_11(a(n)) mod phi(a(n)) = 0; sigma(a(n)) mod phi(a(n)) <> 0. %t A077803 q[n_] := Sign[Mod[DivisorSigma[{1, 11}, n], EulerPhi[n]]] == {1, 0}; Select[Range[6000], q] (* _Amiram Eldar_, Apr 11 2024 *) %o A077803 (PARI) is(n) = {my(f = factor(n), phi = eulerphi(f)); (sigma(f) % phi) && !(sigma(f, 11) % phi);} \\ _Amiram Eldar_, Apr 11 2024 %Y A077803 Cf. A000010, A000203, A013959, A015769, A020492, A078539. %Y A077803 Cf. A074866, A074868, A077801, A078544, A078549, A078550. %K A077803 nonn %O A077803 1,1 %A A077803 _Labos Elemer_, Dec 05 2002