1,1

Row sums are:

{6, 46, 382, 3838, 46078, 645118, 10321918, 185794558, 3715891198,

81749606398, 1961990553598, 51011754393598, 1428329123020798,...}

p(x,n)=2^n*(1 - x)^(1 + n)*LerchPhi[x, -n, 1/2];

t(n,m)=If[coefficient<>1,coefficients(p(x,n)]

{6},

{23, 23},

{76, 230, 76},

{237, 1682, 1682, 237},

{722, 10543, 23548, 10543, 722},

{2179, 60657, 259723, 259723, 60657, 2179},

{6552, 331612, 2485288, 4675014, 2485288, 331612, 6552},

{19673, 1756340, 21707972, 69413294, 69413294, 21707972, 1756340, 19673},

{59038, 9116141, 178300904, 906923282, 1527092468, 906923282, 178300904, 9116141, 59038},

{177135, 46702427, 1403080725, 10836823098, 28588019814, 28588019814, 10836823098, 1403080725, 46702427, 177135},

{531428, 237231970, 10708911188, 121383780207, 477020564424, 743288515164, 477020564424, 121383780207, 10708911188, 237231970, 531428},

{1594309, 1198382694, 79944249686, 1295923334435, 7310750472183, 16818059163492, 16818059163492, 7310750472183, 1295923334435, 79944249686, 1198382694, 1594309},

{4782954, 6031771195, 587172549764, 13342139253321, 105040798548278, 342917527152507, 504541774904760, 342917527152507, 105040798548278, 13342139253321, 587172549764, 6031771195, 4782954}

p[x_, n_] = 2^n*(1 - x)^(1 + n)*LerchPhi[x, -n, 1/2];

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

Table[ Select[ Table[ t[ n, i ], {i, 1, n}], # > 1 & ], {n, 0, 14} ];

Select[ Flatten[ Table[ t[ n, i ], {n, 0, 13}, {i, 1, n} ] ], # > 1 & ]

A014410, A014449,A060187

Sequence in context: A154079 A012327 A012523 this_sequence A161446 A081097 A031293

Adjacent sequences: A154814 A154815 A154816 this_sequence A154818 A154819 A154820

nonn,tabl,uned

Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jan 15 2009