A277546 a(n) = n/8^m mod 8, where 8^m is the greatest power of 8 that divides n.

1, 2, 3, 4, 5, 6, 7, 1, 1, 2, 3, 4, 5, 6, 7, 2, 1, 2, 3, 4, 5, 6, 7, 3, 1, 2, 3, 4, 5, 6, 7, 4, 1, 2, 3, 4, 5, 6, 7, 5, 1, 2, 3, 4, 5, 6, 7, 6, 1, 2, 3, 4, 5, 6, 7, 7, 1, 2, 3, 4, 5, 6, 7, 1, 1, 2, 3, 4, 5, 6, 7, 1, 1, 2, 3, 4, 5, 6, 7, 2, 1, 2, 3, 4, 5, 6

Offset

1,2

Comments

a(n) is the rightmost nonzero digit in the base 8 expansion of n.

Links

Clark Kimberling, Table of n, a(n) for n = 1..10000

Example

a(11) = (11/8 mod 8) = 3.

Mathematica

Table[Mod[n/8^IntegerExponent[n, 8], 8], {n, 1, 160}]
m8[n_]:=Module[{idn=IntegerDigits[n, 8]}, While[idn[[-1]]==0, idn = Most[ idn]]; idn[[-1]]]; Array[m8, 90] (* Harvey P. Dale, Apr 02 2017 *)

Prog

(PARI) a(n) = n/8^valuation(n, 8) % 8; \\ Michel Marcus, Oct 20 2016

Crossrefs

Cf. A010877.

Sequence in context: A054634 A346731 A255828 * A190597 A338881 A053843

Adjacent sequences: A277543 A277544 A277545 * A277547 A277548 A277549

Keyword

nonn,easy

Author

Clark Kimberling, Oct 19 2016

Status

approved