cp's OEIS Frontend

A190551 Positions of 1 in A190549.

%I A190551 #7 Jul 04 2017 18:32:54
%S A190551 3,8,13,15,20,25,27,32,37,39,44,49,54,56,61,66,68,73,78,83,85,90,95,
%T A190551 97,102,107,109,112,114,119,124,126,131,136,138,143,148,153,155,160,
%U A190551 165,167,172,177,182,184,189,194,196,201,206,208,213,218,223,225,230,235,237,242,247,252,254,259,264,266,271,276,278,281,283
%N A190551 Positions of 1 in A190549.
%C A190551 See A190549.
%H A190551 G. C. Greubel, <a href="/A190551/b190551.txt">Table of n, a(n) for n = 1..1000</a>
%t A190551 r = Sqrt[2]; b = 4; c = 1;
%t A190551 f[n_] := Floor[(b*n + c)*r] - b*Floor[n*r] - Floor[c*r];
%t A190551 t = Table[f[n], {n, 1, 200}] (* A190549 *)
%t A190551 Flatten[Position[t, 0]]          (* A190550 *)
%t A190551 Flatten[Position[t, 1]]          (* A190551 *)
%t A190551 Flatten[Position[t, 2]]          (* A190552 *)
%t A190551 Flatten[Position[t, 3]]          (* A190553 *)
%t A190551 Flatten[Position[t, 4]]          (* A190554 *)
%Y A190551 Cf. A190549.
%K A190551 nonn
%O A190551 1,1
%A A190551 _Clark Kimberling_, May 12 2011