A174353 a(0)=1, a(1)=2, a(2)=1, and a(n)=a(abs(floor((1/4)*n-a(n-2)))) for n>=3.

1, 2, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1

Offset

0,2

Links

Paolo Xausa, Table of n, a(n) for n = 0..10000

Mathematica

A174353[n_] := A174353[n] = Switch[n, 0|2, 1, 1, 2, _, A174353[Abs[Floor[n/4 - A174353[n-2]]]]];
Array[A174353, 100, 0] (* Paolo Xausa, May 12 2025 *)

Prog

(PARI) a(n)=if (n==0, 1, if (n==1, 2, if (n==2, 1, a(abs(floor((1/4)*n-a(n-2))))))) \\ Michel Marcus, May 11 2025

Crossrefs

Cf. A174664.

Sequence in context: A085021 A060209 A037830 * A319582 A187447 A146292

Adjacent sequences: A174350 A174351 A174352 * A174354 A174355 A174356

Keyword

easy,nonn,less

Author

Richard Choulet, Mar 17 2010

Extensions

Name corrected by Michel Marcus, May 11 2025

Status

approved