A117463 - OEIS

%I #14 Apr 21 2024 11:38:56

%S 2,4,6,8,10,12,14,16,18,16,16,12,16,20,24,28,32,18,20,32,24,32,40,24,

%T 28,32,36,40,44,48,32,40,48,56,64,36,40,44,48,64,80,48,56,64,72,80,88,

%U 48,52,80,96,56,64,72,80,88,96,104,112,96,112,64,72,80,88,96,104,112,120,112,128

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

%F a(n) = 2^A117462(n) * A007953(n). - _R. J. Mathar_, Sep 25 2018

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

%p A117463 := proc(n)

%p     2^A117462(n)*digsum(n) ;

%p end proc:

%p seq(A117463(n),n=1..90) ; # _R. J. Mathar_, Sep 25 2018

%o (UBASIC)

%o 10 'use of str,mid,len,val 20 'number of doubled iterations required to equal or exceed sod(n)

%o 30 C=C+1

%o 40 D=str(C)

%o 50 E=len(D)

%o 60 for Q=2 to E

%o 70 A=mid(D,Q,1):G=val(A)

%o 80 I=I+G

%o 90 next Q

%o 100 print C;I;"-";

%o 110 K=I

%o 120 I=0

%o 130 for R=1 to C

%o 140 K=K+K:T=T+1

%o 150 if K>=C then print C;K;T:cancel for:stop:goto 170

%o 160 next R

%o 170 K=0:T=0

%o 180 goto 30

%Y Cf. A117462, A169805.

%K easy,nonn,base,less

%O 0,1

%A _Enoch Haga_, Mar 18 2006

%E Extended by _R. J. Mathar_, Sep 25 2018