A079776 a(n) = sum of n-th row of the triangle pertaining to A079774(n).

4, 14, 30, 54, 70, 102, 140, 204, 216, 270, 330, 450, 442, 518, 900, 656, 867, 810, 912, 1020, 1323, 1210, 2070, 1416, 1550, 1989, 1782, 1932, 2088, 2655, 2356, 2528, 5313, 2822, 3570, 3132, 3330, 5605, 3666, 4620, 4018, 4242, 4472, 5610, 4860, 8165, 5264

Offset

1,1

Links

Table of n, a(n) for n=1..47.

Maple

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

Crossrefs

Cf. A079774, A079775.

Sequence in context: A305637 A103779 A049451 * A117109 A317031 A140063

Adjacent sequences: A079773 A079774 A079775 * A079777 A079778 A079779

Keyword

nonn

Author

Amarnath Murthy, Feb 03 2003

Extensions

More terms from R. J. Mathar, Apr 01 2007

Status

approved