cp's OEIS Frontend

A190548 Positions of 3 in A190544.

%I A190548 #7 Jul 03 2017 21:15:53
%S A190548 2,7,12,14,19,24,26,31,36,41,43,48,53,55,60,65,67,70,72,77,82,84,89,
%T A190548 94,96,101,106,111,113,118,123,125,130,135,140,142,147,152,154,159,
%U A190548 164,166,171,176,181,183,188,193,195,200,205,210,212,217,222,224,229,234,236,239,241,246,251,253,258,263,265,270,275,280,282,287
%N A190548 Positions of 3 in A190544.
%C A190548 See A190544.
%H A190548 G. C. Greubel, <a href="/A190548/b190548.txt">Table of n, a(n) for n = 1..1000</a>
%t A190548 r = Sqrt[2]; b = 4; c = 0;
%t A190548 f[n_] := Floor[(b*n + c)*r] - b*Floor[n*r] - Floor[c*r];
%t A190548 t = Table[f[n], {n, 1, 200}] (* A190544 *)
%t A190548 Flatten[Position[t, 0]]      (* A190545 *)
%t A190548 Flatten[Position[t, 1]]      (* A190546 *)
%t A190548 Flatten[Position[t, 2]]      (* A190547 *)
%t A190548 Flatten[Position[t, 3]]      (* A190548 *)
%Y A190548 Cf. A190544.
%K A190548 nonn
%O A190548 1,1
%A A190548 _Clark Kimberling_, May 12 2011