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,1

Links

Table of n, a(n) for n=1..44.

Formula

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

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

Crossrefs

Cf. A077321, A077322, A077323, A077324.

Sequence in context: A128601 A034500 A261455 * A148213 A148214 A148215

Adjacent sequences: A077322 A077323 A077324 * A077326 A077327 A077328

Keyword

nonn

Author

Amarnath Murthy, Nov 04 2002

Extensions

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

Status

approved