A062557 2n-1 1's followed by a 2.

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, 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, 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

Offset: 0

Author

Jason Earls, Jul 02 2001

Keywords

• easy
• nonn

Comments

Is the number .12111211111211111112... irrational?

Crossrefs

Cf. A005369, A093178.

Programs

Magma

[1+Floor(Sqrt(n+2)+1/2)-Floor(Sqrt(n+1)+1/2) : n in [0..100]]; // Wesley Ivan Hurt, May 26 2015

Maple

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

Mathematica

Table[1 + Floor[Sqrt[n + 2] + 1/2] - Floor[Sqrt[n + 1] + 1/2], {n, 0,
100}] (* Wesley Ivan Hurt, May 26 2015 *)

PARI

v=[]; for(n=0,200,v=concat(v,1+issquare(5+4*n))); v

Formula

a(n) = 1 + A005369(n+1). - Wesley Ivan Hurt, May 26 2015