A136759 a(n) = leading digit of n! in base 8.

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

Offset: 0

Author

Carl R. White, Jan 21 2008

Keywords

• base
• easy
• nonn

Links

• Robert Israel, Table of n, a(n) for n = 0..10000

Crossrefs

Cf. A000142, A136695, A136754, A136755, A136756, A136757, A136758, A136760, A008905, A136761, A136762, A136763, A136764, A136765, A136766.

Programs

Maple

f:= proc(n) local v; v:= n!; floor(v/8^floor(ilog2(v)/3)) end proc:
map(f, [$1..100]); # Robert Israel, Jun 07 2018

Mathematica

Array[IntegerDigits[#!, 8][[1]]&, 100, 0] (* Vincenzo Librandi, Jun 07 2018 *)

PARI

a(n) = digits(n!, 8)[1]; \\ Michel Marcus, Jan 27 2015