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 A348882 #26 Dec 23 2021 12:39:35 %S A348882 16,48,72,96,144,432,576,1296,2592,5184,20736,32805,221184,1555200, %T A348882 11197440,55987200,95551488,268738560,302330880,382205952,524880000, %U A348882 671846400,6718464000,34012224000,155520000000,403107840000,6856864358400,107495424000000,110075314176000 %N A348882 Numbers that are expressible as the product of the number of distinct prime factors of preceding integers. %e A348882 The number of distinct prime factors of the numbers 15, 14, 13, 12, 11, 10 are respectively 2, 2, 1, 2, 1, 2 and 2*2*1*2*1*2 = 16, hence 16 is a term. %t A348882 om[n_] := om[n] = PrimeNu[n]; q[n_] := Module[{m = n, k = n - 1}, While[k > 1 && Divisible[m, om[k]], m /= om[k]; k--]; m == 1]; Select[Range[2, 10^6], q] (* _Amiram Eldar_, Nov 02 2021 *) %Y A348882 Cf. A001221, A000961, A007774, A033992, A033993, A051270, A074969, A176655, A348266. %K A348882 nonn %O A348882 1,1 %A A348882 _Metin Sariyar_, Nov 02 2021 %E A348882 a(13)-a(17) from _Amiram Eldar_, Nov 02 2021 %E A348882 More terms from _David A. Corneth_, Nov 02 2021