длинными числами

Мне нужно посчитать число 2 в степени (p-1)/q и найти остаток деления результата на p, где p имеет размерность 1024 бита, а q 128, тип данных чисел - BigIntegerЯ пытался считать циклом for, но он оказывается настолько тяжёлым что программа виснет