OFFSET
1,1
LINKS
FORMULA
a(n) = A006513(n) - 1.
Apparently also the antiparity of A064433. - Ralf Stephan, Nov 16 2004
PROG
(PARI) a(n)=if(n<0, 0, s=n; c=0; while(s>1, s=(s%2)*(3*s+1)/2+(1-s%2)*s/2; c++); c)%2
(Scheme)
(define (A014682 n) (if (even? n) (/ n 2) (/ (+ n n n 1) 2)))
;; Antti Karttunen, Aug 13 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Nov 01 2002
STATUS
approved