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

Author

Enoch Haga, Mar 18 2006

Keywords

• easy
• nonn
• base
• less

Examples

			In a(11) = 16: SOD(11) = 2. 2 doubled is 4,8,16, after A117462(11)= 3 iterations.
		

Crossrefs

Cf. A117462, A169805.

Programs

Maple

A117463 := proc(n)
    2^A117462(n)*digsum(n) ;
end proc:
seq(A117463(n),n=1..90) ; # R. J. Mathar, Sep 25 2018

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

Formula

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

Extensions

Extended by R. J. Mathar, Sep 25 2018