Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A075011
Floor[ concatenation of numbers from n to 1 divided by concatenation of numbers from 1 to n].
1
1, 1, 2, 3, 4, 5, 6, 7, 8, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 0
OFFSET
1,3
LINKS
EXAMPLE
a(4) = Floor[4321/1234] = 3.
MATHEMATICA
Table[Floor[FromDigits[Flatten[IntegerDigits/@Range[n, 1, -1]]]/FromDigits[ Flatten[IntegerDigits/@Range[n]]]], {n, 100}] (* Harvey P. Dale, May 29 2013 *)
CROSSREFS
Sequence in context: A254926 A155919 A265540 * A283001 A037851 A037887
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Sep 01 2002
EXTENSIONS
Corrected and extended by Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Apr 18 2003
STATUS
approved