%I A067110
%S A067110 1,4,23,138,8418,574905,40639850,3061183528,235711131719,
%T A067110 18272180753428,1473194573245205,119650320669661386,
%U A067110 9903829063833316444,838829650246380538698,71863149914400283955531
%N A067110 Floor[ concatenation of first n primes / sum of first n primes].
%e A067110 a(4) = floor[2357/17] =floor[138.647058823529411764705882352941] = 138.
%t A067110 f[n_] := (a = {}; k = 1; While[ k < n + 1, a = Join[a, IntegerDigits[
Prime[k]]]; k++ ]; FromDigits[a]); Table[ Floor[ f[n]/Sum[ Prime[i],
{i, 1, n} ]], {n, 1, 20} ]
%Y A067110 Sequence in context: A024050 A038723 A091640 this_sequence A158197 A038736
A091642
%Y A067110 Adjacent sequences: A067107 A067108 A067109 this_sequence A067111 A067112
A067113
%K A067110 easy,nonn
%O A067110 1,2
%A A067110 Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Jan 08 2002
%E A067110 More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 08 2002
|