login
Numbers k such that Sum_{d|k} d/tau(d) is an integer, where tau(x)=A000005(x).
2

%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