cp's OEIS Frontend

A117894 Triangle, row sums = Pell numbers, A000129.

%I A117894 #12 Oct 09 2021 16:00:27
%S A117894 1,1,1,1,2,2,1,3,3,5,1,4,4,8,12,1,5,5,11,19,29,1,6,6,14,26,46,70,1,7,
%T A117894 7,17,33,63,111,169,1,8,8,20,40,80,152,268,408,1,9,9,23,47,97,193,367,
%U A117894 647,985
%N A117894 Triangle, row sums = Pell numbers, A000129.
%C A117894 Deleting the right border gives triangle A117895.
%H A117894 G. C. Greubel, <a href="/A117894/b117894.txt">Rows n = 0..50 of the triangle, flattened</a>
%F A117894 Rows are composed of difference terms of triangle A117584.
%F A117894 Rows sum to Pell numbers, A000129.
%F A117894 From _G. C. Greubel_, Sep 27 2021: (Start)
%F A117894 T(n, k) = (k-n)*A000129(k+1) + (3*n-3*k+1)*A000129(k) with T(n,0) = 1.
%F A117894 T(n, k) = A117584(n+1, k+1) - A117584(n+1, k) with T(n, 0) = 1.
%F A117894 T(n, 1) = n for n >= 1.
%F A117894 T(n, 2) = n for n >= 2.
%F A117894 T(n, n) = [n=0] + A000129(n).
%F A117894 T(n, n-1) = 2*[n=0] + A078343(n). (End)
%e A117894 First few rows of the triangle are:
%e A117894   1;
%e A117894   1, 1;
%e A117894   1, 2, 2;
%e A117894   1, 3, 3,  5;
%e A117894   1, 4, 4,  8, 12;
%e A117894   1, 5, 5, 11, 19, 29;
%e A117894   1, 6, 6, 14, 26, 46,  70;
%e A117894   1, 7, 7, 17, 33, 63, 111, 169;
%e A117894 ...
%e A117894 Row 4 of A117584 = (1, 4, 7, 12). Difference terms (1, 3, 3, 5) = row 4 of A117894.
%t A117894 T[n_, k_]:= T[n, k]= If[k==0, 1, (k-n)*Fibonacci[k+1, 2] + (3*n-3*k+1)*Fibonacci[k, 2]]; Table[T[n, k], {n,0,12}, {k,0,n}]//Flatten (* _G. C. Greubel_, Sep 27 2021 *)
%o A117894 (Magma) Pell:= func< n | Round(((1+Sqrt(2))^n - (1-Sqrt(2))^n)/(2*Sqrt(2))) >;
%o A117894 [k eq 0 select 1 else (k-n)*Pell(k+1) + (3*n-3*k+1)*Pell(k): k in [0..n], n in [0..12]]; // _G. C. Greubel_, Sep 27 2021
%o A117894 (Sage)
%o A117894 def P(n): return lucas_number1(n, 2, -1)
%o A117894 def A117894(n,k): return 1 if (k==0) else (k-n)*P(k+1) + (3*n-3*k+1)*P(k)
%o A117894 flatten([[A117894(n,k) for k in (0..n)] for n in (0..12)]) # _G. C. Greubel_, Sep 27 2021
%Y A117894 Cf. A000129, A078343, A117584, A117895.
%K A117894 nonn,tabl
%O A117894 0,5
%A A117894 _Gary W. Adamson_, Mar 30 2006