A127112 n! in base 4.

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

Offset

0,3

Links

Table of n, a(n) for n=0..15.

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: A378095 A370876 A329851 * A365283 A003580 A052580

Adjacent sequences: A127109 A127110 A127111 * A127113 A127114 A127115

Keyword

nonn

Author

Artur Jasinski, Jan 05 2007

Status

approved