It is ok to post!
# Name:Treasa Bency Biju Jose
# Date: 12-12-2020
# Assignment #25

---------------------------------------------------------------------------------------------------
1. 
Ferr([9, 6, 5, 3, 1, 1, 1]);
1, 1, 1, 1, 1, 1, 1, 1, 1
1, 1, 1, 1, 1, 1
1, 1, 1, 1, 1
1, 1, 1
1
1
1

---------------------------------------------------------------------------------------------------
2. pnk(151, 10);
                            79811865

---------------------------------------------------------------------------------------------------
3. BZ([[6, 5, 3, 1, 1, 1, 1, 1], -1]);
                   [[6, 4, 2, 2, 2, 2, 2], 0]

---------------------------------------------------------------------------------------------------
4. pnFast(10000);
3616725132563629398882047189095369549501603033931565042208186860\

  5887952568754066420592310556052906916435144


[seq(PnFast(i), i = 1 .. 10000)][10000];
                         PnFast(10000)

pnFast(20000);
2521148138125296979166195332304704522813289496018115934368503141\

  08034284423801564956623970731689824369192324789351994903016411\

  826230578166735959242113097


---------------------------------------------------------------------------------------------------
5. 
pnFastMod := proc(n, m) 
pnFast(n) mod m; 
end proc;

pnFastMod(10^5, 101);
                               89

---------------------------------------------------------------------------------------------------