A067097 Floor[X/Y] where X = concatenation in increasing order of first n powers of 2 and Y = that of first n natural numbers.

2, 2, 2, 20, 201, 2010, 201012, 20101226, 2010122457, 201012245610, 20101224560848, 2010122456084687, 201012245608468521, 201012245608468519453, 201012245608468519428723, 201012245608468519428463029, 2010122456084685194284602619644

Offset

1,1

Links

Table of n, a(n) for n=1..17.

Example

a(6)= floor [ 248163264/123456] = floor[2010.13530326594090202177293] = 2010.

Mathematica

f[n_] := (k = 1; x = y = "0"; While[k < n + 1, x = StringJoin[x, ToString[2^k]]; y = StringJoin[y, ToString[k]]; k++ ]; Return[ Floor[ ToExpression[x] / ToExpression[y]]] ); Table[ f[n], {n, 1, 20} ]
Table[Floor[FromDigits[Flatten[IntegerDigits/@(2^Range[n])]]/FromDigits[ Flatten[IntegerDigits/@Range[n]]]], {n, 20}] (* Harvey P. Dale, Dec 30 2018 *)

Crossrefs

Cf. A067088, A067089, A067090, A067091, A067092, A067093, A067094, A067095, A067096.

floor[A045507(n)/A019519(n)]

Sequence in context: A226935 A099640 A140283 * A260082 A153438 A098915

Adjacent sequences: A067094 A067095 A067096 * A067098 A067099 A067100

Keyword

easy,base,nonn

Author

Amarnath Murthy, Jan 07 2002

Extensions

More terms from Robert G. Wilson v, Jan 09 2002

More terms from Harvey P. Dale, Dec 30 2018

Status

approved