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

Author

Antti Karttunen, Aug 03 2001

Keywords

• nonn
• base

Links

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

Crossrefs

Cf. A063697, A063699, A063671.

Programs

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 *)