STATUS
reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
a(n) = A000142(A045521(n)). - Amiram Eldar, Jul 19 2020
Cf. A000142.
approved
editing
editing
approved
Select[Range[50]!, IntegerDigits[#][[1]]==2&] (* Harvey P. Dale, Mar 21 2020 *)
approved
editing
proposed
approved
editing
proposed
Benford's law shows that this sequence will contain about (log 3 - log 2)/log 10 =~ 18% of factorials. [From __Charles R Greathouse IV_, Nov 13 2010]
(PARI) lista(nn) = {for (n=1, nn, if (digits(n!)[1] == 2, print1(n!, ", ")); ); } \\ Michel Marcus, Dec 13 2017
approved
editing
editing
approved