OFFSET
0,3
LINKS
Antti Karttunen, Table of n, a(n) for n = 0..30030
MATHEMATICA
Array[Block[{i, m, n = #, p}, m = i = 1; While[n > 0, p = Prime[i]; m *= p^Mod[n, p]; n = Quotient[n, p]; i++]; Numerator[#/m]] &, 86, 0] (* Michael De Vlieger, Feb 06 2022 *)
PROG
KEYWORD
nonn,frac,easy
AUTHOR
Antti Karttunen, Feb 05 2022
STATUS
approved