This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A002900 M1621 N0634 #36 Dec 27 2019 17:46:50 %S A002900 2,6,18,50,142,390,1086,2958,8134,22050,60146,162466,440750,1187222, %T A002900 3208298,8622666,23233338,62329366,167558310,448848582,1204403014, %U A002900 3222280242,8633306906,23073198658,61740677454,164856393110,440658745814 %N A002900 Number of n-step walks on square lattice. %D A002900 N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence). %D A002900 N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence). %H A002900 Hugo Pfoertner, <a href="/A002900/b002900.txt">Table of n, a(n) for n = 1..79</a> %F A002900 a(n) = (1/2) * A001411(n). %t A002900 (* b = A001411 *) mo = Tuples[{-1, 1}, 2]; b[0] = 1; b[tg_, p_:{{0, 0}}] := b[tg, p] = Block[{e, mv = Complement[Last[p] + #& /@ mo, p]}, If[tg == 1, Length[mv], Sum[b[tg-1, Append[p, e]], {e, mv}]]]; %t A002900 a[n_] := b[n]/2; %t A002900 Table[an = a[n]; Print[an]; an, {n, 1, 16}] (* _Jean-François Alcover_, Nov 02 2018, after _Giovanni Resta_ in A001411 *) %Y A002900 A001411 is the main entry for this sequence. %Y A002900 Cf. A046661. %K A002900 nonn,walk %O A002900 1,1 %A A002900 _N. J. A. Sloane_ %E A002900 More terms from _Hugo Pfoertner_, Dec 23 2002