%I A098972
%S A098972 1,5,13,25,41,41,89,89,121,157,157,157,301,301,301,301,365,365,581,581,
%T A098972 581,581,581,581,965,965,965,1073,1073,1073,1073,1073,1201,1201,1201,
%U A098972 1201,2065,2065,2065,2065,2065,2065,2065,2065,2065,2065,2065,2065,3025
%N A098972 a(0)=1; for n>0, a(n)=2*a(floor(n/2))+3*a(floor(n/3)).
%C A098972 a(n)>a(n-1) iff n is a 3-smooth number.
%F A098972 sign(a(n+1)-a(n))=A065333(n+1)
%o A098972 (PARI) a(n)=if(n<1,1,a(floor(n/2))*2+3*a(floor(n/3)))
%Y A098972 Cf. A003586, A007731.
%Y A098972 Sequence in context: A094553 A094079 A112558 this_sequence A081961 A096891 
               A001844
%Y A098972 Adjacent sequences: A098969 A098970 A098971 this_sequence A098973 A098974 
               A098975
%K A098972 nonn
%O A098972 0,2
%A A098972 Benoit Cloitre (benoit7848c(AT)orange.fr), Oct 23 2004