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 A091286 #12 Aug 13 2019 11:22:58 %S A091286 15,85,259,295,391,589,799,1111,1717,3193,4171,4369,12361,17473,23533, %T A091286 25429,28243,31351,34477,36181,41407,47989,51143,52537,58103,65641, %U A091286 68377,69541,69919,70453,72619,81121,83131,83767,85069,91759 %N A091286 Numbers n such that sigma_3(n) is divisible by square of cototient of n, while n is not a prime number. %H A091286 Amiram Eldar, <a href="/A091286/b091286.txt">Table of n, a(n) for n = 1..1000</a> %e A091286 n=15: cototient(15) = 7, sigma_3(15) = 3528 = 72 * 49. %t A091286 Do[s=DivisorSigma[3, n]/(n-EulerPhi[n])^2; If[IntegerQ[s]&&!PrimeQ[n], Print[n]], {n, 1, 100000}] %o A091286 (PARI) isok(n) = (n!=1) && !isprime(n) && !(sigma(n, 3)%(n-eulerphi(n))^2); \\ _Michel Marcus_, Aug 13 2019 %Y A091286 Cf. A051953, A001158, A091285. %K A091286 nonn %O A091286 1,1 %A A091286 _Labos Elemer_, Feb 03 2004