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