|
|
A259193
|
|
5x + 1 sequence beginning at 11.
|
|
1
|
|
|
11, 56, 28, 14, 7, 36, 18, 9, 46, 23, 116, 58, 29, 146, 73, 366, 183, 916, 458, 229, 1146, 573, 2866, 1433, 7166, 3583, 17916, 8958, 4479, 22396, 11198, 5599, 27996, 13998, 6999, 34996, 17498, 8749, 43746, 21873, 109366, 54683, 273416, 136708, 68354, 34177, 170886, 85443
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
FORMULA
|
a(0) = 11; a(n) = 5a(n - 1) + 1 if a(n - 1) is odd, a(n) = a(n - 1)/2 otherwise.
|
|
EXAMPLE
|
11 is odd, so it's followed by 5 * 11 + 1 = 56.
56 is even, so it's followed by 56/2 = 28.
|
|
MATHEMATICA
|
NestList[If[EvenQ[#], #/2, 5# + 1] &, 5, 100]
|
|
PROG
|
(Magma) [n eq 1 select 11 else IsOdd(Self(n-1)) select 5*Self(n-1)+1 else Self(n-1) div 2: n in [1..80]]; // Vincenzo Librandi, Jul 04 2015
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|