A063672 Sequence A019320 in binary.

10, 1, 11, 111, 101, 11111, 11, 1111111, 10001, 1001001, 1011, 11111111111, 1101, 1111111111111, 101011, 10010111, 100000001, 11111111111111111, 111001, 1111111111111111111, 11001101, 100100110111, 1010101011

Offset

0,1

Links

Paolo Xausa, Table of n, a(n) for n = 0..900

Maple

map(convert, A019320, binary); or up to n=104 with: map(convert, [seq(Phi_pos_terms(j, 2)-Phi_neg_terms(j, 2), j=0..104)], binary);

Mathematica

A063672[n_] := If[n == 0, 10, FromDigits[IntegerDigits[Cyclotomic[n, 2], 2]]];
Array[A063672, 30, 0] (* Paolo Xausa, Feb 26 2024 *)

Crossrefs

Cf. A063697, A063699, A063671.

Sequence in context: A164844 A287015 A130311 * A070606 A332803 A073731

Adjacent sequences: A063669 A063670 A063671 * A063673 A063674 A063675

Keyword

nonn,base

Author

Antti Karttunen, Aug 03 2001

Status

approved