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 A078544 #12 Jun 23 2019 13:15:33 %S A078544 38,54,87,95,114,126,135,147,174,182,209,215,216,222,258,285,294,297, %T A078544 315,430,455,456,540,546,551,609,627,632,635,645,762,783,836,899,957, %U A078544 1015,1032,1102,1107,1118,1140,1188,1211,1218,1270,1290,1330,1343,1349 %N A078544 Non-balanced numbers in A015761. %H A078544 Amiram Eldar, <a href="/A078544/b078544.txt">Table of n, a(n) for n = 1..10000</a> %F A078544 Mod[sigma[3, a(n)], phi[a(n)]]=0; Mod[sigma[1, a(n)], phi[a(n)]]><0. %t A078544 Select[Range[1350], Divisible[DivisorSigma[3, #],(phi = EulerPhi[#])] && !Divisible[DivisorSigma[1, #], phi] &] (* _Amiram Eldar_, Jun 23 2019 *) %o A078544 (PARI) isok(k) = my(phi=eulerphi(k)); ((sigma(k, 3) % phi) == 0) && (sigma(k) % phi); \\ _Michel Marcus_, Jun 23 2019 %Y A078544 Cf. A015761, A020492, A000005, A000010, A078539. %K A078544 nonn %O A078544 1,1 %A A078544 _Labos Elemer_, Dec 05 2002