login
A346013
a(n) is the denominator of A346009(n)/A346010(n) - A001221(n)/2.
3
0, 1, 1, 6, 1, 1, 1, 4, 6, 1, 1, 6, 1, 1, 1, 10, 1, 6, 1, 6, 1, 1, 1, 4, 6, 1, 4, 6, 1, 1, 1, 3, 1, 1, 1, 3, 1, 1, 1, 4, 1, 1, 1, 6, 6, 1, 1, 10, 6, 6, 1, 6, 1, 4, 1, 4, 1, 1, 1, 6, 1, 1, 6, 14, 1, 1, 1, 6, 1, 1, 1, 12, 1, 1, 6, 6, 1, 1, 1, 10, 10, 1, 1, 6, 1
OFFSET
1,4
COMMENTS
See A346012 for details.
LINKS
MATHEMATICA
f[p_, e_] := e/(e + 1); a[1] = 0; a[n_] := Denominator[Plus @@ f @@@ (fct = FactorInteger[n]) - Length[fct]/2]; Array[a, 100]
CROSSREFS
Cf. A001221, A346009, A346010, A346012 (numerators).
Sequence in context: A275109 A331735 A345948 * A344697 A364917 A364944
KEYWORD
nonn,frac
AUTHOR
Amiram Eldar, Jul 01 2021
STATUS
approved