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 A177827 #7 Mar 12 2014 16:37:17 %S A177827 1,1,1,1,23548,1,1,21707972,21707972,1,1,10708911188,743288515164, %T A177827 10708911188,1,1,4261002128223,6453703025399873,6453703025399873, %U A177827 4261002128223,1,1,1556000598766224,30920009116692763140,527896878148304296900,30920009116692763140 %N A177827 Sub-triangle of A060187 formed by taking every third-indexed term of every third row. %C A177827 Row sums are:{1, 2, 23550, 43415946, 764706337542, 12915928055056194, %C A177827 589740008382887355630, 34621385290631641181980314, %C A177827 3529900361215340810891790303798, 482387142371699171544762551301105426, %C A177827 95463751455117339958648491169567658521950,...}. %e A177827 {1}, %e A177827 {1, 1}, %e A177827 {1, 23548, 1}, %e A177827 {1, 21707972, 21707972, 1}, %e A177827 {1, 10708911188, 743288515164, 10708911188, 1}, %e A177827 {1, 4261002128223, 6453703025399873, 6453703025399873, 4261002128223, 1} %t A177827 p[x_, n_] = (1 - x)^(n + 1)*Sum[((2*k + 1)^n)*x^k, {k, 0, Infinity}]; %t A177827 t[n_, m_] := CoefficientList[FullSimplify[ExpandAll[p[x, n]]], x][[m + 1]]; %t A177827 Table[Table[t[n, 3*m], {m, 0, Floor[n/3]}], {n, 0, 30, 3}]; %t A177827 Flatten[%] %Y A177827 Cf.A060187 %K A177827 nonn,tabl %O A177827 0,5 %A A177827 _Roger L. Bagula_, Dec 13 2010