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 A303482 #29 Feb 16 2025 08:33:54
%S A303482 2,5,81,10742,10130527,1041972864,23292549600
%N A303482 Numbers k such that the average of all distinct prime factors of all positive integers <= k is an integer.
%C A303482 Numbers k such that A013939(k)|A024924(k).
%H A303482 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/DistinctPrimeFactors.html">Distinct Prime Factors</a>
%e A303482 5 is in the sequence because the distinct prime factors of 2, 3, 4, and 5 are 2, 3, 2 and 5 respectively and their average (2 + 3 + 2 + 5) / 4 = 3 is an integer. - _David A. Corneth_, Apr 26 2018
%t A303482 s = t = 0; k = 2; lst = {}; While[k < 1000000000, p = #[[1]] & /@ FactorInteger@ k; s = s + Plus @@ p; t = t + Length@ p; If[ Mod[s, t] == 0, AppendTo[lst, k]]; k++]; lst (* _Robert G. Wilson v_, Apr 26 2018 *)
%Y A303482 Cf. A001221, A008472, A013939, A024924, A078174, A078175, A226647, A284755, A303480.
%K A303482 nonn,more
%O A303482 1,1
%A A303482 _Ilya Gutkovskiy_, Apr 24 2018
%E A303482 a(5) from _Daniel Suteu_, Apr 24 2018
%E A303482 a(6)-a(7) from _Giovanni Resta_, Apr 26 2018