cp's OEIS Frontend

A190545 Positions of 0 in A190544.

%I A190545 #9 Jul 04 2017 04:01:33
%S A190545 3,5,10,15,17,22,27,29,34,39,44,46,51,56,58,63,68,73,75,80,85,87,92,
%T A190545 97,99,102,104,109,114,116,121,126,128,133,138,143,145,150,155,157,
%U A190545 162,167,169,172,174,179,184,186,191,196,198,203,208,213,215,220,225,227,232,237,242,244,249,254,256,261,266,268,273,278,283,285
%N A190545 Positions of 0 in A190544.
%C A190545 See A190544.
%H A190545 G. C. Greubel, <a href="/A190545/b190545.txt">Table of n, a(n) for n = 1..1000</a>
%t A190545 r = Sqrt[2]; b = 4; c = 0;
%t A190545 f[n_] := Floor[(b*n + c)*r] - b*Floor[n*r] - Floor[c*r];
%t A190545 t = Table[f[n], {n, 1, 200}] (* A190544 *)
%t A190545 Flatten[Position[t, 0]]      (* A190545 *)
%t A190545 Flatten[Position[t, 1]]      (* A190546 *)
%t A190545 Flatten[Position[t, 2]]      (* A190547 *)
%t A190545 Flatten[Position[t, 3]]      (* A190548 *)
%Y A190545 Cf. A190544.
%K A190545 nonn
%O A190545 1,1
%A A190545 _Clark Kimberling_, May 12 2011