function value = f ( i )

%*****************************************************************************80
%
%% f() is the function we are analyzing.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    22 October 2012
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer I, the argument.
%
%    integer VALUE, the value.
%
  i4_huge = 2147483647;

  value = i;

  for j = 1 : 5

    k = floor ( value / 127773 );

    value = 16807 * ( value - k * 127773 ) - k * 2836;

    if ( value <= 0 )
      value = value + i4_huge;
    end

  end

  return
end

