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

 

Logo

Thanks to everyone who made a donation during our annual appeal!
To see the list of donors, or make a donation, see the OEIS Foundation home page.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A038221 Triangle whose (i,j)-th entry is binomial(i,j)*3^(i-j)*3^j. 11
1, 3, 3, 9, 18, 9, 27, 81, 81, 27, 81, 324, 486, 324, 81, 243, 1215, 2430, 2430, 1215, 243, 729, 4374, 10935, 14580, 10935, 4374, 729, 2187, 15309, 45927, 76545, 76545, 45927, 15309, 2187, 6561, 52488, 183708, 367416, 459270, 367416 (list; table; graph; refs; listen; history; text; internal format)
OFFSET

0,2

COMMENTS

Triangle of coefficients in expansion of (3 + 3x)^n = 3^n (1 +x)^n, where n is a nonnegative integer. (Coefficients in expansion of (1 +x)^n are given in A007318: Pascal's triangle). - Zagros Lalo, Jul 23 2018

REFERENCES

Shara Lalo and Zagros Lalo, Polynomial Expansion Theorems and Number Triangles, Zana Publishing, 2018, ISBN: 978-1-9995914-0-3, pp. 44, 48

LINKS

Indranil Ghosh, Rows 0..100 of triangle, flattened

B. N. Cyvin et al., Isomer enumeration of unbranched catacondensed polygonal systems with pentagons and heptagons, Match, No. 34 (Oct 1996), pp. 109-121.

FORMULA

G.f.: 1/(1 - 3*x - 3*x*y). - Ilya Gutkovskiy, Apr 21 2017

T(0,0) = 1; T(n,k) = 3 T(n-1,k) + 3 T(n-1,k-1) for k = 0...n; T(n,k)=0 for n or k < 0. - Zagros Lalo, Jul 23 2018

MATHEMATICA

t[0, 0] = 1; t[n_, k_] := t[n, k] = If[n < 0 || k < 0, 0, 3 t[n - 1, k] + 3 t[n - 1, k - 1]]; Table[t[n, k], {n, 0, 9}, {k, 0, n}] // Flatten (* Zagros Lalo, Jul 23 2018 *)

Table[CoefficientList[ Expand[3^n * (1 + x)^n], x], {n, 0, 9}] // Flatten  (* Zagros Lalo, Jul 23 2018 *)

Table[3^n  Binomial[n, k], {n, 0, 9}, {k, 0, n}] // Flatten  (* Zagros Lalo, Jul 23 2018 *)

PROG

(Haskell)

a038221 n = a038221_list !! n

a038221_list = concat $ iterate ([3, 3] *) [1]

instance Num a => Num [a] where

   fromInteger k = [fromInteger k]

   (p:ps) + (q:qs) = p + q : ps + qs

   ps + qs         = ps ++ qs

   (p:ps) * qs'@(q:qs) = p * q : ps * qs' + [p] * qs

   _ * _               = []

-- Reinhard Zumkeller, Apr 02 2011

(GAP) Flat(List([0..8], i->List([0..i], j->Binomial(i, j)*3^(i-j)*3^j))); # Muniru A Asiru, Jul 23 2018

CROSSREFS

Cf. A007318, A304236, A304249.

Sequence in context: A241357 A217450 A089892 * A099465 A099094 A222169

Adjacent sequences:  A038218 A038219 A038220 * A038222 A038223 A038224

KEYWORD

nonn,tabl,easy

AUTHOR

N. J. A. Sloane

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 January 23 07:07 EST 2020. Contains 331168 sequences. (Running on oeis4.)