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 A070161 #9 Oct 15 2013 22:31:18 %S A070161 15,35,95,119,143,209,287,319,323,377,527,559,779,899,903,923,989, %T A070161 1007,1189,1199,1343,1349,1763,1919,2159,2507,2759,2911,3239,3599, %U A070161 3827,4031,4607,5183,5207,5249,5459,5543,6439,6887,7067,7279,7739,8159,8639,9179 %N A070161 Nonprime numbers n such that q=phi(n)/(sigma(n)-n-1) is an integer and n is not a prime square. %H A070161 Donovan Johnson, <a href="/A070161/b070161.txt">Table of n, a(n) for n = 1..10000</a> %F A070161 q=A000010(n)/A048050(n) and n is not in A001248. %e A070161 n=35: phi(35)=24, sigma(35)=1+5+7+35=48, chowla(35)=12, quotient=2 %t A070161 Do[s=EulerPhi[n]/(DivisorSigma[1, n]-n-1); If[ !PrimeQ[n]&&!PrimeQ[Sqrt[n]]&&IntegerQ[s], Print[n]], {n, 2, 100000}] %Y A070161 Cf. A000010, A001065, A000203, A048050, A055940, A070159, A070160, A070037 A020492, A068418, A062972. %K A070161 nonn %O A070161 1,1 %A A070161 _Labos Elemer_, Apr 26 2002