A117463 Result of the final iteration of doubling in A117462 to equal or exceed n.

2, 4, 6, 8, 10, 12, 14, 16, 18, 16, 16, 12, 16, 20, 24, 28, 32, 18, 20, 32, 24, 32, 40, 24, 28, 32, 36, 40, 44, 48, 32, 40, 48, 56, 64, 36, 40, 44, 48, 64, 80, 48, 56, 64, 72, 80, 88, 48, 52, 80, 96, 56, 64, 72, 80, 88, 96, 104, 112, 96, 112, 64, 72, 80, 88, 96, 104, 112, 120, 112, 128

Offset

0,1

Links

Table of n, a(n) for n=0..70.

Formula

a(n) = 2^A117462(n) * A007953(n). - R. J. Mathar, Sep 25 2018

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

Cf. A117462, A169805.

Sequence in context: A345111 A056964 A052008 * A248609 A055960 A351626

Adjacent sequences: A117460 A117461 A117462 * A117464 A117465 A117466

Keyword

easy,nonn,base,less

Author

Enoch Haga, Mar 18 2006

Extensions

Extended by R. J. Mathar, Sep 25 2018

Status

approved