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,2

Links

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

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

Prog

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

Crossrefs

Cf. A069088.

Sequence in context: A112742 A158494 A209456 * A264184 A354476 A211071

Adjacent sequences: A069142 A069143 A069144 * A069146 A069147 A069148

Keyword

easy,nonn

Author

Benoit Cloitre, Apr 08 2002

Status

approved