OFFSET
0,1
FORMULA
EXAMPLE
In a(11) = 16: SOD(11) = 2. 2 doubled is 4,8,16, after A117462(11)= 3 iterations.
MAPLE
A117463 := proc(n)
2^A117462(n)*digsum(n) ;
end proc:
seq(A117463(n), n=1..90) ; # R. J. Mathar, Sep 25 2018
PROG
(UBASIC)
10 'use of str, mid, len, val 20 'number of doubled iterations required to equal or exceed sod(n)
30 C=C+1
40 D=str(C)
50 E=len(D)
60 for Q=2 to E
70 A=mid(D, Q, 1):G=val(A)
80 I=I+G
90 next Q
100 print C; I; "-";
110 K=I
120 I=0
130 for R=1 to C
140 K=K+K:T=T+1
150 if K>=C then print C; K; T:cancel for:stop:goto 170
160 next R
170 K=0:T=0
180 goto 30
CROSSREFS
KEYWORD
easy,nonn,base,less
AUTHOR
Enoch Haga, Mar 18 2006
EXTENSIONS
Extended by R. J. Mathar, Sep 25 2018
STATUS
approved