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 A007624 M4824 #26 Nov 20 2019 11:55:05
%S A007624 12,18,20,24,28,30,32,40,42,44,45,48,50,52,54,56,60,63,66,68,70,72,75,
%T A007624 76,78,80,84,88,90,92,96,98,99,102,104,105,108,110,112,114,116,117,
%U A007624 120,124,126,128,130,132,135,136,138,140,147,148,150,152,153,154
%N A007624 Numbers m such that the product of proper divisors of m = m^k, k>1.
%D A007624 A. H. Beiler, Recreations in the Theory of Numbers, Dover, NY, 1964, p. 23.
%D A007624 N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H A007624 Amiram Eldar, <a href="/A007624/b007624.txt">Table of n, a(n) for n = 1..10000</a>
%F A007624 d(n) > 4 and even.
%F A007624 a(n) = n + O(n/log n). - _Charles R Greathouse IV_, Oct 23 2015
%t A007624 ppdQ[n_]:=Module[{c=Log[n,Times@@Most[Divisors[n]]]},c>1&&IntegerQ[c]]; Select[Range[2,160],ppdQ] (* _Harvey P. Dale_, Mar 06 2012 *)
%t A007624 Select[Range[154], EvenQ[(d = DivisorSigma[0,#])] && d > 4 &] (* _Amiram Eldar_, Nov 20 2019 *)
%Y A007624 Cf. A000005, A007956.
%K A007624 nonn,easy
%O A007624 1,1
%A A007624 _N. J. A. Sloane_, _Robert G. Wilson v_, _Mira Bernstein_