A097927 If a(n-1) is divisible by 2 then a(n) = a(n-1)/2. If a(n-1) is not divisible by 2 then a(n) = 47-(a(n-1)+1)/2; a(0)=1.

1, 46, 23, 35, 29, 32, 16, 8, 4, 2, 1, 46, 23, 35, 29, 32, 16, 8, 4, 2, 1, 46, 23, 35, 29, 32, 16, 8, 4, 2, 1, 46, 23, 35, 29, 32, 16, 8, 4, 2, 1, 46, 23, 35, 29, 32, 16, 8, 4, 2, 1, 46, 23, 35, 29, 32, 16, 8, 4, 2, 1, 46, 23, 35, 29, 32, 16, 8, 4, 2, 1, 46, 23, 35, 29, 32, 16, 8, 4, 2, 1, 46, 23

Offset

0,2

Comments

The old entry with this sequence number was a duplicate of A097945.

Periodic, with period = 10. - Harvey P. Dale, Sep 30 2016

Links

Table of n, a(n) for n=0..82.

Formula

Periodic with period of length 10.

Maple

a:=proc(n) option remember; local k; k:=47;
if n=0 then RETURN(1); fi;
if a(n-1) mod 2 = 0 then RETURN(a(n-1)/2); fi;
RETURN(k-(a(n-1)+1)/2); end;

Mathematica

NestList[If[EvenQ[#], #/2, 47-(#+1)/2]&, 1, 90] (* or *) PadRight[{}, 90, {1, 46, 23, 35, 29, 32, 16, 8, 4, 2}] (* Harvey P. Dale, Sep 30 2016 *)

Crossrefs

Sequence in context: A051161 A260512 A033366 * A033978 A216840 A060958

Adjacent sequences: A097924 A097925 A097926 * A097928 A097929 A097930

Keyword

nonn

Author

N. J. A. Sloane, Sep 25 2008, based on email from Zak Seidov, May 12 2008

Extensions

Definition corrected by Harvey P. Dale, Sep 30 2016

Status

approved