Balanced numbers n such that n mod 12 = 5. All have balance quotient sigma(n)/phi(n) equal to 2 or 3. List checked out to 0<=m<=1000000 where n=12*m+5.
with(numtheory); BNM5:=[]: for z from 1 to 1 do for m from 1 to 1000000 do n:=12*m+5; if sigma(n) mod phi(n) = 0 then BNM5:=[op(BNM5), n] fi; od; od; BNM5;
