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 A189416 #20 Feb 16 2025 08:33:14 %S A189416 0,1,22,158,674,2159,5664,13004,26904,51401,92094,156710,255090, %T A189416 400359,608656,900100,1299336,1836461,2546550,3472162,4661898,6173123, %U A189416 8071952,10434600,13346080,16905033,21221558,26419338,32636098,40027283,48761448 %N A189416 Number of parallelograms on an n X n grid. %H A189416 Nathaniel Johnston, <a href="/A189416/a189416.c.txt">C program for computing terms</a> %H A189416 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/Parallelogram.html">Parallelogram</a> %F A189416 a(n) = Sum_{a=1..n-1} Sum_{b=1..n-1} (n-a)*(n-b)*(2*a*b - gcd(a,b)). - _Andrew Howroyd_, Sep 19 2017 %t A189416 a[n_] := Sum[(n-a)*(n-b)*(2*a*b - GCD[a, b]), {a, 1, n-1}, {b, 1, n-1}]; %t A189416 Array[a, 31] (* _Jean-François Alcover_, Oct 08 2017, translated from PARI *) %o A189416 (PARI) a(n) = sum(a=1, n-1, sum(b=1, n-1, (n-a)*(n-b)*(2*a*b - gcd(a,b)) )); \\ _Andrew Howroyd_, Sep 19 2017 %Y A189416 Cf. A186434, A189413, A189414. %K A189416 nonn %O A189416 1,3 %A A189416 _Martin Renner_, Apr 21 2011 %E A189416 a(6)-a(31) from _Nathaniel Johnston_, Apr 24 2011