cp's OEIS Frontend

A276859 First differences of the Beatty sequence A022843 for e.

%I A276859 #19 Jan 06 2019 04:54:02
%S A276859 2,3,3,2,3,3,3,2,3,3,2,3,3,3,2,3,3,2,3,3,3,2,3,3,2,3,3,3,2,3,3,2,3,3,
%T A276859 3,2,3,3,3,2,3,3,2,3,3,3,2,3,3,2,3,3,3,2,3,3,2,3,3,3,2,3,3,2,3,3,3,2,
%U A276859 3,3,2,3,3,3,2,3,3,3,2,3,3,2,3,3,3,2
%N A276859 First differences of the Beatty sequence A022843 for e.
%H A276859 Clark Kimberling, <a href="/A276859/b276859.txt">Table of n, a(n) for n = 1..10000</a>
%F A276859 a(n) = floor(n*r) - floor(n*r - r), where r = e, n >= 1.
%p A276859 A276859:=n->floor(n*exp(1))-floor((n-1)*exp(1)): seq(A276859(n), n=1..200); # _Wesley Ivan Hurt_, Jan 10 2017
%t A276859 z = 500; r = E; b = Table[Floor[k*r], {k, 0, z}] (* A022843 *)
%t A276859 Differences[b] (* A276859 *)
%t A276859 Differences[Floor[E*Range[0,90]]] (* _Harvey P. Dale_, Nov 24 2016 *)
%Y A276859 Cf. A022843, A276875.
%K A276859 nonn,easy
%O A276859 1,1
%A A276859 _Clark Kimberling_, Sep 24 2016