|
%I #11 Dec 29 2017 18:13:46
%S 3,4,8,12,16,20,21,25,29,33,37,38,41,42,46,50,54,55,58,59,63,67,71,72,
%T 75,76,80,84,88,92,93,97,101,105,109,110,113,114,118,122,126,127,130,
%U 131,135,139,143,144,147,148,152,156,160,164,165,169,173,177,181,182,185,186,190,194,198,199,202,203,207,211,215,216,219,220
%N Positions of 2 in A189463.
%C See A189463.
%H G. C. Greubel, <a href="/A190158/b190158.txt">Table of n, a(n) for n = 1..5000</a>
%t r = 5^(1/2);
%t f[n_] := Floor[3 n*r] - 3*Floor[n*r];
%t t = Table[f[n], {n, 1, 220}] (* A189463 *)
%t Flatten[Position[t, 0]] (* A189464 *)
%t Flatten[Position[t, 1]] (* A189465 *)
%t Flatten[Position[t, 2]] (* A190158 *)
%Y Cf. A189463, A189464, A189465.
%K nonn
%O 1,1
%A _Clark Kimberling_, May 22 2011
|
