%I #9 Jul 01 2019 11:40:48
%S 14,58,175,244,833,1017,1348,8653,33263,33497,33611,34099,34151,34529,
%T 34771,36281,36449,36743,37367,37373,38311,38695,38735,38915,39035,
%U 39263,39295,39431,39995,41015,41635,42119,46209,46617,46731,47067,49911,50007,50871
%N Numbers k such that j(k)*phi(k) = sigma(phi(k)), j(k) = A033831(k).
%H Amiram Eldar, <a href="/A033856/b033856.txt">Table of n, a(n) for n = 1..406</a>
%t j[n_] := DivisorSum[n, 1&, # > 2 && n/# < #-1 &]; aQ[n_] := j[n]*(p = EulerPhi[ n]) == DivisorSigma[1, p]; Select[Range[10^4], aQ] (* _Amiram Eldar_, Jul 01 2019 *)
%Y Cf. A000010, A000203, A033831, A033855.
%K easy,nonn
%O 1,1
%A _Naohiro Nomoto_
%E More terms from _Amiram Eldar_, Jul 01 2019
|