login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A174038 A triangle sequence of the form:q=3:t(n,m,q)=Sum[q^i*Floor[Binomial[n, m]/2^i], {i, 0, 10}] 0
1, 1, 1, 1, 5, 1, 1, 6, 6, 1, 1, 19, 24, 19, 1, 1, 20, 70, 70, 20, 1, 1, 24, 90, 230, 90, 24, 1, 1, 25, 231, 671, 671, 231, 25, 1, 1, 65, 295, 941, 2083, 941, 295, 65, 1, 1, 66, 684, 2289, 3024, 3024, 2289, 684, 66, 1, 1, 70, 750, 3000, 8580, 9324, 8580, 3000, 750, 70, 1 (list; table; graph; refs; listen; history; text; internal format)
OFFSET

0,5

COMMENTS

Row sums are:

{1, 2, 7, 14, 64, 182, 460, 1856, 4687, 12128, 34126,...}.

LINKS

Table of n, a(n) for n=0..65.

FORMULA

q=3:

t(n,m,q)=Sum[q^i*Floor[Binomial[n, m]/2^i], {i, 0, 10}]

EXAMPLE

{1},

{1, 1},

{1, 5, 1},

{1, 6, 6, 1},

{1, 19, 24, 19, 1},

{1, 20, 70, 70, 20, 1},

{1, 24, 90, 230, 90, 24, 1},

{1, 25, 231, 671, 671, 231, 25, 1},

{1, 65, 295, 941, 2083, 941, 295, 65, 1},

{1, 66, 684, 2289, 3024, 3024, 2289, 684, 66, 1},

{1, 70, 750, 3000, 8580, 9324, 8580, 3000, 750, 70, 1}

MATHEMATICA

t[n_, m_, q_] = Sum[q^i*Floor[Binomial[n, m]/2^i], {i, 0, 10}];

Table[Flatten[Table[Table[t[n, m, q], {m, 0, n}], {n, 0, 10}]], {q, 1, 10}]

CROSSREFS

Sequence in context: A297986 A298635 A171146 * A328098 A200401 A214228

Adjacent sequences:  A174035 A174036 A174037 * A174039 A174040 A174041

KEYWORD

nonn,tabl,uned

AUTHOR

Roger L. Bagula, Mar 06 2010

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 4 07:32 EDT 2020. Contains 336201 sequences. (Running on oeis4.)