%I #18 Feb 14 2021 12:59:17
%S 1,2,6,10,14,18,22,26,28,34,38,46,52,56,58,62,74,76,82,86,94,104,106,
%T 118,122,124,134,142,146,148,152,158,166,168,172,178,194,202,206,208,
%U 214,218,226,244,248,254,262,268,274,278,280,292,296,298,302,312,314
%N Numbers k such that Sum_{d|k} d/tau(d) is an integer, where tau(x)=A000005(x).
%t Select[Range[1000], IntegerQ[Sum[k/DivisorSigma[0, k], {k, Divisors[#]}]] &] (* _Vaclav Kotesovec_, Mar 22 2019 *)
%Y Cf. A182463.
%K easy,nonn
%O 1,2
%A _Benoit Cloitre_, Apr 06 2002