This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A174835 #11 Oct 13 2024 07:09:27 %S A174835 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, %T A174835 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, %U A174835 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 %N A174835 a(0)=1, a(1)=2, a(n) = a(abs(floor(n/5 - a(n-2)))) for n>=2. %H A174835 Michael De Vlieger, <a href="/A174835/b174835.txt">Table of n, a(n) for n = 0..9998</a> %e A174835 a(2) = a(abs(floor(2/5-a(0)))) = a(abs(floor(-3/5))) = a(1) = 2. %e A174835 a(3) = a(abs(floor(3/5-a(1)))) = a(abs(floor(-7/5))) = a(2) = 2. %e A174835 a(4) = a(abs(floor(4/5-a(2)))) = a(abs(floor(-6/5))) = a(2) = 2. %e A174835 a(5) = a(abs(floor(5/5-a(3)))) = a(abs(floor(-5/5))) = a(1) = 2. %e A174835 a(10) = a(abs(floor(10/5-a(8)))) = a(abs(floor(0/5))) = a(0) = 1. %t A174835 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 *) %K A174835 easy,nonn %O A174835 0,2 %A A174835 _Richard Choulet_, Mar 30 2010