OFFSET
0,2
COMMENTS
These numbers are upper bounds on the largest term in A002182 that is not divisible by k for some k.
MATHEMATICA
With[{s = Take[Import["https://oeis.org/b002182.txt", "Data"][[All, -1]], 240]}, Drop[TakeWhile[#, IntegerQ], -6] &@ Table[s[[Lookup[#, n][[-1]] ]], {n, 0, Max@ Keys@ #}] &@ PositionIndex[Map[PrimeOmega, s]]] (* Michael De Vlieger, Jan 19 2020, using b-file at A002182. Caution: ensure full population of a given value of bigomega by extending scope beyond the desired number of terms. *)
CROSSREFS
KEYWORD
nonn
AUTHOR
David A. Corneth, Jan 04 2020
STATUS
approved