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

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

Offset

0,2

Links

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

Mathematica

A174664[n_] := A174664[n] = If[n <= 1, n+1, A174664[Abs[Floor[n/3 - A174664[n-2]]]]];
Array[A174664, 100, 0] (* Paolo Xausa, May 12 2025 *)

Crossrefs

Cf. A174353.

Sequence in context: A037813 A159700 A083534 * A027386 A102300 A359511

Adjacent sequences: A174661 A174662 A174663 * A174665 A174666 A174667

Keyword

easy,nonn

Author

Richard Choulet, Mar 26 2010

Status

approved