OFFSET
1,2
COMMENTS
See A342479 for details.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..376
MATHEMATICA
f[n_] := Module[{p = Prime[n], q}, q = Select[Range[p - 1], PrimeQ]; Plus @@ (1/(q - 1))*Times @@ ((q - 1)/q)/p]; Denominator @ Array[f, 30]
CROSSREFS
KEYWORD
nonn,easy,frac
AUTHOR
Amiram Eldar, Mar 13 2021
STATUS
approved