A179662 - OEIS

%I #4 Mar 30 2012 17:40:25

%S 1,1,1,5,6,9,11,15,30,41,54,73,94,123,157,231,296,383,486,620,780,983,

%T 1225,1530,1958,2435,3008,3714,4558,5592,6823,8319,10098,12243,14786,

%U 17977,21636,26013,31181,37331,44571,53155,63231,75130,89067,105461

%N Number of partitions of n into square parts.

%t f[n_] := Length@ IntegerPartitions[n, All, Floor[ Sqrt@n]^2]; Array[f, 46]

%Y Cf. A001156, A000041. [From _R. J. Mathar_, Aug 12 2010]

%K nonn

%O 1,4

%A _Robert G. Wilson v_, Jul 23 2010