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.
a(3) = 12 as, in the first quadrant, there is one 3-step SAW whose end-to-end distance is an integer (1 unit):
.
X---.
|
X---.
.
This can be walked in 8 different ways on a 2D square lattice. There are also the four walks directly along the x and y axes, giving a total of 8 + 4 = 12 walks.
For n=1 the a(1)=1 solution is (1,2,2,3). For n=2 the a(2)=3 solutions are (1,4,8,9), (2,3,6,7) and (2,4,4,6). For n=3 the a(3)=6 solutions are (1,6,18,19), (2,5,14,15), (2,6,9,11), (3,4,12,13), (3,6,6,9) and (4,4,7,9).
n=50;
div={};suc={};A={};
Do[A=Join[A,{Range[1,(1+1/Sqrt[3])q]}],{q,1,n}];
Do[suc=Join[suc,{Length[div]}];div={};For [i=1,i<=Length[Extract[A,q]],i++,div=Join[div,Intersection[Divisors[q^2+(Extract[Extract[A,q],i]-q)^2],Range[2(Extract[Extract[A,q],i]-q),Sqrt[q^2+(Extract[Extract[A,q],i]-q)^2]]]]],{q,1,n}];suc=Rest[Join[suc,{Length[div]}]];matriz={{"q"," ","cuaternas"}};For[j=1,j<=n,j++,matriz=Join[matriz,{{j," ",Extract[suc,j]}}]];MatrixForm[Transpose[matriz]]
Comments