Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #17 May 09 2021 07:55:36
%S 1,3,4,6,9,12,14,15,17,18,20,23,26,28,29,31,32,34,37,39,40,42,43,45,
%T 48,51,53,54,56,57,59,62,65,67,68,70,71,73,76,78,79,81,82,84,87,90,92,
%U 93,95,96,98,101,104,106,107,109,112,115,117,118,120,121,123
%N Numbers k such that floor(k*e) is even.
%C Complement of A283778.
%H Clark Kimberling, <a href="/A283777/b283777.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==0, 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==0]) # _Indranil Ghosh_, Mar 21 2017
%Y Cf. A001113, A022843, A283778.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Mar 19 2017