|
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
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 (mathar(AT)strw.leidenuniv.nl), Apr 01 2007
|
|
|
CROSSREFS
| Cf. A079774, A079775.
Sequence in context: A033690 A103779 A049451 * A117109 A140063 A051409
Adjacent sequences: A079773 A079774 A079775 * A079777 A079778 A079779
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Feb 03 2003
|
|
|
EXTENSIONS
| More terms from R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Apr 01 2007
|
| |
|
|
