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 A331328 #5 Feb 02 2020 16:55:09 %S A331328 1,3,21,171,1509,13995,134277,1320651,13237221,134682219,1387100229, %T A331328 14430764043,151415596197,1600364733867,17022016484613, %U A331328 182055719885643,1956671540189541,21121180251536619,228880429935661509,2488986535173458571,27152943714786745893 %N A331328 Evaluation of the Little-Schröder polynomials at 1/2 and normalized with 2^n. %F A331328 a(n) = 2^n*Sum_{k=0..n} A172094(n,k) / 2^k. %F A331328 a(n) = [x^n] (1 + 6*x - 3*(4*x^2 - 12*x + 1)^(1/2))/(30*x - 2). %F A331328 a(n) = (60*(n - 3)*a(n-3) + (282 - 184*n)*a(n-2) + (27*n - 18)*a(n-1)) / n. %p A331328 gf := (1+6*x-3*(4*x^2-12*x+1)^(1/2))/(30*x-2): ser := series(gf, x, 32): %p A331328 seq(coeff(ser, x, n), n=0..20); %t A331328 RecurrenceTable[{a[n] == (60 a[n - 3] (n - 3) + (-184 n + 282) a[n - 2] + (27*n - 18) a[n - 1])/n, a[0] == 1, a[1] == 3, a[2] == 21}, a, {n, 20}] %Y A331328 Cf. A172094, A001003, A330802. %K A331328 nonn %O A331328 0,2 %A A331328 _Peter Luschny_, Feb 02 2020