%I #7 Aug 07 2015 03:17:53
%S 4,14,30,54,70,102,140,204,216,270,330,450,442,518,900,656,867,810,
%T 912,1020,1323,1210,2070,1416,1550,1989,1782,1932,2088,2655,2356,2528,
%U 5313,2822,3570,3132,3330,5605,3666,4620,4018,4242,4472,5610,4860,8165,5264
%N a(n) = sum of n-th row of the triangle pertaining to A079774(n).
%p A002808 := proc(n) local resul,i ; i := 1 ; resul := 4 ; while i < n do resul := resul+1 ; while isprime(resul) do resul := resul+1 ; od ; i := i+1 ; od; RETURN(resul) ; end: A079775 := proc(n) local a,anxt,atst ; a := [A002808(n)] ; while nops(a) < n do anxt := op(-1,a)+1 ; atst := [ op(a),anxt] ; while igcd(op(atst)) = 1 do anxt := anxt+1 ; atst := [ op(a),anxt] ; od ; a := [op(a),anxt] ; od; RETURN(a) ; end: A079776 := proc(n) local arow ; arow := A079775(n) ; add(op(i,arow),i=1..nops(arow)) ; end: for n from 1 to 80 do printf("%d, ",A079776(n)) ; od : # _R. J. Mathar_, Apr 01 2007
%Y Cf. A079774, A079775.
%K nonn
%O 1,1
%A _Amarnath Murthy_, Feb 03 2003
%E More terms from _R. J. Mathar_, Apr 01 2007