A099548 Odd part of n modulo 7.

1, 1, 3, 1, 5, 3, 0, 1, 2, 5, 4, 3, 6, 0, 1, 1, 3, 2, 5, 5, 0, 4, 2, 3, 4, 6, 6, 0, 1, 1, 3, 1, 5, 3, 0, 2, 2, 5, 4, 5, 6, 0, 1, 4, 3, 2, 5, 3, 0, 4, 2, 6, 4, 6, 6, 0, 1, 1, 3, 1, 5, 3, 0, 1, 2, 5, 4, 3, 6, 0, 1, 2, 3, 2, 5, 5, 0, 4, 2, 5, 4, 6, 6, 0, 1, 1, 3, 4, 5, 3, 0, 2, 2, 5, 4, 3, 6, 0, 1, 4, 3, 2

Offset

1,3

Links

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

Formula

a(n) = A010876(A000265(n)).

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

Mathematica

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

Prog

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

Crossrefs

Cf. A000265, A010876.

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

Sequence in context: A249139 A059971 A184343 * A351556 A134743 A099547

Adjacent sequences: A099545 A099546 A099547 * A099549 A099550 A099551

Keyword

nonn,easy,changed

Author

Ralf Stephan, Oct 23 2004

Status

approved