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.

A176084 Row sums of A175105.

This page as a plain text file.
%I A176084 #21 Jan 15 2015 11:47:59
%S A176084 1,2,4,9,22,58,160,454,1311,3828,11260,33290,98778,293866,875960,
%T A176084 2614891,7814544,23373354,69955372,209478678,627521578,1880400340,
%U A176084 5636065932,16895989570,50658893073
%N A176084 Row sums of A175105.
%C A176084 a(n+1)/a(n) tends to 3.
%C A176084 a(n)/A007051(n) tends to Product_{k>=1} (1-1/((3^k + 1)/2)). To observe the asymptote one needs 1000 or more decimal digits of the constant c=Product_{k>=1} (1-1/((3^k + 1)/2)). - _Mats Granvik_, Jan 02 2015
%F A176084 a(n) ~ Product_{k>=1} (1-1/((3^k + 1)/2))*A007051(n). - _Mats Granvik_, Jan 01 2015
%e A176084 a(25)/A007051(24) = 50658893073/141214768241 = 0.35873650967258963431... which is close to 0.35792312728995990302591...
%t A176084 Clear[t]; nn = 25; t[n_, 1] = 1; t[n_, k_] := t[n, k] = If[n >= k, Sum[t[n - i, k - 1], {i, 1, k - 1}] + Sum[t[n - i, k], {i, 1, k - 1}], 0]; Table[Sum[t[n, k], {k, 1, n}], {n, 1, nn}](* _Mats Granvik_, Jan 02 2015 *)
%Y A176084 Cf. A177510.
%K A176084 nonn
%O A176084 1,2
%A A176084 _Mats Granvik_, Apr 08 2010