login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A069145 Numbers k such that A069088(k) divides k. 1

%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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 10:55 EDT 2024. Contains 371241 sequences. (Running on oeis4.)