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
Examples
In a(11) = 16: SOD(11) = 2. 2 doubled is 4,8,16, after A117462(11)= 3 iterations.
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
Extensions
Extended by R. J. Mathar, Sep 25 2018
Comments