A082530 a(1)=1, a(n)=5*a(n-1)+1 if a(n-1) is odd, a(n)=a(n-1)/2+1 otherwise.

1, 6, 4, 3, 16, 9, 46, 24, 13, 66, 34, 18, 10, 6, 4, 3, 16, 9, 46, 24, 13, 66, 34, 18, 10, 6, 4, 3, 16, 9, 46, 24, 13, 66, 34, 18, 10, 6, 4, 3, 16, 9, 46, 24, 13, 66, 34, 18, 10, 6, 4, 3, 16, 9, 46, 24, 13, 66, 34, 18, 10, 6, 4, 3, 16, 9, 46, 24, 13, 66, 34, 18, 10, 6, 4, 3, 16, 9, 46, 24

Offset

1,2

Comments

Starting with a(1)=1 up to 60 sequence becomes periodic except perhaps for a(1)=17,23,32,35,41,44,53,55,59.

Links

Table of n, a(n) for n=1..80.

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

Formula

For n>=2 sequence is 12-periodic with period (6, 4, 3, 16, 9, 46, 24, 13, 66, 34, 18, 10).

Mathematica

Join[{1}, LinearRecurrence[{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1}, {6, 4, 3, 16, 9, 46, 24, 13, 66, 34, 18, 10}, 79]] (* Ray Chandler, Aug 26 2015 *)

Crossrefs

Sequence in context: A112148 A007258 A045488 * A099404 A095156 A198550

Adjacent sequences: A082527 A082528 A082529 * A082531 A082532 A082533

Keyword

nonn

Author

Benoit Cloitre, Apr 30 2003

Status

approved