A181712 a(n) = floor(3*n*phi) - floor(2*n*phi) - floor(n*phi), where phi = (1+sqrt(5))/2, the golden ratio.

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

Offset

1,1

Links

Paolo Xausa, Table of n, a(n) for n = 1..10000

Formula

a(n) = [3*n*phi]-[2*n*phi]-[n*phi], where [ ] denotes the floor function and phi = (1+sqrt(5))/2.

Mathematica

A181712[n_] := #[3] - #[2] - #[1] & [Floor[n*#*GoldenRatio] &];
Array[A181712, 100] (* Paolo Xausa, Sep 23 2025 *)

Crossrefs

Cf. A001622, A181713, A181714.

Sequence in context: A257000 A062301 A374769 * A389913 A380173 A288729

Adjacent sequences: A181709 A181710 A181711 * A181713 A181714 A181715

Keyword

nonn

Author

Clark Kimberling, Nov 07 2010

Status

approved