A081503 - OEIS

%I #10 Oct 03 2014 11:43:04

%S 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,2,2,2,1,1,1,1,2,2,2,2,2,2,1,2,2,2,

%T 2,2,2,2,3,3,2,2,2,2,2,3,3,3,2,2,2,2,3,3,3,2,2,2,2,3,3,3,2,2,2,2,3,3,

%U 3,3,2,2,2,3,3,3,3,3,3,2,3,3,3,3,3,3,2,3,3,3,3,3,3,2,3,3,3,3,3,3,2,3,3,3,3

%N Number of steps to reach a single digit when map in A081502 is iterated.

%F a(n) = O(log n).

%e 19 -> 3+9 = 12 -> 3+2 = 5, taking 2 steps, so a(19)=2.

%p A081503 := proc(n)

%p     local nitr,a ;

%p     nitr := n ;

%p     a := 0 ;

%p     while nitr > 9 do

%p         nitr := A081502(nitr) ;

%p         a := a+1 ;

%p     end do;

%p     a ;

%p end proc: # _R. J. Mathar_, Oct 03 2014

%K nonn,easy,base

%O 0,18

%A _N. J. A. Sloane_, Apr 22 2003

%E More terms from _Matthew Conroy_, Jan 16 2006

%E Formula from _Charles R Greathouse IV_, Aug 02 2010