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 A238314 #10 Feb 27 2014 03:26:03 %S A238314 1,1,3,7,33,91,388,1163,4231,13297,44694,136621,444535,1335335, %T A238314 4149785,12327698,37154245,108185961,318923590,913506701,2633793550, %U A238314 7443298426,21073435606,58715695683,163805615535,450730653566,1239947467778,3374934052348 %N A238314 Binomial transform of the squared rows of the table A072233 (A008284). %H A238314 Vincenzo Librandi, <a href="/A238314/b238314.txt">Table of n, a(n) for n = 0..80</a> %F A238314 a(n) = sum(binomial(n,k)*p(n,k)^2,k=0..n), where p(n,k) is the number of partitions of n into k positive parts (A072233, A008284). %t A238314 pnkList[n_] := Table[Length[IntegerPartitions[n, {k}]], {k, 0, n}] %t A238314 Table[Total[Table[Binomial[n,k],{k,0,n}] Map[#^2 &, pnkList[n]]], {n,0,40}] %Y A238314 Cf. A072233, A008284. %K A238314 nonn %O A238314 0,3 %A A238314 _Emanuele Munarini_, Feb 24 2014