|
%I #15 Sep 08 2022 08:45:54
%S 1,1,2,6,24,12,27,45,234,23688,23688,136899,14679,222678,112277889,
%T 133466778,2227888899,23455667889,22334567778,111223445688,
%U 122234466789,1112444577999,11224667777778,122344556667788889,122333334444667899,11112333445558899
%N n!, digits ordered, zeros omitted.
%H Vincenzo Librandi, <a href="/A181952/b181952.txt">Table of n, a(n) for n = 0..200</a>
%e For n=1, n!=1 and a(n) = 1; when n=10, n!=3628800, a(n), with digits ordered & zeros omitted, = 23688.
%t Table[FromDigits[Sort[IntegerDigits[n!]]], {n, 0, 30}] (* _T. D. Noe_, Apr 03 2012 *)
%o (Magma) A181952:=func<n | Seqint(Reverse(Sort(Intseq(Factorial(n)))))>; [A181952(n): n in [0..25]]; // _Bruno Berselli_, Apr 03 2012
%K nonn,easy,base
%O 0,3
%A _Dave Durgin_, Apr 03 2012
|
