# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/
Search: id:a339654
Showing 1-1 of 1
%I A339654 #12 Dec 16 2020 07:44:21
%S A339654 1,4,33,341,3860,45801,558967,6949276,87529800,1113178232,14262575360,
%T A339654 183817376373,2380397391739,30947782216312,403696062660177,
%U A339654 5280951542877725,69252255466431356,910088352234643128,11982557663480438404,158029913929209576448
%N A339654 Number of lattice paths from (0,0) to (n,n) using steps (1,0), (0,1), (1,1), (-1,1) and whose points lie entirely in the integer square of lattice points {(i,j): 0 <= i,j <= n}.
%H A339654 Alois P. Heinz, Table of n, a(n) for n = 0..885
%H A339654 M. Dziemianczuk, Counting Lattice Paths With Four Types of Steps, Graphs and Combinatorics, September 2013, Volume 30, Issue 6, pp 1427-1452.
%F A339654 a(n) = A232968(n,n).
%F A339654 Recurrence: 2*(n+1)*(2*n + 1)*(6426*n^6 - 34821*n^5 + 75342*n^4 - 110997*n^3 + 137126*n^2 - 89704*n + 14688)*a(n) = 2*(205632*n^8 - 870084*n^7 + 1065120*n^6 - 1064055*n^5 + 3636646*n^4 - 6605153*n^3 + 5705054*n^2 - 2451496*n + 337824)*a(n-1) - 2*(436968*n^8 - 1609560*n^7 + 1220388*n^6 - 1075731*n^5 + 7315348*n^4 - 10572257*n^3 + 2273876*n^2 + 3716864*n - 1706472)*a(n-2) + 3*(n-2)*(109242*n^7 - 219249*n^6 - 131205*n^5 - 326601*n^4 + 1315615*n^3 - 247542*n^2 - 821068*n + 335976)*a(n-3) - 6*(n-3)*(n-2)*(6426*n^6 + 3735*n^5 - 2373*n^4 - 29319*n^3 + 4367*n^2 + 17376*n - 1940)*a(n-4). - _Vaclav Kotesovec_, Dec 16 2020
%p A339654 b:= proc(x, y, m) option remember; `if`(x=0 and y=0, 1,
%p A339654 `if`(x>0, b(x-1, y, m), 0)+`if`(y>0, b(x, y-1, m), 0)+
%p A339654 `if`(x>0 and y>0, b(x-1, y-1, m), 0)+
%p A339654 `if`(x0, b(x+1, y-1, m), 0))
%p A339654 end:
%p A339654 a:= n-> b(n$3):
%p A339654 seq(a(n), n=0..23);
%t A339654 Table[SeriesCoefficient[2^(n + 2) * (1 + x)^n * Sqrt[1 - 6*x - 3*x^2]/((1 - x + Sqrt[1 - 6*x - 3*x^2])^(n + 2) - (1 - x - Sqrt[1 - 6*x - 3*x^2])^(n + 2)), {x, 0, n}], {n, 0, 20}] (* _Vaclav Kotesovec_, Dec 16 2020 *)
%Y A339654 Main diagonal of A232968.
%K A339654 nonn
%O A339654 0,2
%A A339654 _Alois P. Heinz_, Dec 11 2020
# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE