|
%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
|
