Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #26 Dec 23 2021 12:39:35
%S 16,48,72,96,144,432,576,1296,2592,5184,20736,32805,221184,1555200,
%T 11197440,55987200,95551488,268738560,302330880,382205952,524880000,
%U 671846400,6718464000,34012224000,155520000000,403107840000,6856864358400,107495424000000,110075314176000
%N Numbers that are expressible as the product of the number of distinct prime factors of preceding integers.
%e 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 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 Cf. A001221, A000961, A007774, A033992, A033993, A051270, A074969, A176655, A348266.
%K nonn
%O 1,1
%A _Metin Sariyar_, Nov 02 2021
%E a(13)-a(17) from _Amiram Eldar_, Nov 02 2021
%E More terms from _David A. Corneth_, Nov 02 2021