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 A334889 #10 May 17 2020 12:13:54 %S A334889 0,0,0,1,2,2,2,1,0,0,0,1,2,2,2,1,0,0,0,1,2,2,2,1,3,3,3,4,5,5,5,4,6,6, %T A334889 6,7,8,8,8,7,6,6,6,7,8,8,8,7,6,6,6,7,8,8,8,7,3,3,3,4,5,5,5,4,0,0,0,1, %U A334889 2,2,2,1,0,0,0,1,2,2,2,1,0,0,0,1,2,2,2 %N A334889 a(n) = Sum_{k >= 0} f(d_k) * 3^k where Sum_{k >= 0} d_k * 8^k is the base 8 representation of n and f(k) = 0, 0, 0, 1, 2, 2, 2, 1 for k = 0..7, respectively. %C A334889 The lattice points with coordinates (A334888(n), a(n)) for n >= 0 form a Sierpinski carpet. %H A334889 Rémy Sigrist, <a href="/A334889/b334889.txt">Table of n, a(n) for n = 0..4095</a> (n = 0..8^4-1) %H A334889 Wikipedia, <a href="https://en.wikipedia.org/wiki/Sierpinski_carpet">Sierpinski carpet</a> %F A334889 A153490(1 + A334888(n), 1 + a(n)) = 1. %e A334889 For n = 42: %e A334889 - 42 = 5*8^1 + 2*8^0, %e A334889 - so a(42) = f(5)*3^1 + f(2)*3^0 = 2*3^1 + 0*3^0 = 6. %o A334889 (PARI) a(n) = { my (f=[0, 0, 0, 1, 2, 2, 2, 1], d=Vecrev(digits(n, #f))); sum(k=0, #d-1, f[1+d[1+k]] * 3^k) } %Y A334889 Cf. A153490, A334888. %K A334889 nonn,base %O A334889 0,5 %A A334889 _Rémy Sigrist_, May 14 2020