%I #10 Sep 03 2020 06:41:04
%S 1,4,24,81,90,112,162,324,360,384,648,810,864,960,1024,1944,2592,2688,
%T 3072,3240,3456,3969,4320,5040,5488,5760,7128,7168,7776,8640,9000,
%U 9072,9504,10368,11025,11200,15360,15876,17280,18144,21168,21504,23296
%N Numbers k such that A069088(k) divides k.
%H Amiram Eldar, <a href="/A069145/b069145.txt">Table of n, a(n) for n = 1..1000</a>
%t f[p_, e_] := If[OddQ[e], (p + 1)*(e + 1)/2, (p + 1)*e/2 + 1]; s[1] = 1; s[n_] := Times @@ (f @@@ FactorInteger[n]); Select[Range[25000], Divisible[#, s[#]] &] (* _Amiram Eldar_, Sep 03 2020 *)
%o (PARI) for(n=1,35000,if(n%sumdiv(n,d,core(d))==0,print1(n,",")))
%Y Cf. A069088.
%K easy,nonn
%O 1,2
%A _Benoit Cloitre_, Apr 08 2002
|