login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A079776 a(n) = sum of n-th row of the triangle pertaining to A079774(n). 3

%I

%S 4,14,30,54,70,102,140,204,216,270,330,450,442,518,900,656,867,810,

%T 912,1020,1323,1210,2070,1416,1550,1989,1782,1932,2088,2655,2356,2528,

%U 5313,2822,3570,3132,3330,5605,3666,4620,4018,4242,4472,5610,4860,8165,5264

%N a(n) = sum of n-th row of the triangle pertaining to A079774(n).

%p 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: A079776 := proc(n) local arow ; arow := A079775(n) ; add(op(i,arow),i=1..nops(arow)) ; end: for n from 1 to 80 do printf("%d, ",A079776(n)) ; od : # _R. J. Mathar_, Apr 01 2007

%Y Cf. A079774, A079775.

%K nonn

%O 1,1

%A _Amarnath Murthy_, Feb 03 2003

%E More terms from _R. J. Mathar_, Apr 01 2007

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 31 04:27 EST 2023. Contains 359947 sequences. (Running on oeis4.)