login
A067101
Floor[ X/Y], where X = concatenation of the primes and Y = concatenation of natural numbers.
4
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
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 *)
KEYWORD
easy,base,nonn
AUTHOR
Amarnath Murthy, Jan 07 2002
EXTENSIONS
More terms from Robert G. Wilson v, Jan 09 2002
STATUS
approved