%I A077389
%S A077389 2,4,5,9,79,12,17,30,261,30,49,23,71,51,29,31,37,39,125,56,95,52,38,133,
%T A077389 157,113,353,70,347,89,111,139,179,187,281,124,137,95,347,100,153,105,
%U A077389 491,273,185,177,377,199,599,1032,149,274,110,200,485,251,155,315
%N A077389 Form a triangle in which n-th row contains n successive primes whose 
               sum is divisible by n; sequence gives averages of rows.
%F A077389 a(n) = A077388(n)/n
%e A077389 Triangle begins:
%e A077389 2
%e A077389 3 5
%e A077389 3 5 7
%e A077389 5 7 11 13
%e A077389 71 73 79 83 89
%t A077389 f[n_] := Block[{k = 1, t},While[t = Table[Prime[i], {i, k, k + n - 1}]; 
               Mod[Plus @@ t, n] > 0, k++ ];t];Mean /@ Table[f[n], {n, 58}] (*Chandler*)
%Y A077389 Cf. A054892, A077388, A082592, A122820.
%Y A077389 Sequence in context: A120770 A073151 A067298 this_sequence A122991 A125728 
               A156799
%Y A077389 Adjacent sequences: A077386 A077387 A077388 this_sequence A077390 A077391 
               A077392
%K A077389 nonn
%O A077389 1,1
%A A077389 Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Nov 06 2002
%E A077389 More terms from Sascha Kurz (sascha.kurz(AT)uni-bayreuth.de), Jan 30 
               2003