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.

A238314 Binomial transform of the squared rows of the table A072233 (A008284).

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