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 A062557 #16 Sep 08 2022 08:45:03 %S A062557 1,2,1,1,1,2,1,1,1,1,1,2,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,2,1,1,1,1, %T A062557 1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1, %U A062557 1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 %N A062557 2n-1 1's followed by a 2. %C A062557 Is the number .12111211111211111112... irrational? %F A062557 a(n) = 1 + A005369(n+1). - _Wesley Ivan Hurt_, May 26 2015 %p A062557 A062557:=n->1+floor(sqrt(n+2)+1/2)-floor(sqrt(n+1)+1/2): seq(A062557(n), n=0..100); # _Wesley Ivan Hurt_, May 26 2015 %t A062557 Table[1 + Floor[Sqrt[n + 2] + 1/2] - Floor[Sqrt[n + 1] + 1/2], {n, 0, %t A062557 100}] (* _Wesley Ivan Hurt_, May 26 2015 *) %o A062557 (PARI) v=[]; for(n=0,200,v=concat(v,1+issquare(5+4*n))); v %o A062557 (Magma) [1+Floor(Sqrt(n+2)+1/2)-Floor(Sqrt(n+1)+1/2) : n in [0..100]]; // _Wesley Ivan Hurt_, May 26 2015 %Y A062557 Cf. A005369, A093178. %K A062557 easy,nonn %O A062557 0,2 %A A062557 _Jason Earls_, Jul 02 2001