A099547 Odd part of n modulo 6.

1, 1, 3, 1, 5, 3, 1, 1, 3, 5, 5, 3, 1, 1, 3, 1, 5, 3, 1, 5, 3, 5, 5, 3, 1, 1, 3, 1, 5, 3, 1, 1, 3, 5, 5, 3, 1, 1, 3, 5, 5, 3, 1, 5, 3, 5, 5, 3, 1, 1, 3, 1, 5, 3, 1, 1, 3, 5, 5, 3, 1, 1, 3, 1, 5, 3, 1, 5, 3, 5, 5, 3, 1, 1, 3, 1, 5, 3, 1, 5, 3, 5, 5, 3, 1, 1, 3, 5, 5, 3, 1, 5, 3, 5, 5, 3, 1, 1, 3, 1, 5, 3

Offset: 1

Author

Ralf Stephan, Oct 23 2004

Keywords

• nonn
• easy

Links

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

Crossrefs

Cf. A000265, A010875.

Cf. A099544, A099545, A099546, A099548, A099549, A099550, A099551.

Programs

Mathematica

a[n_] := Mod[n / 2^IntegerExponent[n, 2], 6]; Array[a, 100] (* Amiram Eldar, Aug 29 2024 *)

PARI

a(n) = (n>>valuation(n, 2))%6 \\Charles R Greathouse IV, May 14 2014

Formula

a(n) = A010875(A000265(n)).

Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = 3. - Amiram Eldar, Aug 29 2024