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