A283777 - OEIS

%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