|
%I #6 Dec 21 2017 04:38:01
%S 0,0,0,0,1,1,1,2,1,2,3,2,2,2,2,2,2,2,2,2,2,3,3,2,2,2,2,3,3,3,3,3,3,3,
%T 3,3,2,3,3,3,3,2,3,2,2,3,2,2,2,2,2,2,2,2,2,3,3,3,2,2,2,2,3,3,3,3,3,3,
%U 2,2,2,3,2,3,2,2,2,3,3,2,2,2,3,2,4,3,2,3
%N Additive persistence of Catalan numbers.
%e Catalan number 429 -> 4+2+9=15 -> 1+5=6 thus persistence is 2
%p with(numtheory): with(combinat): P:=proc(n) local a,t; t:=0; a:=(2*n)!/(n!*(n+1)!); while a>9 do t:=t+1; a:=convert(convert(a,base,10),`+`); od; t;
%p end: seq(P(i),i=0..10^2);
%Y Cf. A003001, A006050, A000108, A131809.
%K easy,nonn,base
%O 0,8
%A _Paolo P. Lava_ and _Giorgio Balzarotti_, Jul 18 2007
%E Corrected entries and Maple code by _Paolo P. Lava_, Dec 19 2017
|
