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 A140894 #5 Sep 10 2013 12:53:48 %S A140894 1,1,2,1,2,8,1,2,10,32,1,2,14,48,236,1,2,16,56,304,1280,1,2,20,72,464, %T A140894 2080,11584,1,2,22,80,556,2552,15112,76160,1,2,26,96,764,3640,24088, %U A140894 128256,786448,1,2,32,120,1136,5632,43072,243840,1693696,10214912 %N A140894 Triangle T(n,k) = sum_{0<=j<=k/2} A034867(k,j)*prime(n)^j, read by rows, 0<=k<n. %C A140894 Row sums are 1, 3, 11, 45, 301, 1659, 14223, 94485, 943321, 12202443... %F A140894 T(n,m)=( (1+sqrt prime(n))^m - (1-sqrt prime(n))^m) / (2*sqrt prime(n)). %e A140894 1; %e A140894 1, 2; %e A140894 1, 2, 8; %e A140894 1, 2, 10, 32; %e A140894 1, 2, 14, 48, 236; %e A140894 1, 2, 16, 56, 304, 1280; %e A140894 1, 2, 20, 72, 464, 2080, 11584; %e A140894 1, 2, 22, 80, 556, 2552, 15112, 76160; %e A140894 1, 2, 26, 96, 764, 3640, 24088, 128256, 786448; %e A140894 1, 2, 32, 120, 1136, 5632, 43072, 243840, 1693696, 10214912; %t A140894 Binet[n_, m_] := (((1 + Sqrt[Prime[n]]))^m - (( 1 - Sqrt[Prime[n]]))^m)/(2*Sqrt[Prime[n]]); a = Table[Table[ExpandAll[Binet[n, m]], {m, 1, n}], {n, 1, 10}] Flatten[a] %Y A140894 Cf. A117809. %K A140894 nonn,tabl %O A140894 1,3 %A A140894 _Roger L. Bagula_ and _Gary W. Adamson_, Jul 23 2008