A296065 Partial sums of A296064.

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, 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

Offset: 1

Author

Enrique Navarrete, Dec 04 2017

Keywords

• nonn
• easy

Comments

Essentially the same as A193356. - R. J. Mathar, Jan 02 2018

Links

• Index entries for linear recurrences with constant coefficients, signature (0,2,0,-1).

Crossrefs

Cf. A296064.

Programs

Mathematica

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 *)
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 *)