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.

A339364 Number of partitions of n into an even number of squares.

This page as a plain text file.
%I A339364 #5 Dec 02 2020 01:00:54
%S A339364 1,0,1,0,1,1,1,1,2,1,3,1,3,3,3,3,4,4,6,4,7,6,7,7,8,9,11,9,13,12,14,14,
%T A339364 16,16,20,17,23,22,25,25,28,29,33,31,37,38,41,42,45,48,54,51,61,60,67,
%U A339364 67,72,76,84,81,93,93,102,104,110,117,125,125,139,140,153
%N A339364 Number of partitions of n into an even number of squares.
%H A339364 <a href="/index/Par#part">Index entries for sequences related to partitions</a>
%H A339364 <a href="/index/Su#ssq">Index entries for sequences related to sums of squares</a>
%F A339364 G.f.: (1/2) * (Product_{k>=1} 1 / (1 - x^(k^2)) + Product_{k>=1} 1 / (1 + x^(k^2))).
%F A339364 a(n) = (A001156(n) + A292520(n)) / 2.
%e A339364 a(10) = 3 because we have [9, 1], [4, 4, 1, 1] and [1, 1, 1, 1, 1, 1, 1, 1, 1, 1].
%t A339364 nmax = 70; CoefficientList[Series[(1/2) (Product[1/(1 - x^(k^2)), {k, 1, Floor[nmax^(1/2)] + 1}] + Product[1/(1 + x^(k^2)), {k, 1, Floor[nmax^(1/2)] + 1}]), {x, 0, nmax}], x]
%Y A339364 Cf. A000290, A001156, A027187, A292520, A339365, A339366, A339367.
%K A339364 nonn
%O A339364 0,9
%A A339364 _Ilya Gutkovskiy_, Dec 01 2020