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
KEYWORD
base,easy,nonn
AUTHOR
Carl R. White, Jan 21 2008
STATUS
approved