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,3

Links

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

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

Prog

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

Crossrefs

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

Sequence in context: A188733 A104290 A152549 * A056129 A059433 A021042

Adjacent sequences: A136756 A136757 A136758 * A136760 A136761 A136762

Keyword

base,easy,nonn

Author

Carl R. White, Jan 21 2008

Status

approved