cp's OEIS Frontend

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.

A177147 a(n) = determinant of n X n circulant matrix whose first row consists of the first n positive triangular numbers.

This page as a plain text file.
%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