A127114 n! in base 7.

1, 1, 2, 6, 33, 231, 2046, 20460, 225360, 3040650, 42562410, 663200340, 14604306060, 310211542410, 6204234151200, 163322250505200, 4256423144450400, 134630366022322500, 3634363143602406600, 134462435323300144200, 4233013654405404511500

Offset: 0

Author

Artur Jasinski, Jan 05 2007

Keywords

• nonn
• base

Comments

Number of digits in A127114(n) = A127033(n) + 1.

Crossrefs

Cf. A127109, A127110, A036603, A127112, A127113, A127114, A127115, A127116, A127033.

Programs

Mathematica

b = Table[IntegerDigits[n!, 7], {n, 1, 15}]; a = {}; Do[AppendTo[a, FromDigits[b[[x]]]], {x, 1, Length[b]}]; a (*Artur Jasinski*)
FromDigits[IntegerDigits[#,7]]&/@(Range[0,20]!) (* Harvey P. Dale, Jun 19 2011 *)

Extensions

More terms from Harvey P. Dale, Jun 19 2011