|
%I #6 Aug 07 2015 02:42:58
%S 2,4,13,31,55,77,215,227,271,308,661,438,825,806,1229,1271,1943,1388,
%T 2379,2106,2997,2393,3377,2856,4437,4051,6043,4299,7041,4157,8393,
%U 6628,8005,7409,9821,7684,12549,10233,12581,11090,14249,9811,18467,13616
%N Average of terms of n-th row of A077321.
%F a(n) = A077324(n)/n.
%p 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
%Y Cf. A077321, A077322, A077323, A077324.
%K nonn
%O 1,1
%A _Amarnath Murthy_, Nov 04 2002
%E Corrected and extended by _R. J. Mathar_, Feb 03 2007
|
