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 A349020 #11 Aug 06 2024 06:09:13 %S A349020 12,36,40,60,84,120,132,150,156,180,204,208,228,252,270,276,280,348, %T A349020 360,372,396,420,440,444,468,492,516,520,540,544,564,600,612,624,636, %U A349020 660,680,684,708,732,760,780,804,828,840,852,876,920,924,948,996,1020,1040 %N A349020 Modified e-perfect numbers (A349019) that are not squarefree. %C A349020 Since all the squarefree numbers (A005117) are modified e-perfect numbers, these are the nontrivial terms of A349019. %H A349020 Amiram Eldar, <a href="/A349020/b349020.txt">Table of n, a(n) for n = 1..10000</a> %H A349020 József Sándor, <a href="https://citeseerx.ist.psu.edu/pdf/2936ca1cfcb9e3673ed4165dca32dbee1f4070f5">On exponentially harmonic numbers</a>, Scientia Magna, Vol. 2, No. 3 (2006), pp. 44-47. %H A349020 József Sándor, <a href="https://blngcc.files.wordpress.com/2008/11/jozsel-sandor-selected-chaters-of-geometry-analysis-and-number-theory.pdf">Selected Chapters of Geomety, Analysis and Number Theory</a>, 2005, pp. 141-145. %e A349020 12 = 2^2 * 3 is a term since it is not squarefree and A348963(12) = 3 is a divisor of 12. %t A349020 f[p_, e_] := p^e/DivisorSum[e, p^(e - #) &]; modEPerfQ[1] = True; modEPerfQ[n_] := IntegerQ[Times @@ f @@@ FactorInteger[n]]; Select[Range[1000], ! SquareFreeQ[#] && modEPerfQ[#] &] %Y A349020 Intersection of A013929 and A349019. %Y A349020 A348965 is a subsequence. %Y A349020 Cf. A005117. %K A349020 nonn %O A349020 1,1 %A A349020 _Amiram Eldar_, Nov 06 2021