cp's OEIS Frontend

A164855 Generalized Lucas-Pascal triangle: (101*100^n,1).

%I A164855 #14 Jun 02 2025 01:52:52
%S A164855 1,101,1,10100,102,1,1010000,10202,103,1,101000000,1020202,10305,104,
%T A164855 1,10100000000,102020202,1030507,10409,105,1,1010000000000,
%U A164855 10202020202,103050709,1040916,10514,106,1,101000000000000,1020202020202
%N A164855 Generalized Lucas-Pascal triangle: (101*100^n,1).
%F A164855 T(0,0)=1, T(n+1,0)=101*100^n, T(n,n)=1, T(n,k)=T(n-1,k-1)+T(n-1,k) for 0<k<n. - _Philippe Deléham_, Dec 27 2013
%e A164855 Triangle begins:
%e A164855 1
%e A164855 101,1
%e A164855 10100,102,1
%e A164855 1010000,10202,103,1
%e A164855 101000000,1020202,10305,104,1
%e A164855 10100000000,102020202,1030507,10409,105,1
%e A164855 1010000000000,10202020202,103050709,1040916,10514,106,1
%e A164855 101000000000000,1020202020202,10305070911,104091625,1051430,10620,107,1
%p A164855 A164855 := proc(n,k)
%p A164855     option remember;
%p A164855     if n=k then
%p A164855         1;
%p A164855     elif k>n or k<0 then
%p A164855         0;
%p A164855     elif k = 0 then
%p A164855         101*100^(n-1) ;
%p A164855     else
%p A164855         procname(n-1,k-1)+procname(n-1,k) ;
%p A164855     end if;
%p A164855 end proc:
%p A164855 seq(seq(A164855(n,k),k=0..n),n=0..12) ; # _R. J. Mathar_, Nov 03 2016
%Y A164855 Cf. A164847, A164851, A029635, A228196.
%K A164855 nonn,tabl,easy
%O A164855 0,2
%A A164855 _Mark Dols_, Aug 28 2009
%E A164855 Initial 1 added by _Philippe Deléham_, Dec 27 2013