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 A362948 #12 Jul 27 2023 15:21:49 %S A362948 5,6,12,18,24,25,36,48,54,72,96,108,125,144,162,192,216,288,324,384, %T A362948 432,486,576,625,648,768,864,972,1152,1296,1458,1536,1728,1944,2304, %U A362948 2592,2916,3072,3125,3456,3888,4374,4608,5184,5832,6144,6912,7776,8748,9216,10368,11664,12288 %N A362948 Numbers whose sum of (distinct) prime divisors (A008472) equals 5. %H A362948 Amiram Eldar, <a href="/A362948/b362948.txt">Table of n, a(n) for n = 1..1000</a> %F A362948 Union of A000351 = {5^k ; k > 0} and A033845 = {2^j*3^k, j,k > 0}. %F A362948 Sum_{n>=1} 1/a(n) = 3/4. - _Amiram Eldar_, Jul 27 2023 %t A362948 seq[max_] := Union[Join[5^Range[Floor[Log[5, max]]], Flatten@ Table[2^i*3^j, {i, 1, Log2[max]}, {j, 1, Log[3, max/2^i]}]]]; seq[13000] (* _Amiram Eldar_, Jul 27 2023 *) %o A362948 (PARI) select( {is_A362948(n)=vecsum(factor(n,0)[,1])==5}, [1..11^4]) \\ alternatively: [n | n<-[1..11^4], A008472(n)==5] %Y A362948 Cf. A008472 (sopf), A000351 (5^n), A033845 (2^m*3^n). %K A362948 nonn,easy %O A362948 1,1 %A A362948 _M. F. Hasler_, Jul 20 2023