A077325 Average of terms of n-th row of A077321.

2, 4, 13, 31, 55, 77, 215, 227, 271, 308, 661, 438, 825, 806, 1229, 1271, 1943, 1388, 2379, 2106, 2997, 2393, 3377, 2856, 4437, 4051, 6043, 4299, 7041, 4157, 8393, 6628, 8005, 7409, 9821, 7684, 12549, 10233, 12581, 11090, 14249, 9811, 18467, 13616

Offset: 1

Author

Amarnath Murthy, Nov 04 2002

Keywords

• nonn

Crossrefs

Cf. A077321, A077322, A077323, A077324.

Programs

Maple

A077325 := proc(nmax) local n,a,T,i,p,s ; T := [] ; a := [] ; n :=1 ; while nops(a) < nmax do s := 0 ; for i from 1 to n do p := 2 ; while ( p in T ) or (p-1) mod n <> 0 do p := nextprime(p) ; od ; T := [op(T),p] ; s := s+p ; od ; a := [op(a),s/n] ; n := n+1 ; od ; RETURN(a) ; end: A077325(50) ; # R. J. Mathar, Feb 03 2007

Formula

a(n) = A077324(n)/n.

Extensions

Corrected and extended by R. J. Mathar, Feb 03 2007