A174835 a(0)=1, a(1)=2, a(n) = a(abs(floor(n/5 - a(n-2)))) for n>=2.

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

Offset

0,2

Links

Michael De Vlieger, Table of n, a(n) for n = 0..9998

Example

a(2) = a(abs(floor(2/5-a(0)))) = a(abs(floor(-3/5))) = a(1) = 2.
a(3) = a(abs(floor(3/5-a(1)))) = a(abs(floor(-7/5))) = a(2) = 2.
a(4) = a(abs(floor(4/5-a(2)))) = a(abs(floor(-6/5))) = a(2) = 2.
a(5) = a(abs(floor(5/5-a(3)))) = a(abs(floor(-5/5))) = a(1) = 2.
a(10) = a(abs(floor(10/5-a(8)))) = a(abs(floor(0/5))) = a(0) = 1.

Mathematica

nn = 1000; i = a[0] = 1; j = a[1] = 2; Do[k = a[Abs@ Floor[n/5 - i]]; Set[{i, j, a[n]}, {j, k, k}], {n, 2, nn} ]; Array[a, nn, 0] (* Michael De Vlieger, Oct 12 2024 *)

Crossrefs

Sequence in context: A336682 A103159 A063056 * A297036 A231072 A055640

Adjacent sequences: A174832 A174833 A174834 * A174836 A174837 A174838

Keyword

easy,nonn

Author

Richard Choulet, Mar 30 2010

Status

approved