A080230 - OEIS

A080230

Engel expansion for (positive) constant defined in A078756.

2, 4, 30, 63, 162, 629, 3918, 5345, 8577, 10902, 12073, 19001, 28961, 33387, 65964, 345951, 1876681, 2212505, 9373113, 11011867, 12921837, 14245984, 63809171, 96843656, 111393114, 340427213, 536556183, 768096412, 1510946116, 3988447796

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

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

FORMULA

See A006784 for definition of Engel expansion.

PROG

(PARI) { my(x=vector(31), a=vector(#x-1)); x[1]=0.62923321313860758778445822033246963679442280615921;

for (i=1, #a, a[i]=ceil(1/x[i]); x[i+1]=x[i]*a[i]-1); a }

CROSSREFS

Cf. A006784, A078756, A080321.

Sequence in context: A290169 A232173 A067195 * A084914 A058779 A359914

Adjacent sequences: A080227 A080228 A080229 * A080231 A080232 A080233

KEYWORD

nonn

AUTHOR

Jon Perry, Feb 08 2003

STATUS

approved