|
Search: id:A079775
|
|
| |
|
| 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; listen)
|
|
|
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: A163639 A095253 A027709 this_sequence A104173 A023991 A103189
Adjacent sequences: A079772 A079773 A079774 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
