|
| |
|
|
A079775
|
|
Triangle in A079774 read by rows.
|
|
3
| |
|
|
4, 6, 8, 8, 10, 12, 9, 12, 15, 18, 10, 12, 14, 16, 18, 12, 14, 16, 18, 20, 22, 14, 16, 18, 20, 22, 24, 26, 15, 18, 21, 24, 27, 30, 33, 36, 16, 18, 20, 22, 24, 26, 28, 30, 32, 18, 20, 22, 24, 26, 28, 30, 32, 34, 36, 20, 22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 21, 24, 27, 30, 33
(list; table; 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: for n from 1 to 20 do arow := A079775(n) : for m from 1 to nops(arow) do printf("%d, ", op(m, arow)) ; od ; - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Apr 01 2007
|
|
|
CROSSREFS
| Cf. A079774, A079776.
Sequence in context: A095253 A027709 A196358 * A104173 A023991 A183005
Adjacent sequences: A079772 A079773 A079774 * A079776 A079777 A079778
|
|
|
KEYWORD
| nonn,tabl
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Jan 31 2003
|
|
|
EXTENSIONS
| Corrected and extended by R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Apr 01 2007
|
| |
|
|
