A067102 Floor[ X/Y] where X = concatenation of the squares and Y = concatenation of natural numbers.

1, 1, 1, 12, 120, 1208, 12082, 120821, 1208216, 12082165, 120821655, 1208216555, 12082165556, 120821655562, 1208216555626, 12082165556267, 120821655562672, 1208216555626728, 12082165556267282, 120821655562672822

Offset

1,4

Links

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

Example

a(5) = floor [1491625/12345]=floor[] = floor[120.828270554880518428513568246254]=120.

Mathematica

f[n_] := (k = 1; x = y = "0"; While[k < n + 1, x = StringJoin[x, ToString[k^2]]; y = StringJoin[y, ToString[k]]; k++ ]; Return[ Floor[ ToExpression[x] / ToExpression[y]]] ); Table[ f[n], {n, 1, 20} ]

Crossrefs

Cf. A067091, A067092, A067093, A067094, A067095, A067096, A067097, A067098, A067099, A067100, A067101.

floor[A019521(n)/A007908(n)]

Sequence in context: A037511 A037694 A242810 * A361573 A129064 A120585

Adjacent sequences: A067099 A067100 A067101 * A067103 A067104 A067105

Keyword

easy,base,nonn

Author

Amarnath Murthy, Jan 07 2002

Extensions

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

Status

approved