The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 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; text; internal format)
 OFFSET 1,1 LINKS 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, Apr 01 2007 CROSSREFS Cf. A079774, A079776. Sequence in context: A095253 A027709 A196358 * A247654 A262767 A104173 Adjacent sequences:  A079772 A079773 A079774 * A079776 A079777 A079778 KEYWORD nonn,tabl AUTHOR Amarnath Murthy, Jan 31 2003 EXTENSIONS Corrected and extended by R. J. Mathar, Apr 01 2007 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified June 16 14:16 EDT 2021. Contains 345057 sequences. (Running on oeis4.)