#!/usr/bin/perl -slw

use strict;
use warnings;
use Math::NumSeq::CollatzSteps;

my $seq = Math::NumSeq::CollatzSteps->new(
          step_type => 'both'
);
my $i = 837799;
my $value = $seq->ith($i);
print $value;