|
%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
|
