|
%I #17 Mar 30 2012 17:38:51
%S 0,2,4,5,9,12,16,24,29,30,31,32,36,37,42
%N Records in A087664.
%F a(n)=A087664(A087668(n)). - _R. J. Mathar_, Nov 25 2006
%o (PARI) A087664(n)={ local(x,s) ; x=n/4 ; s=0 ; while( type(x)!="t_INT", x *= floor(x) ; s++ ; ) ; return(s) ; } { rec=-1 ; for(n=8,1000000, a=A087664(n) ; if(a>rec, rec=a ; print(rec) ; ) ; ) ; } - _R. J. Mathar_, Nov 25 2006
%Y Cf. A087664, A087668.
%K nonn,more
%O 1,2
%A _N. J. A. Sloane_, Sep 27 2003
%E More terms from _R. J. Mathar_, Nov 25 2006
%E a(8)-a(15) from _Max Alekseyev_, Jul 30 2011
|
