|
%I #11 Dec 18 2016 01:35:38
%S 1,2,4,5,8,10,14,18,26,34,46,60,81,105,139,180,236,302,390,495,632,
%T 797,1007,1260,1580,1963,2441,3015,3723,4570,5609,6847,8355,10149,
%U 12316,14889,17983,21643,26021,31191,37344,44589,53180,63267,75181,89140
%N Binary order of n plus number of partitions of n-1.
%H G. C. Greubel, <a href="/A163295/b163295.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = A029837(n) + A000041(n-1).
%e a(6)=10=3+7. a(7)=14=3+11. a(8)=18=3+15. a(9)=26=4+22.
%t Table[Ceiling[Log[2,n]]+PartitionsP[n-1],{n,50}] (* _Harvey P. Dale_, Oct 20 2012 *)
%Y Cf. A000041 (number of partitions), A029837 (binary order).
%K nonn,less
%O 1,2
%A _Juri-Stepan Gerasimov_, Jul 24 2009
%E Indices in formula and definition corrected by _R. J. Mathar_, May 21 2010
|
