Original entry on oeis.org
1, 1, 2, 6, 33, 231, 2046, 20460, 225360, 3040650, 42562410, 663200340, 14604306060, 310211542410, 6204234151200, 163322250505200, 4256423144450400, 134630366022322500, 3634363143602406600, 134462435323300144200, 4233013654405404511500
Offset: 0
-
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 *)
Original entry on oeis.org
1, 1, 2, 6, 30, 170, 1320, 11660, 116600, 1304600, 15657400, 230212400, 3443176000, 56312146000, 1211416624000, 23016735654000, 460356735300000, 12067735663300000, 265756631234600000, 6601271140642200000
Offset: 0
-
b = Table[IntegerDigits[n!, 8], {n, 1, 15}]; a = {}; Do[AppendTo[a, FromDigits[b[[x]]]], {x, 1, Length[b]}]; a (*Artur Jasinski*)
Original entry on oeis.org
1, 1, 2, 6, 26, 143, 880, 6820, 61270, 612700, 6740700, 83088500, 1211283600, 17058212600, 270017301300, 4560302022000, 82065335385000, 1648341372414000, 34076827548280000, 725735500635080000, 17178403115182870000
Offset: 0
-
b = Table[IntegerDigits[n!, 9], {n, 1, 15}]; a = {}; Do[AppendTo[a, FromDigits[b[[x]]]], {x, 1, Length[b]}]; a (*Artur Jasinski*)
Showing 1-3 of 3 results.
Comments