A190439 - OEIS

%I #14 Apr 05 2018 05:54:16

%S 1,3,6,11,14,16,19,22,24,27,32,35,37,40,45,48,50,53,56,58,61,66,69,71,

%T 74,77,79,82,84,87,90,92,95,100,103,105,108,111,113,116,121,124,126,

%U 129,134,137,139,142,145,147,150,155,158,160,163,166,168,171,173,176,179,181,184,189,192,194,197,200,202,205,210,213,215,218

%N Positions of 2 in A190436.

%C See A190436.

%H G. C. Greubel, <a href="/A190439/b190439.txt">Table of n, a(n) for n = 1..10000</a>

%t r = GoldenRatio; b = 3; c = 2;

%t f[n_] := Floor[(b*n + c)*r] - b*Floor[n*r] - Floor[c*r];

%t t = Table[f[n], {n, 1, 320}] (* A190436 *)

%t Flatten[Position[t, 0]] (* A190437 *)

%t Flatten[Position[t, 1]] (* A190438 *)

%t Flatten[Position[t, 2]] (* A190439 *)

%t Flatten[Position[t, 3]] (* A302253 *)

%Y Cf. A190436.

%K nonn

%O 1,2

%A _Clark Kimberling_, May 10 2011

%E Typos in definition corrected by _Arkadiusz Wesolowski_, Jan 07 2012