cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

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

This page as a plain text file.
%I A067101 #6 Dec 05 2013 19:55:07
%S A067101 2,1,1,1,19,190,1909,19092,190926,190926,190926,190926,190926,190926,
%T A067101 190926,190926,190926,190926,190926,190926,190926,190926,190926,
%U A067101 190926,190926,1909260,19092601,190926018,1909260182,19092601827,190926018273
%N A067101 Floor[ X/Y], where X = concatenation of the primes and Y = concatenation of natural numbers.
%e A067101 a(5) = floor [235711/12345]=floor[19.093641150...] = 19.
%t A067101 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} ]
%t A067101 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 *)
%Y A067101 Cf. A067091, A067092, A067093, A067094, A067095, A067096, A067097, A067098, A067099.
%Y A067101 floor[A019518(n)/A007908(n)]
%K A067101 easy,base,nonn
%O A067101 1,1
%A A067101 _Amarnath Murthy_, Jan 07 2002
%E A067101 More terms from _Robert G. Wilson v_, Jan 09 2002