A181714 Numbers k such that A181712(k) = 1.

3, 4, 6, 8, 11, 12, 16, 19, 20, 21, 24, 25, 27, 29, 32, 33, 37, 38, 40, 41, 42, 45, 46, 50, 53, 54, 55, 58, 59, 61, 63, 66, 67, 71, 72, 74, 75, 76, 79, 80, 82, 84, 87, 88, 92, 93, 95, 97, 100, 101, 105, 108, 109, 110, 113, 114, 116, 118, 121, 122, 126, 127, 129, 130, 131

Offset

1,1

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 3,4,6,8,11,12,16,19,20,21.

Mathematica

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

Crossrefs

Cf. A001622, A181712, A181713.

Sequence in context: A047414 A109402 A020901 * A371594 A057057 A186154

Adjacent sequences: A181711 A181712 A181713 * A181715 A181716 A181717

Keyword

nonn

Author

Clark Kimberling, Nov 07 2010

Status

approved