OFFSET
1,2
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).
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 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Enrique Navarrete, Dec 04 2017
STATUS
approved