login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A177827 Sub-triangle of A060187 formed by taking every third-indexed term of every third row. 0

%I #7 Mar 12 2014 16:37:17

%S 1,1,1,1,23548,1,1,21707972,21707972,1,1,10708911188,743288515164,

%T 10708911188,1,1,4261002128223,6453703025399873,6453703025399873,

%U 4261002128223,1,1,1556000598766224,30920009116692763140,527896878148304296900,30920009116692763140

%N Sub-triangle of A060187 formed by taking every third-indexed term of every third row.

%C Row sums are:{1, 2, 23550, 43415946, 764706337542, 12915928055056194,

%C 589740008382887355630, 34621385290631641181980314,

%C 3529900361215340810891790303798, 482387142371699171544762551301105426,

%C 95463751455117339958648491169567658521950,...}.

%e {1},

%e {1, 1},

%e {1, 23548, 1},

%e {1, 21707972, 21707972, 1},

%e {1, 10708911188, 743288515164, 10708911188, 1},

%e {1, 4261002128223, 6453703025399873, 6453703025399873, 4261002128223, 1}

%t p[x_, n_] = (1 - x)^(n + 1)*Sum[((2*k + 1)^n)*x^k, {k, 0, Infinity}];

%t t[n_, m_] := CoefficientList[FullSimplify[ExpandAll[p[x, n]]], x][[m + 1]];

%t Table[Table[t[n, 3*m], {m, 0, Floor[n/3]}], {n, 0, 30, 3}];

%t Flatten[%]

%Y Cf.A060187

%K nonn,tabl

%O 0,5

%A _Roger L. Bagula_, Dec 13 2010

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 22 21:17 EDT 2024. Contains 373609 sequences. (Running on oeis4.)