|
|
A004154
|
|
a(n) = n! with trailing zeros omitted.
|
|
13
|
|
|
1, 1, 2, 6, 24, 12, 72, 504, 4032, 36288, 36288, 399168, 4790016, 62270208, 871782912, 1307674368, 20922789888, 355687428096, 6402373705728, 121645100408832, 243290200817664, 5109094217170944, 112400072777760768, 2585201673888497664, 62044840173323943936
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
|
|
MAPLE
|
a:= n-> (f-> f/10^padic[ordp](f, 10))(n!):
|
|
MATHEMATICA
|
Join[{1, 1, 2, 6, 24}, Table[FromDigits[Flatten[Most[Split[IntegerDigits[n!]]]]], {n, 5, 30}]] (* or *) Table[n!/10^IntegerExponent[n!, 10], {n, 0, 30}] (* Harvey P. Dale, Feb 13 2024 *)
|
|
PROG
|
(Haskell)
a004154 = a004151 . a000142
a004154_list = scanl (\u v -> a004151 $ u * v) 1 [1..]
(PARI) a(n)=n!/10^valuation(n!, 5) \\ M. F. Hasler, Oct 16 2014
(Magma) [Factorial(n)/10^Valuation(Factorial(n), 5): n in [0..30]]; // Vincenzo Librandi, Oct 16 2014
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|