[go: up one dir, main page]

login
A127112
n! in base 4.
4
1, 1, 2, 12, 120, 1320, 23100, 1032300, 21312000, 1120212000, 31311330000, 2120101110000, 130203033300000, 11303022030300000, 1101030032302200000, 103001313131311200000
OFFSET
0,3
MATHEMATICA
b = Table[IntegerDigits[n!, 4], {n, 1, 15}]; a = {}; Do[AppendTo[a, FromDigits[b[[x]]]], {x, 1, Length[b]}]; a (*Artur Jasinski*)
CROSSREFS
Sequence in context: A361595 A370876 A329851 * A365283 A003580 A052580
KEYWORD
nonn
AUTHOR
Artur Jasinski, Jan 05 2007
STATUS
approved