login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A050004
a(n) = floor(a(n-1)/2) if this is not among 0, a(1), ..., a(n-2); otherwise a(n) = 5*a(n-1).
7
1, 5, 2, 10, 50, 25, 12, 6, 3, 15, 7, 35, 17, 8, 4, 20, 100, 500, 250, 125, 62, 31, 155, 77, 38, 19, 9, 45, 22, 11, 55, 27, 13, 65, 32, 16, 80, 40, 200, 1000, 5000, 2500, 1250, 625, 312, 156, 78, 39, 195, 97, 48, 24, 120, 60, 30, 150
OFFSET
1,2
LINKS
MATHEMATICA
Rest@Nest[Append[#, If[FreeQ[#, r = Quotient[#[[-1]], 2]], r, 5 #[[-1]]]] &, {0, 1}, 55] (* Ivan Neretin, Jul 31 2016 *)
CROSSREFS
Cf. A050000 and references therein.
Sequence in context: A065292 A090812 A319408 * A111187 A257323 A293559
KEYWORD
nonn,easy
STATUS
approved