The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #13 Apr 03 2022 01:29:56
%S 1,2,10,12,78,198,1278,1470,1491,2376,2472,6768,7659,7774,9858,10912,
%T 11904,12862,16660,25758,35586,38976,39102,40986,41144,44688,59520,
%U 72961,80304,84084,94365,104328,119070,153370,174966,200970,230040,291696,358680,376404
%N Numbers k such that k | sigma_3(k) - phi(k)^3.
%C sigma_3(k) is the sum of the cubes of the divisors of n (A001158).
%H Amiram Eldar, <a href="/A055697/b055697.txt">Table of n, a(n) for n = 1..282</a> (terms below 10^10)
%t Do[If[Mod[DivisorSigma[3, n]-EulerPhi[n]^3, n]==0, Print[n]], {n, 1, 2*10^5}]
%Y Cf. A000010, A001158, A055970.
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Jun 09 2000
%E More terms from _Sean A. Irvine_, Apr 03 2022