DBG = !true
n = gets.to_i
a = gets.split.map{|z| z.to_i}
tol = Array.new(n)
tor = Array.new(n)
tol[0] = 1
gapl = []
1.upto(n-2) { |i|
  tol[i] = 1 + tol[i-1]
  if a[i-1] < a[i]
    ex = 0
    x = a[i-1]
    y = a[i]
    while x < y
      x *= 4
      ex += 2
    end

    prev = i
    dif = 0
    (gapl.size-1).downto(0) { |j|
      pos = gapl[j][0]
      dex = [gapl[j][1], ex].min
      dif += ex * (prev - pos)
      ex -= dex
      gapl[j][1] -= dex
      prev = pos
      if DBG
        puts "== ij #{i},#{j} pos:#{pos} dex #{dex} dif #{dif}"
        puts "   gapl[j][1] #{gapl[j][1]} prev #{prev} ex #{ex}"
      end
      if gapl[j][1] == 0
        gapl.delete_at(j)
      end
    }
    dif += ex * prev
    tol[i] += dif
  elsif a[i-1] >= 4*a[i]
    ex = -2
    y = a[i-1]
    x = a[i]
    while x <= y
      x *= 4
      ex += 2
    end
    gapl << [i, ex]
    puts "[#{i}, #{ex}] added to gapl" if DBG
  end
}
if DBG
  print "tol:"
  print tol
  puts ""
  print "gapl:"
  print gapl
  puts ""
end

tor[n-1] = 0
gapr = []
(n-2).downto(0) { |i|
  tor[i] = tor[i+1]
  if a[i] > a[i+1]
    ex = 0
    x = a[i+1]
    y = a[i]
    while x < y
      x *= 4
      ex += 2
    end

    prev = i
    dif = 0
    (gapr.size-1).downto(0) { |j|
      pos = gapr[j][0]
      dex = [gapr[j][1], ex].min
      dif += ex * (pos - prev)
      puts "dif+ #{dif} ex #{ex} pos #{pos} prev #{prev}" if DBG
      ex -= dex
      gapr[j][1] -= dex
      if gapr[j][1] == 0
        gapr.delete_at(j)
      end
      prev = pos
    }
    dif += ex * (n - prev - 1)
    puts "dif+ #{dif} ex #{ex} n #{n} prev #{prev}" if DBG
    tor[i] += dif
  elsif 4*a[i] <= a[i+1]
    ex = -2
    x = a[i]
    y = a[i+1]
    while x <= y
      x *= 4
      ex += 2
    end
    gapr << [i, ex]
    puts "[#{i}, #{ex}] added to gapr" if DBG
  end
}
if DBG
  print "tor:"
  print tor
  puts ""
  print "gapr:"
  print gapr
  puts ""
end

mn = tor[0]
for i in 1..(n-1)
  s = tol[i-1] + tor[i]
  mn = s if s < mn
end
print mn
