A137607 a(0)=361, a(n+1)=a(n)/2 if a(n) is even, else a(n+1)=a(0)-(a(n)+1)/2.

361, 180, 90, 45, 338, 169, 276, 138, 69, 326, 163, 279, 221, 250, 125, 298, 149, 286, 143, 289, 216, 108, 54, 27, 347, 187, 267, 227, 247, 237, 242, 121, 300, 150, 75, 323, 199, 261, 230, 115, 303, 209, 256, 128, 64, 32, 16, 8, 4, 2, 1, 360, 180, 90, 45, 338, 169, 276, 138, 69, 326, 163, 279, 221, 250, 125, 298, 149, 286, 143, 289, 216, 108, 54, 27, 347, 187, 267, 227, 247, 237, 242, 121, 300, 150, 75, 323, 199, 261, 230, 115, 303, 209, 256, 128, 64, 32, 16, 8, 4, 2, 1, 360

Offset

0,1

Comments

For n>=1, periodic with period 51. - Vladeta Jovovic, Apr 28 2008

The rule is the following: b(0)=361. If b(n-1) is divisible by 2 then b(n) = b(n-1)/2. If b(n-1) is not divisible by two then b(n) = b(0)-(b(n-1)+1)/2. It is periodic.

Links

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

Index entries for linear recurrences with constant coefficients, signature (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1).

Mathematica

NestList[If[Mod[#, 2]==0, #/2, 361-(#+1)/2]&, 361, 110] (* Harvey P. Dale, Mar 31 2024 *)

Prog

(PARI) A137607(n) = if( !n, 361, for( i=0, n%51, n=if( i, if( n%2, 360-n\2, n\2), 360)); n) \\ M. F. Hasler, Apr 28 2008

Crossrefs

Cf. A096259.

Sequence in context: A330906 A003799 A003930 * A367792 A325882 A255787

Adjacent sequences: A137604 A137605 A137606 * A137608 A137609 A137610

Keyword

nonn,less

Author

Yasutoshi Kohmoto, Apr 23 2008

Extensions

Clarified & extended by Vladeta Jovovic and M. F. Hasler, Apr 28 2008

The initial term, 361, seems anomalous. This sequence violates the rule that entries in the OEIS should not depend on an arbitrary but large parameter. - N. J. A. Sloane, May 17 2008

Status

approved