A356757 Omit zero digits from factorial numbers.

1, 1, 2, 6, 24, 12, 72, 54, 432, 36288, 36288, 399168, 47916, 622728, 871782912, 137674368, 2922789888, 35568742896, 64237375728, 121645148832, 243292817664, 5199421717944, 11247277776768, 258521673888497664, 624484173323943936, 15511214333985984, 4329146112665635584

Offset

0,3

Links

Table of n, a(n) for n=0..26.

Index entries for sequences related to factorial numbers

Formula

a(n) = A004719(A000142(n)).

Example

a(12) = 47916 since 12! = 479001600.

Mathematica

Table[FromDigits[Select[IntegerDigits[n!], Positive]], {n, 0, 26}]

Prog

(PARI) a(n) = fromdigits(select(x->(x>0), digits(n!))); \\ Michel Marcus, Aug 26 2022
(Python)
from math import factorial
def a(n): return int(str(factorial(n)).replace("0", ""))
print([a(n) for n in range(27)]) # Michael S. Branicky, Aug 26 2022

Crossrefs

Cf. A000142, A004719.

Cf. A004154, A243657, A321475.

Cf. A027869 (number of omitted zero digits), A356758 (number of nonzero digits).

Sequence in context: A374265 A243657 A321475 * A004154 A076126 A263692

Adjacent sequences: A356754 A356755 A356756 * A356758 A356759 A356760

Keyword

nonn,base

Author

Stefano Spezia, Aug 26 2022

Status

approved