OFFSET
1,2
COMMENTS
Essentially the same as A193356. - R. J. Mathar, Jan 02 2018
LINKS
Andrew Howroyd, Table of n, a(n) for n = 1..1000
Index entries for linear recurrences with constant coefficients, signature (0,2,0,-1).
FORMULA
G.f.: x^2*(2 + 3*x - 4*x^2 - x^3 + 2*x^4)/((1 - x)^2*(1 + x)^2). - Andrew Howroyd, Nov 08 2025
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 *)
PROG
(PARI) a(n) = if(n==2 || (n > 2 && n%2), n, 0) \\ Andrew Howroyd, Nov 08 2025
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Enrique Navarrete, Dec 04 2017
EXTENSIONS
More terms from Andrew Howroyd, Nov 08 2025
STATUS
approved
