cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A061883 Largest triangular number less than or equal to sum of previous terms with a(0)=1.

This page as a plain text file.
%I A061883 #9 Feb 12 2016 17:06:27
%S A061883 1,1,1,3,6,10,21,36,78,153,300,595,1176,2346,4656,9316,18528,37128,
%T A061883 74305,148240,296835,593505,1186570,2372931,4744740,9489546,18975880,
%U A061883 37953828,75909681,151806600,303626403,607243825,1214480970,2428940451
%N A061883 Largest triangular number less than or equal to sum of previous terms with a(0)=1.
%C A061883 a(5)=10 since 1+1+1+3+6=12 and 10 is the largest triangular number less than or equal to this.
%H A061883 Harvey P. Dale, <a href="/A061883/b061883.txt">Table of n, a(n) for n = 0..1000</a>
%F A061883 a(n) = A060985(n+1)-A060985(n) = A057944(A060985(n)) = A000217(A003056(A060985(n)))
%t A061883 ltn[n_]:=Module[{c=Floor[(Sqrt[8*n+1]-1)/2]},(c(c+1))/2]; nxt[{t_, a_}] := Module[ {m = ltn[t]}, {t + m, m}]; Transpose[NestList[nxt,{1,1},40]] [[2]] (* _Harvey P. Dale_, Feb 12 2016 *)
%o A061883 (Haskell)
%o A061883 a061883 n = a061883_list !! n
%o A061883 a061883_list = 1 : zipWith (-) (tail a060985_list) a060985_list
%o A061883 -- _Reinhard Zumkeller_, Feb 03 2012
%K A061883 nonn
%O A061883 0,4
%A A061883 _Henry Bottomley_, May 12 2001