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.

A290327 Total number of parts in all partitions of n into distinct Lucas numbers (beginning with 1) (A000204).

This page as a plain text file.
%I A290327 #5 Jul 27 2017 13:59:56
%S A290327 1,0,1,3,2,0,3,5,0,2,6,5,0,5,9,3,0,6,9,0,5,12,7,0,9,12,0,3,10,9,0,9,
%T A290327 17,7,0,12,16,0,7,18,12,0,12,18,4,0,10,14,0,9,21,12,0,17,22,0,7,21,16,
%U A290327 0,16,27,9,0,18,23,0,12,27,15,0,18,22,0,4,15,14,0,14,27,12,0,21,27,0,12,32,22,0,22
%N A290327 Total number of parts in all partitions of n into distinct Lucas numbers (beginning with 1) (A000204).
%H A290327 <a href="/index/Par#part">Index entries for related partition-counting sequences</a>
%F A290327 G.f.: Sum_{i>=1} x^A000204(i)/(1 + x^A000204(i))*Product_{j>=1} (1 + x^A000204(j)).
%e A290327 a(8) = 5 because we have [7, 1], [4, 3, 1] and 2 + 3 = 5.
%t A290327 nmax = 90; Rest[CoefficientList[Series[Sum[x^LucasL[i]/(1 + x^LucasL[i]) Product[(1 + x^LucasL[j]), {j, 1, nmax}], {i, 1, nmax}], {x, 0, nmax}], x]]
%Y A290327 Cf. A000204, A003263, A240225.
%K A290327 nonn
%O A290327 1,4
%A A290327 _Ilya Gutkovskiy_, Jul 27 2017