login
Positions of 1 in A190188; complement of A180189.
3

%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