A296065 - OEIS

%I #15 Oct 21 2021 18:33:34

%S 0,2,3,0,5,0,7,0,9,0,11,0,13,0,15,0,17,0,19,0,21,0,23,0,25,0,27,0,29,

%T 0,31,0,33,0,35,0,37,0,39,0,41,0,43,0,45,0,47,0,49,0,51,0,53,0,55

%N Partial sums of A296064.

%C Essentially the same as A193356. - _R. J. Mathar_, Jan 02 2018

%H <a href="/index/Rec#order_04">Index entries for linear recurrences with constant coefficients</a>, signature (0,2,0,-1).

%t Accumulate@ Nest[Append[#, Block[{k = 1, s = 1}, While[Nand[FreeQ[#, s k], IntegerQ@ Mean[Append[#, s k]]], If[s == 1, s = -1, k++; s = 1]]; s k]] &, {0}, 54] (* _Michael De Vlieger_, Dec 12 2017 *)

%t LinearRecurrence[{0,2,0,-1},{0,2,3,0,5,0},60] (* or *) Join[{0,2},Riffle[ 2*Range[ 30]+1,0]]  (* _Harvey P. Dale_, Oct 21 2021 *)

%Y Cf. A296064.

%K nonn,easy

%O 1,2

%A _Enrique Navarrete_, Dec 04 2017