login
A080230
Engel expansion for (positive) constant defined in A078756.
0
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
OFFSET
1,1
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
KEYWORD
nonn
AUTHOR
Jon Perry, Feb 08 2003
STATUS
approved