cp's OEIS Frontend

A152714 Triangle read by rows: T(n,k) = 3^min(k, n-k).

%I A152714 #20 Sep 08 2022 08:45:39
%S A152714 1,1,1,1,3,1,1,3,3,1,1,3,9,3,1,1,3,9,9,3,1,1,3,9,27,9,3,1,1,3,9,27,27,
%T A152714 9,3,1,1,3,9,27,81,27,9,3,1,1,3,9,27,81,81,27,9,3,1,1,3,9,27,81,243,
%U A152714 81,27,9,3,1
%N A152714 Triangle read by rows: T(n,k) = 3^min(k, n-k).
%H A152714 G. C. Greubel, <a href="/A152714/b152714.txt">Rows n=0..100 of triangle, flattened</a>
%F A152714 T(n,k) = 3^min(k, n-k) = 3^A004197(n,k). - _Philippe Deléham_, Feb 25 2014
%e A152714 Triangle begins
%e A152714   {1},
%e A152714   {1, 1},
%e A152714   {1, 3, 1},
%e A152714   {1, 3, 3,  1},
%e A152714   {1, 3, 9,  3,  1},
%e A152714   {1, 3, 9,  9,  3,   1},
%e A152714   {1, 3, 9, 27,  9,   3,  1},
%e A152714   {1, 3, 9, 27, 27,   9,  3,  1},
%e A152714   {1, 3, 9, 27, 81,  27,  9,  3, 1},
%e A152714   {1, 3, 9, 27, 81,  81, 27,  9, 3, 1},
%e A152714   {1, 3, 9, 27, 81, 243, 81, 27, 9, 3, 1}
%t A152714 Clear[a, k, m]; k = 3; a[0] = {1}; a[1] = {1, 1};
%t A152714 a[n_] := a[n] = Join[{1}, k*a[n - 2], {1}];
%t A152714 Table[a[n], {n, 0, 10}];
%t A152714 Flatten[%]
%t A152714 Table[3^(Min[k, n - k]), {n, 0, 100}, {k, 0, n}] // Flatten (* _G. C. Greubel_, Sep 01 2018 *)
%o A152714 (PARI) for(n=0,15, for(k=0,n, print1(3^(min(k,n-k)), ", "))) \\ _G. C. Greubel_, Sep 01 2018
%o A152714 (Magma) [[3^(Min(k,n-k)): k in [0..n]]: n in [0..15]]; // _G. C. Greubel_, Sep 01 2018
%Y A152714 Cf. A004197, A144464, A152716, A152717, A062318 (row sums).
%K A152714 nonn,easy,tabl
%O A152714 0,5
%A A152714 _Roger L. Bagula_ and _Gary W. Adamson_, Dec 11 2008
%E A152714 Better name by _Philippe Deléham_, Feb 25 2014