A095219 - OEIS

%I #7 Aug 08 2015 20:17:13

%S 22,433,78454,1112052505,160606060606,22070707070707,2908080808080808,

%T 370909090909090909,46101010101010101010,5611111111111111111111,

%U 671212121212121212121212,79131313131313131313131313,9293949517171716261615233314205014,106107108099816161515133215015015015015015015

%N First differences of A053067.

%e a(2) = 456 - 23 = 433.

%p A000124 := proc(n) n*(n+1)/2+1 ; end proc:

%p catL := proc(L) local a; a := op(1,L) ; for i from 2 to nops(L) do a := cat2(a,op(i,L)) ; end do; a; end proc:

%p A053067 := proc(n) local l ; l := A000124(n-1) ; catL([seq(k,k=l..l+n-1)]) ; end proc:

%p A095219 := proc(n) A053067(n+1)-A053067(n) ; end proc:

%p seq(A095219(n),n=1..15) ; # _R. J. Mathar_, Oct 14 2010

%K base,easy,less,nonn

%O 2,1

%A _Amarnath Murthy_, Jun 10 2004

%E Definition clarified by _R. J. Mathar_, Oct 14 2010