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 *)
CROSSREFS
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