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 A152717 #10 Feb 25 2014 21:21:42 %S A152717 1,1,1,1,5,1,1,5,5,1,1,5,25,5,1,1,5,25,25,5,1,1,5,25,125,25,5,1,1,5, %T A152717 25,125,125,25,5,1,1,5,25,125,625,125,25,5,1,1,5,25,125,625,625,125, %U A152717 25,5,1,1,5,25,125,625,3125,625,125,25,5,1 %N A152717 Triangle T(n,k) read by rows: T(n,k) = 5^min(k, n-k) = 5^A004197(n,k). %C A152717 Row sums are: {1, 2, 7, 12, 37, 62, 187, 312, 937, 1562, 4687,...} %F A152717 T(n,k) = 5^min(k, n-k). - _Philippe Deléham_, Feb 25 2014 %e A152717 {1}, %e A152717 {1, 1}, %e A152717 {1, 5, 1}, %e A152717 {1, 5, 5, 1}, %e A152717 {1, 5, 25, 5, 1}, %e A152717 {1, 5, 25, 25, 5, 1}, %e A152717 {1, 5, 25, 125, 25, 5, 1}, %e A152717 {1, 5, 25, 125, 125, 25, 5, 1}, %e A152717 {1, 5, 25, 125, 625, 125, 25, 5, 1}, %e A152717 {1, 5, 25, 125, 625, 625, 125, 25, 5, 1}, %e A152717 {1, 5, 25, 125, 625, 3125, 625, 125, 25, 5, 1} %t A152717 Clear[a, k, m]; k = 5; a[0] = {1}; a[1] = {1, 1}; %t A152717 a[n_] := a[n] = Join[{1}, k*a[n - 2], {1}]; %t A152717 Table[a[n], {n, 0, 10}]; %t A152717 Flatten[%] %Y A152717 Cf. A004197, A144464, A152714, A152716. %K A152717 nonn,easy,tabl %O A152717 0,5 %A A152717 _Roger L. Bagula_ and _Gary W. Adamson_, Dec 11 2008 %E A152717 Better name from _Philippe Deléham_, Feb 25 2014