login
A348882
Numbers that are expressible as the product of the number of distinct prime factors of preceding integers.
0
16, 48, 72, 96, 144, 432, 576, 1296, 2592, 5184, 20736, 32805, 221184, 1555200, 11197440, 55987200, 95551488, 268738560, 302330880, 382205952, 524880000, 671846400, 6718464000, 34012224000, 155520000000, 403107840000, 6856864358400, 107495424000000, 110075314176000
OFFSET
1,1
EXAMPLE
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.
MATHEMATICA
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 *)
KEYWORD
nonn
AUTHOR
Metin Sariyar, Nov 02 2021
EXTENSIONS
a(13)-a(17) from Amiram Eldar, Nov 02 2021
More terms from David A. Corneth, Nov 02 2021
STATUS
approved