OFFSET
0,2
COMMENTS
EXAMPLE
MAPLE
f:= proc(n) local t; numtheory:-bigomega(add(t[1]*t[2], t=ifactors(n)[2])) end proc:
V:= Array(0..18): count:= 0:
for n from 0 while count < 19 do
v:= f(n):
if v <= 19 and V[v] = 0 then
count:= count+1; V[v]:= n
fi
od:
convert(V, list);
MATHEMATICA
Table[n=0; While[PrimeOmega[Plus@@Times@@@FactorInteger@++n]!=k]; n, {k, 0, 14}] (* Giorgos Kalogeropoulos, Aug 20 2021 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
J. M. Bergot and Robert Israel, Mar 30 2021
EXTENSIONS
a(25)-a(26) from Chai Wah Wu, Mar 31 2021
STATUS
approved