|
%I #6 Jan 27 2019 01:50:23
%S 1,3,3,9,7,9,7,9,11,19,17,15,9,15,13,29,23,27,33,23,29,21,31,31,35,25,
%T 27,27,41,89,57,67,51,63,49,49,49,43,39,51,39,63,47,65,45,75,95,71,67,
%U 79,59,61,59,73,61,65,77,73,75,63,95,81,87,71,103,107,85,85,101,87,71
%N Sum of the numbers in the n-th row of Gilbreath's triangle (A036261).
%p A036261 := proc(n,k) option remember ; if k = n then ithprime(n+1)-ithprime(n) ; else abs(procname(n,k+1)-procname(n-1,k)) ; end if; end proc: A173815 := proc(n) add(A036261(n,k),k=1..n) ; end proc: seq(A173815(n),n=1..90) ; # _R. J. Mathar_, Mar 01 2010
%Y Cf. A036261, A036262.
%K nonn
%O 1,2
%A _Juri-Stepan Gerasimov_, Feb 25 2010
%E a(10), a(22) etc. corrected and sequence extended by _R. J. Mathar_, Mar 01 2010
|
