Voozh

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

(list; graph; refs; listen; history; text; internal format)

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

URL: https://oeis.org/A069145

⇱ A069145 - OEIS