OFFSET
1,3
LINKS
MATHEMATICA
Table[(j = #; While[! Divisible[n, Times @@ Prime@ Range@ j], j--]; (Times @@ Prime@ Range@ #)/(Times @@ Prime@ Range@ j)) &@ (k = 0; While[Times @@ Prime@ Range[k + 1] <= n, k++]; k), {n, 120}] (* Michael De Vlieger, Aug 30 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Aug 30 2016
STATUS
approved