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.

A224702 Number of partition sums between powers of 2 where the partition sums b(k) are A000070 and 2^n <= b(k) < 2^(n+1).

This page as a plain text file.
%I A224702 #10 Apr 18 2017 08:39:19
%S A224702 1,1,2,1,2,1,2,2,3,2,2,3,3,3,3,3,4,4,3,4,4,5,4,5,4,5,5,5,6,5,6,5,6,6,
%T A224702 7,6,7,6,7,7,7,7,8,7,8,8,8,8,9,8,9,9,8,10,9,9,10,9,10,10,10,11,10,11,
%U A224702 10,11,11,11,12,11,12,11,12,12,13,12,12,13,13,13,13,13,14,13,14
%N A224702 Number of partition sums between powers of 2 where the partition sums b(k) are A000070 and 2^n <= b(k) < 2^(n+1).
%C A224702 The sequence of partition sums A000070 is a complete sequence.
%H A224702 Vincenzo Librandi, <a href="/A224702/b224702.txt">Table of n, a(n) for n = 0..200</a>
%e A224702 a(11) = 3 as between 2048 and 4096 there are 3 partition sums namely 2087, 2714, 3506.
%t A224702 getterm[n0_] := Sum[PartitionsP[m0], {m0, 0, n0}]; termcount[n1_] := (m1=0; While[getterm[m1]<2^n1, m1++]; m1); Table[termcount[n+1]-termcount[n], {n, 0, 100}]
%Y A224702 Cf. A000070, A036378, A052005
%K A224702 nonn
%O A224702 0,3
%A A224702 _Frank M Jackson_, Apr 16 2013