A080231 Engel expansion for (negative) constant defined in A078756.

-1, -2, -3, -4, -9, -11, -17, -82, -86, -89, -259, -1031, -1493, -3088, -18107, -3128320, -4245574, -4430458, -6692218, -6908807, -20282631, -55597679, -73203786, -80410013, -92821351, -192936649, -5039379072, -30234138756, -55272287466, -202248991637

Offset

1,2

Links

Table of n, a(n) for n=1..30.

Formula

See A006784 for definition of Engel expansion

Prog

(PARI) x=vector(31); a=vector(30); x[1]=-0.62923321313860758778445822033246963679442280615921 for (i=1, 30, a[i]=ceil(1/x[i]); x[i+1]=x[i]*a[i]-1); x

Crossrefs

Cf. A006784, A078756, A080320.

Sequence in context: A211546 A093514 A215810 * A217493 A368349 A125774

Adjacent sequences: A080228 A080229 A080230 * A080232 A080233 A080234

Keyword

sign

Author

Jon Perry, Feb 08 2003

Status

approved