|
|
A173345
|
|
Number of trailing zeros of the superfactorial of n (A000178).
|
|
2
|
|
|
0, 0, 0, 0, 1, 2, 3, 4, 5, 7, 9, 11, 13, 15, 18, 21, 24, 27, 30, 34, 38, 42, 46, 50, 56, 62, 68, 74, 80, 87, 94, 101, 108, 115, 123, 131, 139, 147, 155, 164, 173, 182, 191, 200, 210, 220, 230, 240, 250, 262, 274, 286, 298, 310, 323, 336, 349, 362, 375, 389, 403, 417
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,6
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
a[n_] := Sum[Z10[i], {i, n}]; Z10[n_]:= Floor[Sum[Floor[n/5^i], {i, 1, Floor[Log[5, n]]}]]; Join[{0}, Table[a[n], {n, 2, 200}]]
a[0] := 1; a[1] := 1; a[n_] := n!*a[n - 1]; IntegerExponent[Table[a[n], {n, 1, 100}]] (* Stefano Spezia, Jan 26 2023 *)
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,base,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|