login
Partial sums of A080586.
2

%I #8 Feb 26 2018 17:21:08

%S 1,2,3,5,7,9,10,11,12,13,14,15,17,19,21,23,25,27,28,29,30,31,32,33,34,

%T 35,36,37,38,39,41,43,45,47,49,51,53,55,57,59,61,63,64,65,66,67,68,69,

%U 70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,89,91,93,95,97,99,101

%N Partial sums of A080586.

%H Ivan Neretin, <a href="/A080587/b080587.txt">Table of n, a(n) for n = 0..10000</a>

%F Also: a(n) = n-2+3*2^A000523(A002264(n+6)/2)*(1-3*A080584(n))+A080584(n)*(n+7). - Antonio G. Astudillo (afg_astudillo(AT)hotmail.com), Feb 24 2003

%F Also: a(n) = 3*2^(A000523(A002264(n+6))-1)*(4-3*A080586(n))+A080586(n)*(n+7)-9. - Antonio G. Astudillo (afg_astudillo(AT)hotmail.com), Feb 24 2003

%t Accumulate[Flatten[Table[{PadRight[{},3*2^n,1],PadRight[{},3*2^n,2]},{n,0,4}]]] (* _Harvey P. Dale_, May 04 2014 *)

%K nonn

%O 0,2

%A _N. J. A. Sloane_, Feb 23 2003