This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A069145 #10 Sep 03 2020 06:41:04 %S A069145 1,4,24,81,90,112,162,324,360,384,648,810,864,960,1024,1944,2592,2688, %T A069145 3072,3240,3456,3969,4320,5040,5488,5760,7128,7168,7776,8640,9000, %U A069145 9072,9504,10368,11025,11200,15360,15876,17280,18144,21168,21504,23296 %N A069145 Numbers k such that A069088(k) divides k. %H A069145 Amiram Eldar, <a href="/A069145/b069145.txt">Table of n, a(n) for n = 1..1000</a> %t A069145 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 A069145 (PARI) for(n=1,35000,if(n%sumdiv(n,d,core(d))==0,print1(n,","))) %Y A069145 Cf. A069088. %K A069145 easy,nonn %O A069145 1,2 %A A069145 _Benoit Cloitre_, Apr 08 2002