OFFSET
1,2
COMMENTS
LINKS
Ivan Neretin, Table of n, a(n) for n = 1..10000
EXAMPLE
A005117(5)=6, phi(6)/6=2/6=1/3, so a(5)=3.
MATHEMATICA
s = Select[Range[200], SquareFreeQ]; Denominator[EulerPhi[s]/s] (* T. D. Noe, May 13 2013 *)
PROG
(PARI) lista(nn) = apply(x->(denominator(eulerphi(x)/x)), Vec(select(issquarefree, [1..nn], 1))); \\ Michel Marcus, Feb 22 2021
CROSSREFS
KEYWORD
nonn,frac,easy
AUTHOR
Franz Vrabec, May 12 2013
STATUS
approved