This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A077325 #6 Aug 07 2015 02:42:58 %S A077325 2,4,13,31,55,77,215,227,271,308,661,438,825,806,1229,1271,1943,1388, %T A077325 2379,2106,2997,2393,3377,2856,4437,4051,6043,4299,7041,4157,8393, %U A077325 6628,8005,7409,9821,7684,12549,10233,12581,11090,14249,9811,18467,13616 %N A077325 Average of terms of n-th row of A077321. %F A077325 a(n) = A077324(n)/n. %p A077325 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 A077325 Cf. A077321, A077322, A077323, A077324. %K A077325 nonn %O A077325 1,1 %A A077325 _Amarnath Murthy_, Nov 04 2002 %E A077325 Corrected and extended by _R. J. Mathar_, Feb 03 2007