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 A300069 #23 Oct 05 2018 07:58:39 %S A300069 0,0,0,1,2,1,0,0,0,1,2,1,0,0,0,1,2,1,0,0,0,1,2,1,0,0,0,1,2,1,0,0,0,1, %T A300069 2,1,0,0,0,1,2,1,0,0,0,1,2,1,0,0,0,1,2,1,0,0,0,1,2,1,0,0,0,1,2,1,0,0, %U A300069 0,1,2,1,0,0,0,1,2,1,0,0,0,1,2,1 %N A300069 Period 6: repeat [0, 0, 0, 1, 2, 1]. %C A300069 Underlying A174257(n+1), n >= 0. %H A300069 <a href="/index/Rec#order_05">Index entries for linear recurrences with constant coefficients</a>, signature (1,-1,1,-1,1). %F A300069 a(n) = floor((n (mod 6))/3) + floor((n + 1 (mod 6))/5), n >= 0. %F A300069 G.f.: x^3*(1 + x)^2/(1 - x^6) = -x^3*(1+x)/(x-1)/(1+x+x^2)/(1-x+x^2). %F A300069 a(n) = (4 - 3*cos(n*Pi/3) - cos(2*n*Pi/3) - 3*sqrt(3)*sin(n*Pi/3) + sqrt(3)*sin(2*n*Pi/3))/6. - _Wesley Ivan Hurt_, Oct 04 2018 %t A300069 PadRight[{}, 102, {0, 0, 0, 1, 2, 1}] (* or *) %t A300069 CoefficientList[Series[x^3*(1 + x)^2/(1 - x^6), {x, 0, 102}], x] (* _Michael De Vlieger_, Feb 25 2018 *) %o A300069 (PARI) a(n) = my(v=[0, 0, 1, 2, 1]); v[if(n%6==0, 1, n%6)] \\ _Felix Fröhlich_, Feb 24 2018 %o A300069 (PARI) concat(vector(3), Vec(x^3*(1 + x)^2/(1 - x^6) + O(x^40))) \\ _Felix Fröhlich_, Feb 25 2018 %Y A300069 Cf. A174257, A300067. %K A300069 nonn,easy %O A300069 0,5 %A A300069 _Wolfdieter Lang_, Feb 24 2018