A346013 a(n) is the denominator of A346009(n)/A346010(n) - A001221(n)/2.

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

Amiram Eldar, Table of n, a(n) for n = 1..10000

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

Adjacent sequences: A346010 A346011 A346012 * A346014 A346015 A346016

Keyword

nonn,frac

Author

Amiram Eldar, Jul 01 2021

Status

approved