OFFSET
1,1
COMMENTS
a(n) is the least number k such that A335097(k) = n.
LINKS
Eric Weisstein's World of Mathematics, Prime Factor.
EXAMPLE
The smallest number having 9 smaller numbers (4, 6, 9, 10, 14, 15, 21, 22 and 25) with the same number of prime factors (counted with multiplicity) is 26, so a(9) is 26.
MATHEMATICA
a[n_]:=Module[{k = 1, m, cnt}, While[True, m = PrimeOmega[k]; cnt = Sum[Boole[PrimeOmega[i] == m], {i, 2, k - 1}]; If[cnt == n, Return[k]]; k++ ]]; Array[a, 65] (* James C. McMahon, Jul 13 2025 *)
PROG
(PARI) a(n) = my(k=2, m=bigomega(k)); while (sum(i=2, k-1, bigomega(i) == m) !=n, k++; m=bigomega(k)); k; \\ Michel Marcus, Jul 09 2025
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Jul 08 2025
STATUS
approved
