proposed
approved
proposed
approved
editing
proposed
Amiram Eldar, <a href="/A291566/b291566.txt">Table of n, a(n) for n = 1..5000</a>
balQ[n_] := Divisible[DivisorSigma[1, n], EulerPhi[n]]; nonprimQ[n_] := balQ[n] && Module[{d = Divisors[n], ans = False}, Do[If[GCD[d[[k]], n/d[[k]]]==1 && balQ[ d[[k]]] && balQ[n/d[[k]]], ans=True; Break[]], {k, 2, Floor[Length[d]/2]}]; ans]; Select[Range[50000], nonprimQ] (* Amiram Eldar, Jun 26 2019 *)
approved
editing
proposed
approved
editing
proposed
Non-primitive balanced numbers: balanced numbers of the form m*n where m, n > 1 are both balanced.
A positive integer, n, is a balanced number (A020492) if sigma(n) is a multiple of phi(n). Since Phi phi and Sigma sigma are multiplicative functions, if m and n are balanced numbers and gcd(m,n)=1, mn is also a balanced number. This sequence consists of only these imprimitive terms.
This sequence eliminates these "non-primitive" terms.
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed