%I A082561
%S A082561 1,3,2,6,18,4,12,36,3,9,27,7,21,63,19,57,171,5,15,45,13,39,117,37,111,
%T A082561 333,4,12,36,10,30,90,28,84,252,8,24,72,22,66,198,64,192,576,20,60,180,
%U A082561 58,174,522,172,516,1548,6,18,54,16,48,144,46,138,414,14,42,126,40,120
%N A082561 a(1)=1, a(n)=3*a(n-1) if n is not a multiple of 3, or a(n)=a(n/3)+1 if 
               n is a multiple of 3.
%C A082561 b(1)=1, b(n)=3*b(n/3) if n is a multiple of 3, or b(n)=b(n-1)+1 if n 
               is not a multiple of 3 produces the sequence 1, 2, 3, 4, ...
%o A082561 (PARI) a(n)=if(n<2,1,if(n%3,3*a(n-1),1+a(n/3)))
%Y A082561 Sequence in context: A073883 A074718 A007812 this_sequence A110768 A140230 
               A025240
%Y A082561 Adjacent sequences: A082558 A082559 A082560 this_sequence A082562 A082563 
               A082564
%K A082561 nonn
%O A082561 1,2
%A A082561 Benoit Cloitre (benoit7848c(AT)orange.fr), May 04 2003