cp's OEIS Frontend

A190563 Positions of 1 in A190561.

%I A190563 #7 Jul 04 2017 21:19:13
%S A190563 1,3,8,13,15,20,25,30,32,37,42,44,49,54,56,59,61,66,71,73,78,83,85,90,
%T A190563 95,100,102,107,112,114,119,124,126,129,131,136,141,143,148,153,155,
%U A190563 160,165,170,172,177,182,184,189,194,199,201,206,211,213,218,223,225,230,235,240,242,247,252,254,259,264,269,271,276,281,283,288
%N A190563 Positions of 1 in A190561.
%C A190563 See A190561.
%H A190563 G. C. Greubel, <a href="/A190563/b190563.txt">Table of n, a(n) for n = 1..1000</a>
%t A190563 r = Sqrt[2]; b = 4; c = 3;
%t A190563 f[n_] := Floor[(b*n + c)*r] - b*Floor[n*r] - Floor[c*r];
%t A190563 t = Table[f[n], {n, 1, 200}] (* A190561 *)
%t A190563 Flatten[Position[t, 0]]          (* A190562 *)
%t A190563 Flatten[Position[t, 1]]          (* A190563 *)
%t A190563 Flatten[Position[t, 2]]          (* A190564 *)
%t A190563 Flatten[Position[t, 3]]          (* A190565 *)
%t A190563 Flatten[Position[t, 4]]          (* A190566 *)
%Y A190563 Cf. A190561.
%K A190563 nonn
%O A190563 1,2
%A A190563 _Clark Kimberling_, May 12 2011