|
%I #7 Jul 04 2017 18:32:54
%S 3,8,13,15,20,25,27,32,37,39,44,49,54,56,61,66,68,73,78,83,85,90,95,
%T 97,102,107,109,112,114,119,124,126,131,136,138,143,148,153,155,160,
%U 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 Positions of 1 in A190549.
%C See A190549.
%H G. C. Greubel, <a href="/A190551/b190551.txt">Table of n, a(n) for n = 1..1000</a>
%t r = Sqrt[2]; b = 4; c = 1;
%t f[n_] := Floor[(b*n + c)*r] - b*Floor[n*r] - Floor[c*r];
%t t = Table[f[n], {n, 1, 200}] (* A190549 *)
%t Flatten[Position[t, 0]] (* A190550 *)
%t Flatten[Position[t, 1]] (* A190551 *)
%t Flatten[Position[t, 2]] (* A190552 *)
%t Flatten[Position[t, 3]] (* A190553 *)
%t Flatten[Position[t, 4]] (* A190554 *)
%Y Cf. A190549.
%K nonn
%O 1,1
%A _Clark Kimberling_, May 12 2011
|
