A069145 Numbers k such that A069088(k) divides k.

1, 4, 24, 81, 90, 112, 162, 324, 360, 384, 648, 810, 864, 960, 1024, 1944, 2592, 2688, 3072, 3240, 3456, 3969, 4320, 5040, 5488, 5760, 7128, 7168, 7776, 8640, 9000, 9072, 9504, 10368, 11025, 11200, 15360, 15876, 17280, 18144, 21168, 21504, 23296

Offset: 1

Author

Benoit Cloitre, Apr 08 2002

Keywords

• easy
• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A069088.

Programs

Mathematica

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 *)

PARI

for(n=1,35000,if(n%sumdiv(n,d,core(d))==0,print1(n,",")))