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

3, 3, 31, 318, 31817, 3181548, 3181530396, 3181528335091, 31815281031585777, 31815281005815399552, 318152810055319253966698, 3181528100552883295133046294, 318152810055287994498392866979206

Offset

1,1

Links

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

Example

a(4)= floor [ 392781/1234] = floor[318.299027552674230145867098865478] = 318.

Mathematica

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

Crossrefs

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

Sequence in context: A373740 A344934 A086667 * A188897 A088060 A368387

Adjacent sequences: A067095 A067096 A067097 * A067099 A067100 A067101

Keyword

easy,base,nonn

Author

Amarnath Murthy, Jan 07 2002

Extensions

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

Status

approved