OFFSET
1,2
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..200
EXAMPLE
a(5) = floor(123456/(6!)) = floor(123456/720) = 171.
MAPLE
x:= 0:
for n from 1 to 200 do
x:= x*10^(1+ilog10(n))+n;
A[n]:= floor(x/n!)
od:
seq(A[n], n=1..100); # Robert Israel, Dec 20 2015
MATHEMATICA
Table[Floor[FromDigits[Flatten[IntegerDigits/@Range[n]]]/n!], {n, 30}] (* Harvey P. Dale, Aug 27 2014 *)
PROG
(PARI) digitsIn(x)= { local(d); if (x==0, return(1)); d=1 + log(x)\log(10); if (10^d == x, d++, if (10^(d-1) > x, d--)); return(d) } Concat(a, b)= { return(a*10^digitsIn(b) + b) } { c=0; s=0; for (n=1, 200, c=Concat(c, n); s+=n; write("b067117.txt", n, " ", floor(c/n!)) ) } \\ Harry J. Smith, May 25 2010
(PARI) a007908(n) = my(s=""); for(k=1, n, s=Str(s, k)); eval(s);
a(n) = a007908(n) \ n!; \\ Altug Alkan, Dec 20 2015
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Amarnath Murthy, Jan 08 2002
STATUS
approved