|
Search: id:A067067
|
|
| |
|
| 1, 1, 2, 6, 8, 2, 14, 20, 24, 2304, 2304, 11664, 1512, 2688, 112896, 508032, 18579456, 87091200, 11854080, 368640, 6967296, 22861440, 542126592, 1872809164800, 40633270272, 559872000, 26873856000, 8561413324800, 178362777600
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
EXAMPLE
|
a(10) = 2304 as 10!= 3628800, and 3*6*2*8*8 = 2304.
|
|
MATHEMATICA
|
f[n_] := Block[{d = Sort[ IntegerDigits[n! ]] }, While[ First[d] == 0, d = Drop[d, 1]]; Return[ Apply[ Times, d]]]; Table[ f[n], {n, 0, 30} ]
|
|
CROSSREFS
|
Cf. A000142.
Sequence in context: A040164 A086353 A019786 this_sequence A119279 A048741 A115317
Adjacent sequences: A067064 A067065 A067066 this_sequence A067068 A067069 A067070
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Jan 03 2002
|
|
EXTENSIONS
|
More terms from Jason Earls (zevi_35711(AT)yahoo.com), Harvey P. Dale (hpd1(AT)nyu.edu) and Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 04 2002
|
|
|
Search completed in 0.002 seconds
|
