A127112 n! in base 4.

1, 1, 2, 12, 120, 1320, 23100, 1032300, 21312000, 1120212000, 31311330000, 2120101110000, 130203033300000, 11303022030300000, 1101030032302200000, 103001313131311200000

Offset: 0

Author

Artur Jasinski, Jan 05 2007

Keywords

• nonn

Programs

Mathematica

b = Table[IntegerDigits[n!, 4], {n, 1, 15}]; a = {}; Do[AppendTo[a, FromDigits[b[[x]]]], {x, 1, Length[b]}]; a (*Artur Jasinski*)