The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A280103

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A280103

Engel expansion of 1/e in the base Pi.
(history; published version)

#7 by N. J. A. Sloane at Mon Dec 26 05:50:34 EST 2016

STATUS

proposed

approved

#6 by Jon E. Schoenfield at Sun Dec 25 23:52:11 EST 2016

STATUS

editing

proposed

#5 by Jon E. Schoenfield at Sun Dec 25 23:52:04 EST 2016

NAME

Engel expansion of 1/E e in the base Pi.

STATUS

proposed

editing

#4 by G. C. Greubel at Sun Dec 25 23:41:32 EST 2016

STATUS

editing

proposed

#3 by G. C. Greubel at Sun Dec 25 23:41:14 EST 2016

LINKS

G. C. Greubel, <a href="/A280103/b280103.txt">Table of n, a(n) for n = 0..250</a>

Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PierceExpansion.html">Pierce Expansion</a>

Wikipedia, <a href="http://en.wikipedia.org/wiki/Engel_expansion">Engel Expansion</a>

MATHEMATICA

EngelExp[A_, n_] := Join[Array[Pi &, Floor[A]], First@Transpose@

NestList[{Ceiling[Pi/Expand[#[[1]] #[[2]] - 1]], Expand[#[[1]] #[[2]] - 1]/Pi} &, {Ceiling[Pi/(A - Floor[A])], (A - Floor[A])/Pi}, n - 1]]; EngelExp[N[1/E, 7!], 20]

CROSSREFS

Cf. A232325, A280102.

#2 by G. C. Greubel at Sun Dec 25 23:37:58 EST 2016

NAME

allocated for G. C. Greubel

Engel expansion of 1/E in the base Pi.

DATA

9, 59, 258, 1621, 41718, 163096, 18032586, 372522402, 4134015746, 32288273026, 351014976193, 4870192684354, 16888414224772, 69504582263701, 605288885084501, 142251062156316087, 465610991052284457, 1483900314571047497, 5622121203907195494, 23213137436116662167

OFFSET

0,1

KEYWORD

allocated

nonn

AUTHOR

G. C. Greubel, Dec 25 2016

STATUS

approved

editing

#1 by G. C. Greubel at Sun Dec 25 23:37:58 EST 2016

NAME

allocated for G. C. Greubel

KEYWORD

allocated

STATUS

approved