A067101 Floor[ X/Y], where X = concatenation of the primes and Y = concatenation of natural numbers.

2, 1, 1, 1, 19, 190, 1909, 19092, 190926, 190926, 190926, 190926, 190926, 190926, 190926, 190926, 190926, 190926, 190926, 190926, 190926, 190926, 190926, 190926, 190926, 1909260, 19092601, 190926018, 1909260182, 19092601827, 190926018273

Offset

1,1

Links

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

Example

a(5) = floor [235711/12345]=floor[19.093641150...] = 19.

Mathematica

f[n_] := (k = 1; x = y = "0"; While[k < n + 1, x = StringJoin[x, ToString[Prime[k]]]; y = StringJoin[y, ToString[k]]; k++ ]; Return[ Floor[ ToExpression[x] / ToExpression[y]]] ); Table[ f[n], {n, 1, 25} ]
nn=40; With[{prs=Prime[Range[nn]], nats=Range[nn]}, Table[Floor[FromDigits[ Flatten[IntegerDigits/@Take[prs, n]]]/FromDigits[Flatten[IntegerDigits /@Take[nats, n]]]], {n, nn}]] (* Harvey P. Dale, Mar 24 2012 *)

Crossrefs

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

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

Sequence in context: A067095 A070888 A180849 * A105816 A329334 A062979

Adjacent sequences: A067098 A067099 A067100 * A067102 A067103 A067104

Keyword

easy,base,nonn

Author

Amarnath Murthy, Jan 07 2002

Extensions

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

Status

approved