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.

A368821 Number of compositions of n into 2 refactorable parts.

This page as a plain text file.
%I A368821 #3 Jan 06 2024 23:59:18
%S A368821 0,1,2,1,0,0,0,0,2,4,2,0,2,2,0,1,2,1,2,4,2,0,0,1,2,4,2,0,0,2,0,2,2,0,
%T A368821 0,3,2,2,0,0,2,4,0,2,2,0,0,5,2,0,0,2,0,2,0,0,2,4,0,2,2,2,0,4,2,0,0,4,
%U A368821 2,0,0,3,2,4,0,2,0,2,0,5,4,2,0,4,2,2,0,2,4,4,0,6,2,0,0,10,4
%N A368821 Number of compositions of n into 2 refactorable parts.
%H A368821 <a href="/index/Com#comp">Index entries for sequences related to compositions</a>
%F A368821 a(n) = Sum_{k=1..n-1} c(k) * c(n-k), where c = A336040.
%e A368821 a(10) = 4. There are 4 ordered ways to write 10 as the sum of two refactorable numbers: 1 + 9 = 2 + 8 = 8 + 2 = 9 + 1.
%e A368821 a(36) = 3. There are 3 ordered ways to write 36 as the sum of two refactorable numbers: 12 + 24 = 18 + 18 = 24 + 12.
%t A368821 Table[Sum[(1 - Ceiling[k/DivisorSigma[0, k]] + Floor[k/DivisorSigma[0, k]]) (1 - Ceiling[(n - k)/DivisorSigma[0, (n - k)]] + Floor[(n - k)/DivisorSigma[0, (n - k)]]), {k, n - 1}], {n, 100}]
%Y A368821 Cf. A033950, A336040.
%K A368821 nonn,easy
%O A368821 1,3
%A A368821 _Wesley Ivan Hurt_, Jan 06 2024