OFFSET
1,2
MATHEMATICA
With[{f=PrimeOmega[Range[90]!+1]}, Table[Position[f, _?(#==n&), 1, 1], {n, 8}]]//Flatten (* Harvey P. Dale, Feb 11 2018 *)
PROG
(PARI) a(n)=my(k); while(bigomega(k++!+1)-n, ); k \\ Charles R Greathouse IV, Apr 25 2012
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Robert G. Wilson v, Mar 23 2001
EXTENSIONS
a(8) from Arkadiusz Wesolowski, Apr 25 2012
Title clarified by Sean A. Irvine, Nov 02 2022
STATUS
approved