|
%I #9 Dec 30 2017 03:29:11
%S 1,2,4,5,8,12,13,15,16,18,19,24,25,26,27,29,32,35,36,37,38,40,43,47,
%T 48,50,51,54,57,59,61,62,64,65,70,71,72,73,75,76,82,83,84,86,89,93,94,
%U 95,96,97,100,103,105,106,107,108,111,114,118,119,121,122,125,128,129,130,132,133,135,140,141,142,143,144,146,151
%N Positions of 1 in A190188; complement of A180189.
%C See A190188.
%H G. C. Greubel, <a href="/A190190/b190190.txt">Table of n, a(n) for n = 1..5549</a>
%t u = E; v = 1/E;
%t f[n_] := Floor[n*u + n*v] - Floor[n*u] - Floor[n*v]
%t t = Table[f[n], {n, 1, 120}] (* A190188 *)
%t Flatten[Position[t, 0]] (* A190189 *)
%t Flatten[Position[t, 1]] (* A190190 *)
%Y Cf. A190188, A190189.
%K nonn
%O 1,2
%A _Clark Kimberling_, May 05 2011
|
