login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A056618 Concatenate factorials. 1
1, 11, 112, 1126, 112624, 112624120, 112624120720, 1126241207205040, 112624120720504040320, 112624120720504040320362880, 1126241207205040403203628803628800, 112624120720504040320362880362880039916800, 112624120720504040320362880362880039916800479001600 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,2

LINKS

Vincenzo Librandi, Table of n, a(n) for n = 0..43

FORMULA

a(n+1) = a(n)*10^floor(1 + log_10(n!)) + n!, with a(0)=1. - Paolo P. Lava, Jul 04 2008

MAPLE

P:=proc(i) local a, n; a:=1; print(1); for n from 1 by 1 to i do a:=a*10^floor(evalf(1+log10(n!), 1000))+n!; print(a); od; end: P(50); # Paolo P. Lava, Jul 04 2008

MATHEMATICA

Module[{nn=20, f}, f=Range[0, nn]!; Table[FromDigits[Flatten[ IntegerDigits/@ Take[f, n]]], {n, nn}]] (* Harvey P. Dale, Mar 13 2016 *)

PROG

(MAGMA) [Seqint(Reverse(&cat[Reverse(Intseq(Factorial(k))): k in [0..n]])): n in [0..17]]; // Vincenzo Librandi, Aug 11 2017

CROSSREFS

Cf. A000142, A045508.

Sequence in context: A132939 A059996 A132938 * A190872 A024145 A053055

Adjacent sequences:  A056615 A056616 A056617 * A056619 A056620 A056621

KEYWORD

nonn,base

AUTHOR

Henry Bottomley, Aug 07 2000

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 5 07:32 EDT 2020. Contains 335462 sequences. (Running on oeis4.)