%I A024788
%S A024788 0,0,0,1,1,2,3,6,8,13,18,28,38,55,74,105,139,190,250,336,436,575,740,963,
%T A024788 1228,1577,1995,2538,3186,4013,5005,6256,7751,9617,11847,14605,17894,21927,
%U A024788 26730,32582,39531,47942,57915,69920,84114,101116,121176,145095,173248
%N A024788 Number of 4's in all partitions of n.
%t A024788 << DiscreteMath`Combinatorica`; Table[ Count[ Flatten[ Partitions[n]], 
               4], {n, 1, 50} ]
%Y A024788 Cf. A066633, A024786, A024787, A024789, A024790, A024791, A024792, A024793, 
               A024794.
%Y A024788 Sequence in context: A036957 A022943 A068491 this_sequence A004101 A003405 
               A153918
%Y A024788 Adjacent sequences: A024785 A024786 A024787 this_sequence A024789 A024790 
               A024791
%K A024788 nonn
%O A024788 1,6
%A A024788 Clark Kimberling (ck6(AT)evansville.edu)