cp's OEIS Frontend

A190437 Positions of 0 in A190436.

%I A190437 #9 Apr 05 2018 05:54:02
%S A190437 2,5,10,13,18,23,26,31,34,36,39,44,47,52,57,60,65,68,73,78,81,86,89,
%T A190437 91,94,99,102,107,112,115,120,123,125,128,133,136,141,146,149,154,157,
%U A190437 162,167,170,175,178,180,183,188,191,196,201,204,209,212,217
%N A190437 Positions of 0 in A190436.
%C A190437 See A190436.
%H A190437 G. C. Greubel, <a href="/A190437/b190437.txt">Table of n, a(n) for n = 1..10000</a>
%t A190437 r = GoldenRatio; b = 3; c = 2;
%t A190437 f[n_] := Floor[(b*n + c)*r] - b*Floor[n*r] - Floor[c*r];
%t A190437 t = Table[f[n], {n, 1, 320}] (* A190436 *)
%t A190437 Flatten[Position[t, 0]] (* A190437 *)
%t A190437 Flatten[Position[t, 1]] (* A190438 *)
%t A190437 Flatten[Position[t, 2]] (* A190439 *)
%t A190437 Flatten[Position[t, 3]] (* A302253 *)
%Y A190437 Cf. A190436.
%K A190437 nonn
%O A190437 1,1
%A A190437 _Clark Kimberling_, May 10 2011