A181713 Solutions of A181712(n)=0.

1, 2, 5, 7, 9, 10, 13, 14, 15, 17, 18, 22, 23, 26, 28, 30, 31, 34, 35, 36, 39, 43, 44, 47, 48, 49, 51, 52, 56, 57, 60, 62, 64, 65, 68, 69, 70, 73, 77, 78, 81, 83, 85, 86, 89, 90, 91, 94, 96, 98, 99, 102, 103, 104, 106, 107, 111, 112, 115, 117, 119, 120, 123, 124, 125, 128

Offset

1,2

Comments

Positive integers k such that {k*phi} < {3*k*phi}, where phi = (1+sqrt(5))/2 and {...} denotes fractional part. - Jeffrey Shallit, Sep 23 2025

Links

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

Example

A181712 begins with 0,0,1,1,0,1,0,1,0,0,1,1,0,0,0,1,0,0,1,1,1,0,0, so this sequence begins with 1,2,5,7,9,10,13,14,15,17,18,22,23.

Mathematica

A181713Q[k_] := #[3] == #[2] + #[1] & [Floor[k*#*GoldenRatio] &];
Select[Range[200], A181713Q] (* Paolo Xausa, Sep 23 2025 *)

Crossrefs

Cf. A001622, A181712, A181714.

Sequence in context: A325171 A186155 A360411 * A047482 A367491 A174272

Adjacent sequences: A181710 A181711 A181712 * A181714 A181715 A181716

Keyword

nonn

Author

Clark Kimberling, Nov 07 2010

Status

approved