|
%I #9 Dec 29 2017 18:13:25
%S 2,6,7,10,11,15,19,23,24,27,28,32,36,40,44,45,49,53,57,61,62,65,66,70,
%T 74,78,79,82,83,87,91,95,96,99,100,104,108,112,116,117,121,125,129,
%U 133,134,137,138,142,146,150,151,154,155,159,163,167,168,171,172,176,180,184,188,189,193,197,201,205,206,209,210,214,218
%N Positions of 1 in A189463.
%C See A189463.
%H G. C. Greubel, <a href="/A189465/b189465.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, A190158.
%K nonn
%O 1,1
%A _Clark Kimberling_, Apr 22 2011
|
