OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
Does lim_{n->infinity} a(n)/(n*log(n)) = 1?
MATHEMATICA
seq[nmax_] := Module[{s = {}, sum = 0, n = 1, r = 1}, While[n <= nmax, sum += MoebiusMu[n]/n; If[PrimeQ[n], r *= n]; If[Denominator[sum] == r, AppendTo[s, n]]; n++]; s]; seq[250] (* Amiram Eldar, Jun 17 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Jan 17 2004
STATUS
approved