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.

A286786 Column 1 of A286781.

This page as a plain text file.
%I A286786 #12 May 17 2017 22:53:03
%S A286786 1,9,91,1063,14193,213953,3602891,67168527,1375636129,30741614905,
%T A286786 745133551611,19485223248311,547092691302545,16422216867929457,
%U A286786 524970306508659691,17809453107819266335,639153386976421052481,24196474723945543441769,963736849031626750711451,40289411871795861783689799
%N A286786 Column 1 of A286781.
%H A286786 Gheorghe Coserea, <a href="/A286786/b286786.txt">Table of n, a(n) for n = 1..210</a>
%o A286786 (PARI)
%o A286786 A286781_ser(N, t='t) = {
%o A286786   my(x='x+O('x^N), y0=1+O('x^N), y1=0, n=1);
%o A286786   while(n++,
%o A286786     y1 = (1 + x*y0 + 2*x^2*y0')*(1 - x*y0*(1-t))/(1-x*y0)^2;
%o A286786     if (y1 == y0, break()); y0 = y1;);
%o A286786   y0;
%o A286786 };
%o A286786 Kol(K,N=20) = {
%o A286786   my(s = A286781_ser(N+K, 't+O('t^(K+1))));
%o A286786   vector(N, n, polcoeff(polcoeff(s, K+n-1), K));
%o A286786 };
%o A286786 Kol(1)
%Y A286786 Cf. A286781.
%K A286786 nonn
%O A286786 1,2
%A A286786 _Gheorghe Coserea_, May 16 2017