OFFSET
1,2
EXAMPLE
1, 3/2, 11/6, 61/30, 11/5, 82/35, 171/70, 1951/770, 26133/10010, 13424/5005, 41273/15015, ...
MATHEMATICA
Accumulate[1/Select[Range[43], SquareFreeQ]] // Denominator
PROG
(PARI) a(n) = my(i=0, s=0); for(x=1, oo, if(core(x)==x, s+=1/x; i++; if(i==n, return(denominator(s))))) \\ Felix Fröhlich, May 26 2022
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Ilya Gutkovskiy, May 26 2022
STATUS
approved