cp's OEIS Frontend

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.

A091286 Numbers n such that sigma_3(n) is divisible by square of cototient of n, while n is not a prime number.

This page as a plain text file.
%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