A375678 Binary expansion of the square root of the golden ratio.

1, 0, 1, 0, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0

Offset

1,1

Links

Jinyuan Wang, Table of n, a(n) for n = 1..10000

Example

1.010001011010001100010100011010101000100001...

Mathematica

RealDigits[Sqrt[GoldenRatio], 2, 120][[1]] (* Amiram Eldar, Aug 24 2024 *)

Prog

(PARI) a(n) = sqrtint(quadgen(5) << (2*n-2))%2;
(PARI) concat(binary(sqrt(quadgen(5)))) \\ Jinyuan Wang, Dec 16 2024

Crossrefs

Cf. A068432, A139339.

Sequence in context: A015029 A014789 A014669 * A266282 A228747 A285162

Adjacent sequences: A375675 A375676 A375677 * A375679 A375680 A375681

Keyword

nonn,base,cons,easy

Author

Chittaranjan Pardeshi, Aug 23 2024

Status

approved