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

Author

Clark Kimberling, Oct 19 2016

Keywords

• nonn
• easy

Comments

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

Examples

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

Links

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

Crossrefs

Cf. A010877.

Programs

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 *)

PARI

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