cp's OEIS Frontend

A190439 Positions of 2 in A190436.

%I A190439 #14 Apr 05 2018 05:54:16
%S A190439 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 A190439 74,77,79,82,84,87,90,92,95,100,103,105,108,111,113,116,121,124,126,
%U A190439 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 A190439 Positions of 2 in A190436.
%C A190439 See A190436.
%H A190439 G. C. Greubel, <a href="/A190439/b190439.txt">Table of n, a(n) for n = 1..10000</a>
%t A190439 r = GoldenRatio; b = 3; c = 2;
%t A190439 f[n_] := Floor[(b*n + c)*r] - b*Floor[n*r] - Floor[c*r];
%t A190439 t = Table[f[n], {n, 1, 320}] (* A190436 *)
%t A190439 Flatten[Position[t, 0]] (* A190437 *)
%t A190439 Flatten[Position[t, 1]] (* A190438 *)
%t A190439 Flatten[Position[t, 2]] (* A190439 *)
%t A190439 Flatten[Position[t, 3]] (* A302253 *)
%Y A190439 Cf. A190436.
%K A190439 nonn
%O A190439 1,2
%A A190439 _Clark Kimberling_, May 10 2011
%E A190439 Typos in definition corrected by _Arkadiusz Wesolowski_, Jan 07 2012