login
This site is supported by donations to The OEIS Foundation.

 

Logo


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

Table of n, a(n) for n=1..71.

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 | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified March 24 02:10 EDT 2017. Contains 283984 sequences.