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 A081117 #7 Jan 30 2015 13:17:00 %S A081117 1,1,1,2,1,1,1,2,1,1,1,2,1,1,1,2,1,1,1,2,1,1,1,2,1,1,2,1,1,1,2,1,1,1, %T A081117 2,1,1,1,2,1,1,1,2,1,1,1,2,1,1,1,2,1,1,2,1,1,1,2,1,1,1,2,1,1,1,2,1,1, %U A081117 1,2,1,1,1,2,1,1,2,1,1,1,2,1,1,1,2,1,1,1,2,1,1,1,2,1,1,1,2,1,1,1,2,1,1,2,1 %N A081117 Differences of Beatty sequence for cube root of 2. %F A081117 a(n)=floor((n+1)*2^(1/3))-floor(n*2^(1/3)) %t A081117 With[{c=Surd[2,3]},Differences[Floor[Range[0,110]c]]] (* _Harvey P. Dale_, Jan 30 2015 *) %o A081117 (PARI) a(n)=floor((n+1)*2^(1/3))-floor(n*2^(1/3)) %K A081117 nonn %O A081117 0,4 %A A081117 _Benoit Cloitre_, Apr 16 2003