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.
%I A295703 #31 Feb 16 2025 08:33:52
%S A295703 1,-1,2,-3,2,4,-18,43,-80,123,-148,78,287,-1364,3858,-8627,15901,
%T A295703 -23076,20061,18294,-140623,420241,-930040,1655753,-2293975,1872682,
%U A295703 1835066,-12983537,37871888,-83222132,149287250,-212064236,186932259,131172644,-1139053896,3449157957,-7710640256
%N A295703 Expansion of R(x*R(x)), where R(x) = 1/(1 + x/(1 + x^2/(1 + x^3/(1 + x^4/(1 + ...))))), a continued fraction (g.f. for A007325).
%H A295703 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/Rogers-RamanujanContinuedFraction.html">Rogers-Ramanujan Continued Fraction</a>
%F A295703 G.f.: 1/(1 + x/(1 + x/(1 + x^2/(1 + x^3/(1 + ...))))/(1 + x^2/(1 + x/(1 + x^2/(1 + x^3/(1 + ...))))^2/(1 + x^3/(1 + x/(1 + x^2/(1 + x^3/(1 + ...))))^3/(1 + ...)))), a continued fraction.
%t A295703 nmax = 36; CoefficientList[Series[1/(1 + ContinuedFractionK[(x/(1 + ContinuedFractionK[x^k, 1, {k, 1, nmax}]))^k, 1, {k, 1, nmax}]), {x, 0, nmax}], x]
%t A295703 g[x_] := g[x] = QPochhammer[x, x^5] QPochhammer[x^4, x^5]/(QPochhammer[x^2, x^5] QPochhammer[x^3, x^5]); a[n_] := a[n] = SeriesCoefficient[g[x g[x]], {x, 0, n}]; Table[a[n], {n, 0, 36}]
%Y A295703 Cf. A003823, A007325, A055101, A055102, A055103, A127632, A286509, A291651.
%K A295703 sign
%O A295703 0,3
%A A295703 _Ilya Gutkovskiy_, Nov 29 2017