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.

A325646 Number of separable partitions of n in which the number of distinct (repeatable) parts is 2.

This page as a plain text file.
%I A325646 #8 May 16 2019 17:34:03
%S A325646 0,0,1,2,4,4,7,8,9,11,13,14,16,18,18,22,22,25,25,29,28,32,31,38,34,39,
%T A325646 38,44,40,49,43,52,48,53,50,63,52,60,58,69,58,73,61,74,70,74,67,90,71,
%U A325646 84,78,89,76,97,82,100,88,95,85,119
%N A325646 Number of separable partitions of n in which the number of distinct (repeatable) parts is 2.
%C A325646 A partition is separable if there is an ordering of its parts in which no consecutive parts are identical. See A325534 for a guide to related sequences.
%e A325646 a(6) counts these 4 partitions:  [5,1], [4,2], [1,4,1], [2,1,2,1].
%t A325646 (separable=Table[Map[# [[1]]&,Select[Map[{#,Quotient[(1+Length[#]),Max[Map[Length,Split[#]]]]}&,IntegerPartitions[nn]],#[[2]]>1&]],{nn,35}]);
%t A325646 Map[Length[Select[Map[{#,Length[Union[#]]}&,#],#[[2]]==2&]]&,separable]
%t A325646 (* _Peter J. C. Moses_, May 08 2019 *)
%Y A325646 Cf. A000041, A325334, A325647.
%K A325646 nonn,easy
%O A325646 1,4
%A A325646 _Clark Kimberling_, May 16 2019