%I A079775
%S 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,
%T A079775 22,24,26,15,18,21,24,27,30,33,36,16,18,20,22,24,26,28,30,32,18,20,22,
%U A079775 24,26,28,30,32,34,36,20,22,24,26,28,30,32,34,36,38,40,21,24,27,30,33
%N A079775 Triangle in A079774 read by rows.
%p A079775 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
%Y A079775 Cf. A079774, A079776.
%Y A079775 Sequence in context: A163639 A095253 A027709 this_sequence A104173 A023991 
               A103189
%Y A079775 Adjacent sequences: A079772 A079773 A079774 this_sequence A079776 A079777 
               A079778
%K A079775 nonn,tabl
%O A079775 1,1
%A A079775 Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Jan 31 2003
%E A079775 Corrected and extended by R. J. Mathar (mathar(AT)strw.leidenuniv.nl), 
               Apr 01 2007