login
Numbers k such that floor(k*e) is odd.
2

%I #12 May 09 2021 07:55:41

%S 2,5,7,8,10,11,13,16,19,21,22,24,25,27,30,33,35,36,38,41,44,46,47,49,

%T 50,52,55,58,60,61,63,64,66,69,72,74,75,77,80,83,85,86,88,89,91,94,97,

%U 99,100,102,103,105,108,110,111,113,114,116,119,122,124,125

%N Numbers k such that floor(k*e) is odd.

%C Complement of A283777.

%H Clark Kimberling, <a href="/A283778/b283778.txt">Table of n, a(n) for n = 1..10000</a>

%F a(n+1) - a(n) is in {1,2,3} for every n.

%t r = E; z = 350; t = Table[Floor[n*r], {n, 1, z}]; u = Mod[t, 2];

%t Flatten[Position[u, 0]] (* A283777 *)

%t Flatten[Position[u, 1]] (* A283778 *)

%o (PARI) for(n=1, 125, if(floor(n*exp(1))%2==1,print1(n,", "))) \\ _Indranil Ghosh_, Mar 21 2017

%o (Python)

%o from mpmath import *

%o import math

%o mp.dps=100

%o print([n for n in range(1, 126) if int(math.floor(n*e))%2==1]) # _Indranil Ghosh_, Mar 21 2017

%Y Cf. A001113, A022843, A283777.

%K nonn,easy

%O 1,1

%A _Clark Kimberling_, Mar 19 2017