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.

A203158 v(n+1)/v(n), where v=A203012.

This page as a plain text file.
%I A203158 #10 Sep 07 2023 07:14:35
%S A203158 7,247,21756,3613701,974243088,388409565699,214946329538304,
%T A203158 157727064375306153,148245464311769260800,173696139110375108022159,
%U A203158 248243987235370949531025408,425095516929076538387157860013
%N A203158 v(n+1)/v(n), where v=A203012.
%C A203158 See A093883 for a discussion and guide to related sequences.
%F A203158 a(n) ~ 3^(3*n/2 + 1) * exp((n+1)*Pi/(2*sqrt(3)) - 2*n) * n^(2*n). - _Vaclav Kotesovec_, Sep 07 2023
%t A203158 f[j_] := j; z = 12;
%t A203158 v[n_] := Product[Product[f[j]^2 + f[j] f[k] + f[k]^2,
%t A203158 {j, 1, k - 1}], {k, 2, n}]
%t A203158 Table[v[n], {n, 1, z}]          (* A203012 *)
%t A203158 Table[v[n + 1]/v[n], {n, 1, z}] (* A203158 *)
%t A203158 Table[Product[k^2 + k*(n+1) + (n+1)^2, {k, 1, n}], {n, 1, 15}] (* _Vaclav Kotesovec_, Sep 07 2023 *)
%K A203158 nonn
%O A203158 1,1
%A A203158 _Clark Kimberling_, Jan 04 2012