login
A079776
a(n) = sum of n-th row of the triangle pertaining to A079774(n).
3
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
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
Sequence in context: A305637 A103779 A049451 * A117109 A317031 A140063
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Feb 03 2003
EXTENSIONS
More terms from R. J. Mathar, Apr 01 2007
STATUS
approved