[go: up one dir, main page]

login
A077325
Average of terms of n-th row of A077321.
5
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
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
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Nov 04 2002
EXTENSIONS
Corrected and extended by R. J. Mathar, Feb 03 2007
STATUS
approved