A181714 - OEIS

%I #12 Sep 24 2025 12:16:57

%S 3,4,6,8,11,12,16,19,20,21,24,25,27,29,32,33,37,38,40,41,42,45,46,50,

%T 53,54,55,58,59,61,63,66,67,71,72,74,75,76,79,80,82,84,87,88,92,93,95,

%U 97,100,101,105,108,109,110,113,114,116,118,121,122,126,127,129,130,131

%N Numbers k such that A181712(k) = 1.

%H Paolo Xausa, <a href="/A181714/b181714.txt">Table of n, a(n) for n = 1..10000</a>

%e 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.

%t A181714Q[k_] := #[3] - #[2] - #[1] == 1 & [Floor[k*#*GoldenRatio] &];

%t Select[Range[200], A181714Q] (* _Paolo Xausa_, Sep 24 2025 *)

%Y Cf. A001622, A181712, A181713.

%K nonn

%O 1,1

%A _Clark Kimberling_, Nov 07 2010