cp's OEIS Frontend

A190703 Positions of 4 in A190698.

%I A190703 #7 Jul 04 2017 18:30:43
%S A190703 4,8,15,19,23,30,34,38,45,49,56,60,64,71,75,79,86,90,101,105,112,116,
%T A190703 120,127,131,135,142,146,157,161,168,172,176,183,187,191,198,202,209,
%U A190703 213,217,224,228,232,239,243,254,258,265,269,273,280,284,288,295,299,310,314,321,325,329,336,340,344,351,355,366,370,377,381,385
%N A190703 Positions of 4 in A190698.
%C A190703 See A190698.
%H A190703 G. C. Greubel, <a href="/A190703/b190703.txt">Table of n, a(n) for n = 1..1000</a>
%t A190703 r = Sqrt[3]; b = 4; c = 1;
%t A190703 f[n_] := Floor[(b*n + c)*r] - b*Floor[n*r] - Floor[c*r];
%t A190703 t = Table[f[n], {n, 1, 200}] (* A190698 *)
%t A190703 Flatten[Position[t, 0]]      (* A190699 *)
%t A190703 Flatten[Position[t, 1]]      (* A190700 *)
%t A190703 Flatten[Position[t, 2]]      (* A190701 *)
%t A190703 Flatten[Position[t, 3]]      (* A190702 *)
%t A190703 Flatten[Position[t, 4]]      (* A190703 *)
%Y A190703 Cf. A190698.
%K A190703 nonn
%O A190703 1,1
%A A190703 _Clark Kimberling_, May 17 2011