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 A177147 #12 Mar 15 2015 21:22:59 %S A177147 1,-8,190,-8880,683375,-78206688,12452171844,-2631354777600, %T A177147 712425472573815,-240455417915625000,98981390235327670642, %U A177147 -48810267466347374088192,28406348214047496113497895,-19264981823338548859573191040,15061032335471422549306640625000 %N A177147 a(n) = determinant of n X n circulant matrix whose first row consists of the first n positive triangular numbers. %F A177147 a(n) = (-1)^(n-1)*n^(n-2)*(n+1)*(n+2)*((n+3)^n-(n+1)^n)/(6*2^n). %e A177147 a(4) = determinant of 4 X 4 matrix %e A177147 | 1, 3, 6, 10| %e A177147 |10, 1, 3, 6| %e A177147 | 6, 10, 1, 3| %e A177147 | 3, 6, 10, 1| %e A177147 = -8880. %t A177147 tri[n_] := n (n + 1)/2; f[n_] := Det[ Table[ RotateLeft[ tri@ Range@ n, -j], {j, 0, n - 1}]]; Array[f, 15] (* or *) %t A177147 f[n_] := (-1)^n*n^(n - 2)(n + 1)(n + 2)((n + 1)^n - (n + 3)^n)/(3*2^(n + 1)); Array[f, 15] (* _Robert G. Wilson v_, Aug 31 2014 *) %o A177147 (PARI) A177147(n)={ (-1)^(n-1)*n^(n-2)*(n+1)*(n+2)*((n+3)^n-(n+1)^n)/(6*2^n) ; } %o A177147 { for(n=1,20, print1(A177147(n)",") ; ) ; } \\ _R. J. Mathar_, May 28 2010 %Y A177147 Cf. A118705. %K A177147 easy,sign %O A177147 1,2 %A A177147 Missouri State University Problem-Solving Group (MSUPSG(AT)MissouriState.edu), May 03 2010 %E A177147 More terms from _R. J. Mathar_, May 28 2010 %E A177147 Two more terms from _Robert G. Wilson v_, Aug 31 2014