%I A063871
%S A063871 3,20,10,5,34,17,118,59,412,206,103,720,360,180,90,45,314,157,1098,549,
%T A063871 3842,1921,13446,6723,47060,23530,11765,82354,41177,288238,144119,
%U A063871 1008832,504416,252208,126104,63052,31526,15763,110340,55170,27585
%N A063871 n->7n-1 if n odd, n/2 if n even.
%H A063871 Harry J. Smith, <a href="b063871.txt">Table of n, a(n) for n=0,...,500</
               a>
%o A063871 (PARI) f(n) = if(n<1,n=3, if(Mod(f(n-1),2)==0,f(n-1)/2,7*f(n-1)-1)); 
               for(n=0,50,print(f(n)))
%o A063871 (PARI) { for (n=0, 500, if (n, if(a%2, a=7*a - 1, a/=2), a=3); write("b063871.txt", 
               n, " ", a) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), 
               Sep 01 2009]
%Y A063871 Sequence in context: A117844 A067607 A013332 this_sequence A084316 A126810 
               A115280
%Y A063871 Adjacent sequences: A063868 A063869 A063870 this_sequence A063872 A063873 
               A063874
%K A063871 nonn,easy
%O A063871 0,1
%A A063871 Jason Earls (zevi_35711(AT)yahoo.com), Aug 27 2001
%E A063871 More terms from Larry Reeves (larryr(AT)acm.org), Aug 29 2001