cp's OEIS Frontend

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

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