The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A024581

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A024581

a(n) = integer nearest e*a(n-1), where a(0) = 1.
(history; published version)

#17 by N. J. A. Sloane at Sun Jan 27 08:49:08 EST 2019

STATUS

proposed

approved

#16 by Michel Marcus at Sun Jan 27 08:11:52 EST 2019

STATUS

editing

proposed

#15 by Michel Marcus at Sun Jan 27 08:05:09 EST 2019

COMMENTS

Equals row sums of triangle A153583 [From Gary W. Adamson, Dec 28 2008]

PROG

(PARI) lista(nn) = {nn++; my(va = vector(nn)); va[1] = 1; for (n=2, nn, va[n] = round(exp(1)*va[n-1]); ); va; } \\ Michel Marcus, Jan 27 2019

CROSSREFS

Equals row sums of triangle A153583 . [From __Gary W. Adamson_, Dec 28 2008]

STATUS

approved

editing

#14 by N. J. A. Sloane at Tue May 02 22:17:14 EDT 2017

LINKS

Steve Butler, Ron R. L. Graham & Nan Zang, <a href="https://cs.uwaterloo.ca/journals/JIS/VOL11/Butler/butler8.html">Jumping Sequences</a>, Journal of Integer Sequences, Vol. 11, 2008, 08.4.5.

Discussion

Tue May 02

22:17

OEIS Server: https://oeis.org/edit/global/2639

#13 by R. J. Mathar at Mon Sep 07 13:04:54 EDT 2015

STATUS

editing

approved

#12 by R. J. Mathar at Mon Sep 07 13:04:42 EDT 2015

REFERENCES

Steve Butler, Ron Graham & Nan Zang, "Jumping Sequences", 8.4.5, Journal of Integer Sequences, Vol. 11, 2008, Issue 1. [From Gary W. Adamson, Dec 28 2008]

LINKS

Steve Butler, Ron Graham & Nan Zang, <a href="https://cs.uwaterloo.ca/journals/JIS/VOL11/Butler/butler8.html">Jumping Sequences</a>, Journal of Integer Sequences, Vol. 11, 2008, 08.4.5.

STATUS

approved

editing

#11 by Charles R Greathouse IV at Sun Aug 03 14:27:16 EDT 2014

MATHEMATICA

(* _Clark Kimberling, _, Aug 18 2012 *)

Discussion

Sun Aug 03

14:27

OEIS Server: https://oeis.org/edit/global/2271

#10 by Harvey P. Dale at Thu Jan 10 17:53:26 EST 2013

STATUS

editing

approved

#9 by Harvey P. Dale at Thu Jan 10 17:53:19 EST 2013

MATHEMATICA

NestList[Floor[E*#+1/2]&, 1, 30] (* Harvey P. Dale, Jan 10 2013 *)

STATUS

approved

editing

#8 by Bruno Berselli at Sat Aug 18 18:48:32 EDT 2012

STATUS

proposed

approved