STATUS
proposed
approved
The OEIS is supported by the many generous donors to the OEIS Foundation.
Revision History for A080230
(Bold, blue-underlined text is an addition; faded, red-underlined text is aShowing entries 1-10 | older changes
STATUS
editing
proposed
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
for (i=1, #a, a[i]=ceil(1/x[i]); x[i+1]=x[i]*a[i]-1); a }
PROG
(PARI) my(x=vector(31); , a=vector(30#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
for (i=1, 30, a[i]=ceil(1/x[i]); x[i+1]=x[i]*a[i]-1); x
STATUS
proposed
editing
STATUS
editing
proposed
FORMULA
See A006784 for definition of Engel expansion.
STATUS
proposed
editing
STATUS
editing
proposed
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
for (i=1, 30, a[i]=ceil(1/x[i]); x[i+1]=x[i]*a[i]-1); x
STATUS
approved
editing
AUTHOR
_Jon Perry (perry(AT)globalnet.co.uk), _, Feb 08 2003
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
KEYWORD
nonn,new
nonn