%I #17 Jun 08 2018 04:13:49
%S 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,
%T 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,
%U 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
%N a(n) = leading digit of n! in base 8.
%H Robert Israel, <a href="/A136759/b136759.txt">Table of n, a(n) for n = 0..10000</a>
%p f:= proc(n) local v; v:= n!; floor(v/8^floor(ilog2(v)/3)) end proc:
%p map(f, [$1..100]); # _Robert Israel_, Jun 07 2018
%t Array[IntegerDigits[#!, 8][[1]]&, 100, 0] (* _Vincenzo Librandi_, Jun 07 2018 *)
%o (PARI) a(n) = digits(n!, 8)[1]; \\ _Michel Marcus_, Jan 27 2015
%Y Cf. A000142, A136695, A136754, A136755, A136756, A136757, A136758, A136760, A008905, A136761, A136762, A136763, A136764, A136765, A136766.
%K base,easy,nonn
%O 0,3
%A _Carl R. White_, Jan 21 2008
|