diff --git a/_layouts/tagpage.html b/_layouts/tagpage.html
new file mode 100644
index 0000000000..101ec770d1
--- /dev/null
+++ b/_layouts/tagpage.html
@@ -0,0 +1,64 @@
+---
+layout: default
+---
+
+
+{% include mathjax.html %}
+{% if page.background %}
+
+{% else %}
+
+
+
+
+
+
+
+ {{ content }}
+
+
+
{{ page.tag | capitalize }}
+
+
+ {% for post in site.tags[page.tag] %}
+
+ {{ post.date | date: "%B %d, %Y" }}: {{ post.title }}
+
+ {% endfor %}
+
+
+
+
+
Posts under other tags can be found by clicking one of the following links.
+
+
+
+ {% for tag in site.tags %}
+
+
+ {{ tag[0] }} |
+
+ {% endfor %}
+
+
+
+
+
th in the world according to Press Freedom Index, that is just pathetic for a country which is the world’s largest democracy. Most of these bans happen because someone or the other thought that it was against India’s traditions. A tradition is a belief or behavior passed down within a group or society with symbolic meaning or special significance with origins in the past. If this is the case, then we had an ancient text called Kamasutra, why is sex education still not a part of the school curriculum? We had ancient temple architecture showing homosexual acts of love, then why do the LGBT community still have to fight and hide in order to live a good life in India? The fact is that, we take the use of the word ‘tradition’ in a very light sense, and make it suit whatever is our whim. India is certainly no country for a honest opinion.
+
+But, if we think a little deep, we will see that the problem is not with the government or with the myriad of associations and organizations that strive in India just to try an impose a ban on something or the other. The problem is with us, the people of India. How often have we said something in closed doors, but have failed to say it out loud? How often have we discreetly seen a banned video or read a banned book, but we never dared to raise a voice against it? If we are quiet now, we shall have to forever be quiet. The onus is on the youth of the nation to not only uphold the Constitution of India but also to speak out against the hypocrisy prevalent in the society now. Speak now or forever hold your tongue!
diff --git a/_posts/2015-05-16-wedding-conversation.markdown b/_posts/2015-05-16-wedding-conversation.markdown
new file mode 100644
index 0000000000..6f0eede86c
--- /dev/null
+++ b/_posts/2015-05-16-wedding-conversation.markdown
@@ -0,0 +1,151 @@
+---
+layout: post
+title: Wedding Conversation
+date: '2015-05-16 15:30:35'
+tags: random math
+subtitle: "An imaginary one."
+comments: true
+background: '/img/bg-default.jpg'
+permalink: '/wedding-conversation/'
+---
+
+
+*A few days back, I sent a short note (a fictitious conversation) to the guys at [Anti Serious Magazine](http://t.umblr.com/redirect?z=http%3A%2F%2Fwww.antiserious.com&t=MzkzYTAxZDE4NmQ5MDdiOTZiN2JjMGQ3ZDQzOTM5MjEyYmQxMDEzYSxOWkdwdDc3Zw%3D%3D&b=t%3A7YsAI-8rdXDRUkhAWltUHw&p=http%3A%2F%2Ffallingleavesin.tumblr.com%2Fpost%2F119097704936%2Fwedding-conversation&m=1). I have waited a respectable amount of time and since they have not published it yet, so I assume they are not going to. I am posting this here because I don’t see any point in sending it to any other place. The piece is not so good, so I did not mind that much when they didn’t publish it. Anyways here it goes.*
+
+“Hi, how are you doing?”
+
+“Hello, I am fine. The party is great! What about you?”
+
+“Yes, its good. The wine is really nice. Indian weddings and wine seem a tad bit unnatural.”
+
+“Well, times are changing nowadays.”
+
+“So, what do you do for a living?”
+
+“I am a mathematician. I prove theorems. What about you?”
+
+“I am a writer, I write stories and poems mostly.”
+
+“That’s really nice.”
+
+“So, tell me what is 237 multiplied with 93?”
+
+“Umm….I don’t know that. Wait, let me check my cellphone.”
+
+“Haha….but you are supposed to know that stuff!”
+
+“Why?”
+
+“Because you are a mathematician!”
+
+“Hmmm….what is your favourite novel?”
+
+“The count of Monte Cristo by Alexandre Dumas.”
+
+“That’s really nice, even I like that one. Ok, then tell me what are the jewels that Dantes found in the island?”
+
+“Umm…let me see. I guess, some sapphires, rubies, diamonds and the usual stuff.”
+
+“Ha…but you should know that! You are a writer and you love that book. Why don’t you know exactly what he found there?”
+
+“Well, you see we do not read a novel to memorise it and then answer stupid questions to strangers.”
+
+“I understand that. Then why do you expect me to answer you what is 237 times 93?”
+
+“But you are a mathematician, you are expected to be good at that stuff.”
+
+“No, no, no. Shakuntala Devi is supposed to be good at that stuff. Not a mathematician.”
+
+“But wasn’t she like India’s greatest female mathematician or something?”
+
+“Oh, dear lord! Shakuntala Devi was not a mathematician. She was a human calculator. Mathematicians need not be good at calculating stuff. Calculations are not necessary for us, sometimes it is useful no doubt. But why do you think they invented the calclator?”
+
+“Hmmm….anyways, I was never good at mathematics. I sucked in it.”
+
+“That’s really good to know, gives me such joy and happiness you know when random strangers tell me they were horrible in mathematics.”
+
+“But that’s the truth. I can safely say that I have never used any of the algebra or whatever shit they told me about in class, anytime in my adult life!”
+
+“Really?”
+
+“Yes!” (smiling)
+
+“Okay, do you have kids?”
+
+“Yes, three kids.”
+
+“Do you bring them chocolates or pizzas?”
+
+“Yes, once in a while.”
+
+“Then, who divides the pieces for them?”
+
+“Most of the time its me. What has that got to do with anything?”
+
+“How do you divide one pizza in three parts for your kids?”
+
+‘That’s easy man. Anyone with a school education can do it.”
+
+“And does that remind you of your mathematics classes in school?”
+
+“Aah, okay I see now where you are going. Okay, I agree I use fractions and stuff like that from time to time. But what do you do? Your theorems are useless to me.”
+
+“And so are your poems to me! What is the benefit of writing them?”
+
+“What are you saying? A good poem is a piece of art, it has no tangible value. You cannot measure its goodness on a scale. You mathematicians are crazy.”
+
+“What if I told you that the pleasure you derive when you write a good poem is the same as the pleasure or maybe more that I derive when I prove a particularly nice and beautiful theorem.”
+
+“Beautiful and mathematics? You must be joking right?”
+
+“Why would I joke about my profession to you? You are a stranger whom I met in a wedding where I do not even recognise half the people.”
+
+“Okay, maybe it gives you pleasure like writing gives me pleasure. But wouldn’t you say mathematics is largely useless for the rest of us? No one understands it anyways.”
+
+“Do you understand Greek?”
+
+“No, of course not.”
+
+“Exactly, and probably 80% of the world population do not understand Greek. Does that make it useless?”
+
+“But mathematics is different.”
+
+“What is the first thing that you do when you wake up?”
+
+“I check my phone for any messages.”
+
+“And you think there is no mathematics involved in that?”
+
+“Umm….why would there be?”
+
+“Well, it would take a long time to explain it to you. But be assured that there is a hell lot of mathematics involved in everything you do in your day to day lives.”
+
+“Okay, lets say I agree. But why should all of us be allowed to suffer it in school?”
+
+“Hmm…that’s a good one. Lets see, I guess you also studied world geography when you were in school. Didn’t you?”
+
+“Yes, I did. What’s the point?”
+
+“Tell me, did you go to all those places that you studied?”
+
+“No, I didn’t.”
+
+“Then what was the point in studying that?”
+
+“Okay, I see now where you are going with this. But still, it is incredibly difficult.”
+
+“So is learning how to cook well. Or learning to speak Italian.”
+
+“Maybe, I do not know to cook or Italian.”
+
+“But you didn’t mention it to me when we were introduced, you just said you were horrible in mathematics.”
+
+“You don’t brag about your bad culinary skills to strangers!”
+
+“Exactly. That’s my point.”
+
+“It was nice meeting you, please excuse me.”
+
+“You are excused.”
+
+
diff --git a/_posts/2015-06-28-poetry-how-do-i-feel-now.markdown b/_posts/2015-06-28-poetry-how-do-i-feel-now.markdown
new file mode 100644
index 0000000000..377d14d0a0
--- /dev/null
+++ b/_posts/2015-06-28-poetry-how-do-i-feel-now.markdown
@@ -0,0 +1,34 @@
+---
+layout: post
+title: 'Poetry: How do I feel now?'
+date: '2015-06-28 15:22:19'
+tags: poetry
+comments: true
+subtitle: "Long lost poem."
+background: '/img/quotes.jpg'
+permalink: '/poetry-how-do-i-feel/'
+---
+
+
+The poem below was written on 26th December, 2012 and posted on a blog that I used to manage. But I let the domain expire and thought that would be the end of it. Apparently, the people at way back machine thought it to be a good idea to preserve the blog. So here it goes.
+
+How do I feel now?
+ A feeling lost in the trenches,
+ Deep down I know it a mistake,
+ Maybe the feeling shared,
+ The cold winter evenings
+ Make little effort to help me dry
+ Its just a lost cause, still I try
+ The dark ravages of the past haunts me,
+ The mock anger at times taunts me,
+ I stay awake thinking
+ And praying,
+ And hoping,
+ That someday somehow,
+ All will be right.
+ I shall take you in my arms,
+ Look into your eyes,
+ And say, deep down
+ I will always love you.
+
+
diff --git a/_posts/2015-06-28-untitled-a-poem.markdown b/_posts/2015-06-28-untitled-a-poem.markdown
new file mode 100644
index 0000000000..d4a1b65623
--- /dev/null
+++ b/_posts/2015-06-28-untitled-a-poem.markdown
@@ -0,0 +1,20 @@
+---
+layout: post
+title: 'Untitled: A Poem'
+subtitle: "Probably unfinished."
+comments: true
+background: '/img/quotes.jpg'
+date: '2015-06-28 15:24:27'
+tags: poetry
+permalink: '/untitled-a-poem/'
+---
+
+
+
+I am parched, there is a hunger
+I see the stars, there is a danger
+The calm sea talks to me about you
+The cold wind whispers to me about you
+If only you were here, if only.
+
+
diff --git a/_posts/2015-10-04-should-india-have-a-space-program.markdown b/_posts/2015-10-04-should-india-have-a-space-program.markdown
new file mode 100644
index 0000000000..0124ce35df
--- /dev/null
+++ b/_posts/2015-10-04-should-india-have-a-space-program.markdown
@@ -0,0 +1,23 @@
+---
+layout: post
+title: Should India have a space program?
+subtitle: "On ISRO and public opinion."
+comments: true
+background: '/img/bg-default.jpg'
+date: '2015-10-04 17:37:32'
+tags: india
+permalink: '/should-india-have-a-space-program/'
+---
+
+
+A few days ago, India launched it’s first space observatory **[Astrosat](https://en.wikipedia.org/wiki/Astrosat)** into space. This was the latest successful launch by [ISRO](https://en.wikipedia.org/wiki/Indian_Space_Research_Organisation) (**Indian Space Research Organisation**) and it failed to make a splash this time because of one reason: Facebook! Prime Minister Narendra Modi was in the US recently and he had a nice chat with Mark Zuckerberg, among other CEOs of companies. Zuckerberg expressed his support for Digital India campaign by enabling a feature in Facebook where users could change their display picture much like the LGBT support a few months back. All was well and my timeline was flooded with people changing their display pictures until some guy found that the source code for the page had internetorg as an anchor text somewhere. Then all hell broke loose. Many (including me) in India are against [internet.org](http://internet.org) initiative of Facebook because of reasons which I will not go in details here. This incident sparked of much hatred and debate on Facebook and as a result the launch of Astrosat did not occupy the people’s imagination. But I had a very lively discussion with someone who is against India having a space program, and this post tries to give my views on the matter.
+
+ISRO was formed in 1969 as an organisation but it had its roots in the Indian National Committe for Space Research founded in 1962. The Committee was spearheaded by the first Prime Minister of Independent India, Pt. Jawaharlal Nehru and the visionary scientist Dr. Vikram Sarabhai. Since its humble beginnings, ISRO has come to be regarded as one of the most reliable space agencies in the world and has to it’s credit many milestones including the recent Astrosat achievement. By this launch, India has joined a select list of countries to have a space observatory in place, being the only developing nation to have done so. Also, it should be mentioned that ISRO launches satellites for other countries too, including but not limited to Germany, USA, Japan, etc and thereby earning some revenue for the organisation in the process.
+
+But after the [Mars Orbiter Mission](https://en.wikipedia.org/wiki/Mars_Orbiter_Mission)‘s success, many in the [mainstream media](http://www.economist.com/blogs/economist-explains/2013/11/economist-explains-0) questioned whether India should have a space program at all, given that a large portion of the country lives in dire poverty without any means of potable water and sanitary toilets. But this comparison is a classic case of comparing apples with oranges. The budget for the 2015-16 session of ISRO comes to about 7500 crores approximately in Indian rupees. This is just 0.5% of the estimated tax revenue that the government plans to get in the same period. I do not see any reason why 0.5% could not be given to a space research organisation. People who claim otherwise do not think about all the facts before coming to their conclusion.
+
+There are many advantages of having an organisation like ISRO. The immediate benefits include weather forecasting which helps the farmers, cyclone warnings which saves countless lives, GPS and telecommunications services, defence mechanisms, etc. But the most important benefit that I see ISRO fulfilling is to inspire a generation of young students to take up science and technology as a career. It is no doubt true that the future of a nation is heavily dependent on science, technology and research. India’s population is a major advantage in this case, because if a good number of people go in that direction then India would rise quite rapidly in all sectors. ISRO can play a pivotal role in the overall scheme of things, not only by making new jobs available to engineers and science graduates but also by imparting education through the [Indian Institute of Space Technology](https://en.wikipedia.org/wiki/Indian_Institute_of_Space_Science_and_Technology), which is one of it’s kind not only in India, but also in Asia.
+
+So, in summary I believe that we should show support to an organisation who can make a successful Mars Mission in less money taken to shoot a Hollywood sci-fi movie or the cost of making a flyover in Mumbai. After all, developing a scientific temper is one of the fundamental duties of an Indian citizen and we should strive to make that happen.
+
+
diff --git a/_posts/2015-10-11-mathematical-apocrypha-redux-short-review.markdown b/_posts/2015-10-11-mathematical-apocrypha-redux-short-review.markdown
new file mode 100644
index 0000000000..236252c28c
--- /dev/null
+++ b/_posts/2015-10-11-mathematical-apocrypha-redux-short-review.markdown
@@ -0,0 +1,17 @@
+---
+layout: post
+title: 'Mathematical Apocrypha Redux: Short Review'
+subtitle: "Worth reading for the extreme fun component."
+comments: true
+background: '/img/books.jpeg'
+date: '2015-10-11 17:25:38'
+tags: books math
+permalink: '/mathematical-apocrypha-redux-short-review/'
+---
+
+
+Mathematicians are more often then not, thought to be barely human in the sense that, they are mostly portrayed to be aloof scholars who has neither an inkling or an interest in what is happening around them in the world. This view has been shared by so many works of fiction that it has been taken to be the absolute standard in how the world perceives a mathematician. I was reading about anecdotes related to mathematicians a few weeks ago on the internet when I stumbled upon two books written by *Steven Krantz* called *Mathematical Apocrypha* and *Mathematical Apocrypha Redux*. I failed to find the first book, but I got hold of the second one and devoured it completely. It was a nice, succinct and humorous book to say the least.
+
+The stories mentioned in the book cover the whole spectrum of modern mathematics and all the key players are mentioned in the book in some form or the other. The added benefit is that most of the stories are collected first hand by the author and as such their authenticity is not in question for most parts of the book. A very nice bibliography at the end points the reader to lots of other materials. For the non-mathematically minded readers, this book has no significant mathematics and can be and should be enjoyed by one and all. I am surprised why such a book had failed to pique my attention earlier. Now, my next task would be to locate the first book!
+
+
diff --git a/_posts/2015-11-08-my-experience-at-ictp-i.markdown b/_posts/2015-11-08-my-experience-at-ictp-i.markdown
new file mode 100644
index 0000000000..f1ed6472f8
--- /dev/null
+++ b/_posts/2015-11-08-my-experience-at-ictp-i.markdown
@@ -0,0 +1,48 @@
+---
+layout: post
+title: My experience at ICTP (I)
+subtitle: "Some reflections on a year spent at Trieste."
+comments: true
+background: '/img/research.jpeg'
+date: '2015-11-08 16:45:09'
+tags: academia travel math
+permalink: '/my-experience-at-ictp/'
+---
+
+The [Abdus Salam ICTP](http://www.ictp.it) offers a [one year Diploma](http://diploma.ictp.it) in HEP, CMP, ESP and Math. This one year programme is unique in the sense that it prepares students from developing nations to pursue a PhD in US or Europe or other parts of the world. I am an alumni of this programme. I studied at ICTP in 2014-15 batch of the Math Diploma. This will be the first time that I will recount my experiences. Please note that I speak only for the Mathematics Diploma section.
+
+The programme is a year long intense programme with lectures for roughly 8 months divided into two semester, followed by one semester of a short project work. The lecturers are mostly scientists at ICTP, while for some courses there are other lecturers depending on who is available at the institute at that time. There are tutorial sessions for subjects where students are not very well prepared and they are mostly done by postdocs at ICTP. The courses covers all the basic courses that one might expect to study at the graduate level and sometimes they go beyond the normal curriculum. Needless to say the lecturers are experts in their own fields and this is reflected in the lectures. ICTP has NO bad lecturers. If you want to sample some lectures then you can go [here](http://www.ictp.tv) where all the lectures are videotaped and made available online as soon as the lecture has finished. Some of the courses, like Differential Geometry, Complex Analysis and PDEs are gems and should be given a try.
+
+After two semesters of courses with exams, the students move on to the final phase, that is of a short project work under some scientist at ICTP (not necessarily a permanent scientific staff of the institute). In mathematics, mostly this means trying to understand a particular topic or paper and then writing it out yourself and presenting it at the end of the stipulated time (around 3 months or so). In other subjects (most notably ESP and CMP), students also do original research and the works are normally published in reputed journals (an alumni couple of years back even published in Physics Letters B).
+
+This covers the educational aspect of the course. But ICTP is much more than lectures. The one year that I spent there was memorable due to numerous factors. I will just list a few of them below:
+
+1. The [Marie Curie Library](http://library.ictp.it) has access to any book on physics and mathematics that has ever been published (this is a slight exaggeration, but it is mostly true). The library staff are very friendly and even being a student I could order a book for the library which I wanted to read and the library did not have it (it took roughly two weeks for me to get the book in my hand). If you want to study then there can be no better place.
+
+2. The city of Trieste is fantastic, very close to the Adriatic sea (in fact, one building of ICTP lies next to the sea), it provides awesome atmosphere for study and research. The Italian cuisine is pretty good, needless to say and the city is not as expensive as Milan or Rome. ICTP provides a stipend of 800 Euros which is more than enough to get by. Also the fact that everyone knows and respects ICTP in Trieste is an added bonus.
+
+3. Everyone at ICTP is friendly. And I literally mean everyone. In my one year I did not find one single person who did not exchange a smile or stop of talk or discuss something. It is a huge family under one umbrella. I am sure that even if I go to ICTP after decades and mention that I am an alumni, there will be no dearth of people to talk and reminiscence.
+
+4. All facilities provided at ICTP are topnotch. Students get almost the same benefits as any member of staff. And if there is a problem, it gets fixed soon enough so that it does not bother you.
+
+5. Everyone speaks English. This can be difficult in the city where people do not speak English, but it was a good opportunity for me to pick up basic Italian.
+
+6. If there is something in mathematics or theoretical physics that you want to learn or understand, chances are very high that there will be someone in ICTP who knows a lot about that particular topic and would be able to lend you a helping hand. It is not uncommon to pass by blackboards filled with esoteric symbols, even in the bar or lobby.
+
+7. The scientific who’s who visits ICTP on a regular basis. You may randomly bump into someone who is very famous in his or her field and you would not even realize it. During my stay there, at least 4-5 Nobel laureates and 4-5 Fields Medalists visited the institute at some point or the other.
+
+8. There is no lack of scientific activity in ICTP. At a given time, there will be 2-3 conferences or workshops going on and if something catches your fancy then you can just attend it without anyone questioning you (provided you do not miss any classes).
+
+9. Italian coffee is awesome!!
+
+10. The friends you will make in that one year will give you a new perspective of different cultures, places and what not.
+
+These are just some of my personal feelings. There is a joint ICTP-SISSA PhD programme of which I do not know very much. But it should be awesome as well.
+
+**tl;dr: ICTP is a magical place**
+
+[This was an answer to a question in Quora that I was asked to answer. The original question can be viewed [here](https://www.quora.com/Whats-it-like-to-study-at-the-international-centre-for-theoretical-physics-ICTP).]
+
+*P.S. There are so many things to write about my experiences at ICTP that it would be too large a post, so I will write some more at a later time.*
+
+
diff --git a/_posts/2015-11-27-two-afternoons-with-da-vinci.markdown b/_posts/2015-11-27-two-afternoons-with-da-vinci.markdown
new file mode 100644
index 0000000000..2403e91ed0
--- /dev/null
+++ b/_posts/2015-11-27-two-afternoons-with-da-vinci.markdown
@@ -0,0 +1,38 @@
+---
+layout: post
+title: Two Afternoons with Da Vinci
+subtitle: "About trips to Milan and Paris."
+comments: true
+background: '/img/bg-default.jpg'
+date: '2015-11-27 13:03:23'
+tags: travel art
+permalink: '/two-afternoons-with-da-vinci/'
+---
+
+*(Images are missing, due to importing from a different location. This will probably never be fixed. Sorry about that.)*
+
+In June of this year, I went to Milan for some work. It was my second visit to the city, having lived in Italy for a year from September of last year. In my first visit I had already seen the Milan Cathedral, the **Santa Maria Della Grazie** (which hosted Leonardo Da Vinci’s The Last Supper) and the other usual touristic sites. Since the place I had to go to was very close to the **Duomo di Milano** (duomo means cathedral in Italian), I decided to see this magnificent cathedral once again. In a desire to see the surrounding places of the Duomo, I stumbled upon an exhibition of the works of Leonardo Da Vinci is the **Palazzo Reale di Milano** (the Royal Palace of Milan, which was the seat of the kingdom of Milan for many centuries and in itself a very important cultural establishment now).
+
+The exhibition was a part of the **Milan Expo 2015** and was the largest exhibition of Da Vinci’s works to be ever displayed in Italy. I bought my ticket and audio guide and went inside. The four hours spent inside that exhibition left me mesmerized by the genius of Da Vinci. Not only did the exhibition have many of Da Vinci’s most famous works, but also it had an extensive collection of the scientific notes of Da Vinci from his famous notebooks. But the centrepiece of this exhibition was no doubt ***The Vitruvian Man***, which normally resides in the **Accademia** at Venice and very rarely displayed to the public. Counted among one of the most recognizable images in the world, The Vitruvian Man seems puny at first sight. A single parchment of paper in a glass box if seen from a distance is quite unremarkable. But once you take a good look, the image will etch forever in your mind and the countless digital images you have seen of this man would never be able to do justice to the original.
+
+The exhibition had many famous paintings of Da Vinci on display. Conspicuously missing however was The Monalisa. Among all the paintings that I saw that day, two of them striked out for me. One was the ***La belle ferronniere*** and the other was ***John The Baptist*** (both originally displayed in the **Musee du Louvre** in Paris). The genius of Da Vinci is unquestionable, but the minute details that his brush has given to these two works is beyond description. There were also a lot of sketches made by Da Vinci among the exhibits, one in particular stuck me. It was a ***Portraint of an Old Man in Red Chalk***. The detailed portrait with all those flowing hairs and the beady eyes seemed surreal. It was only that day I realized why the world calls Da Vinci a *‘genius’*.
+
+The exhibition also had some works by other artists, mostly contemporaries of Da Vinci or his students. But the maestro’s work was evident among the others. It did not need a keen artistic eye to figure out which work was the maestro’s and which of the pupil’s. The exhibition was divided into ten different categories displaying different style of works by Da Vinci. There was also a portion of the exhibition devoted to some life-size models of the numerous inventions of Da Vinci, in his avatar as an engineer. That part was really exciting for me, having first learnt about the engineering skills of Da Vinci before his artistic ones. Another part of the exhibition was devoted to some modern depictions of Da Vinci’s works, including the coloured Monalisa by Andy Warhol.
+
+When it was time for me to leave, because of an evening train that I had to catch, I felt a tinge of sadness at leaving this hallowed exhibition and returning back to the world of living. I went in as an art virgin, I did not know what meant for a piece of art to be good, and I came back with a renewed sense of aesthetics and beauty. I came out a different man that evening, and vowed to see more of this genius’ works.
+
+The second opportunity to view some of Da Vinci’s works presented itself when I made a visit to Paris in August of this year, as a tourist. The list of things that I had to do in Paris included the Musee du Louvre at the top of it. Having previously read about the size of this museum, I was perfectly clear on the part of the museum that I had to see – the one that had The Monalisa! Upon arriving, we (I was with a friend) got the pleasant surprise that the entry was free for me, because I was a student (below 26 years) and residing in Europe. After getting lost for a while, we made it to the long hall whose walls adorned masterpieces by Da Vinci, Rembrandt, Renoir and many others.
+
+Three masterpieces of Da Vinci that I had seen earlier in Milan: John The Baptist, La belle ferronniere, the Annunciation greeted me like old friends. We saw The Madonna of the Rocks, Madonna and Saint Anne and many other great works of art. Although the goal was to see The Monalisa, it took a long while to see all of the other amazing pieces of art that were on display. The opening scenes of Dan Brown’s novel ‘*The Da Vinci Code*‘ played in my mind. I was actually standing in front of a painting that was very prominently mentioned in the book. And it took me a while to gasp at the significance of the place we were standing at, this was one of the most famous museums in the world!
+
+Slowly making our way among the hundreds of paintings by master artists that adorned the walls of the Louvre, we spied the exit to the room which had *La Joconde* (or, The Monalisa). Once I was inside the room, it was apparent that there was a celebrity inside that room. Unlike the other paintings, the Monalisa was not accessible from less than 6-10 feet of distance and it was inside a glass case. It was the only painting I had seen inside the museum which had it’s own wall and there were lots of people just trying to get a glimpse of this painting that has captivated the world for so many centuries. We inched forward little by little and were close enough to get a good view. That smile, those eyes that I had seen countless times in the internet and the TV were before me. I stood there for sometime among the crowds and took in the view. Once it had registered that there were other beautiful works in the same room, I made my way to view some of them. But the euphoria of seeing The Monalisa had still not left me. I felt pity for the paintings that hung beside the black lady. They were beautiful, masterpieces in their own right, but they were the most ignored paintings in the whole museum.
+
+Slowly, we made our way back from the Louvre and into the streets of Paris. I saw the big glass pyramids and thought for a while what I had seen. It was another afternoon of my life that I will never forget. Since then, I have had the chance to see works of Monet, Picasso, Klimt and Munch among others, but the feeling of those two afternoons spent with Da Vinci were very different. It was educative, entertaining and though-provoking. I did have a life-changing afternoon in Milan, it changed the way I see and appreciate beauty. Perhaps, it has made me a better man.
+
+***[This was submitted to an English daily based in Assam about a month back (at the time of writing), and I am yet to hear anything related to it. I think they are not going to publish it, so I posted it here because I think it would be a waste otherwise.]***
+
+***I am happy to report that they eventually published this piece.***
+
+*[There are no pictures from Milan as cameras were not allowed inside the exhibition halls.]*
+
+
diff --git a/_posts/2015-12-17-a-tale-of-downloading-songs.markdown b/_posts/2015-12-17-a-tale-of-downloading-songs.markdown
new file mode 100644
index 0000000000..b8c885d235
--- /dev/null
+++ b/_posts/2015-12-17-a-tale-of-downloading-songs.markdown
@@ -0,0 +1,16 @@
+---
+layout: post
+title: A tale of downloading songs
+subtitle: "How I changed my stance."
+comments: true
+background: '/img/bg-default.jpg'
+date: '2015-12-17 17:30:06'
+tags: random
+permalink: '/a-tale-of-downloading-songs/'
+---
+
+Recently I bought a smart-phone. Not just any smart-phone but an **iPhone 6s**. The rationale behind this purchase was: firstly, since it’s launch (when I was in school) I had promised myself I will buy one when I could afford one; secondly, the contract that I got was really lucrative, they were giving a Christmas bonus rate and it suited my budget pretty well. The previous smart-phones that I had owned were Sony Ericksson Xperia Mini Pro (also bought by my own income) which I had really liked, and a Moto E (which was pretty decent for it’s price range). Unfortunately, the Moto E’s display was damaged earlier this year and the Chinese display that I replaced it with did not work well at freezing temperatures. Hence the phone.
+
+But that is not the point of this post. To be frank, I had never ever even touched an iPhone before my purchase and needless to say it took me about an hour or so to get the hang of it. But what took me a long time to figure out was how to get my songs into the phone. For me, the day is incomplete without listening to songs by Zubeen Da (even now as I am typing this from an airport lounge I am listening to a lovely Bengali song by Zubeen Da), so I was anxious to get my collection into my iPhone. But it turns out that it is not very easy to do if you do not have a Mac (which I don’t, but I hope to purchase one someday). There were two options available to me that I liked: Apple’s own Music app and Spotify. I got a three month subscription for the Apple Music app and I could thus download all the songs that I wanted – LEGALLY. I had never before bought (so as to say) digital music before. It was taken for granted that there would always be mp3 files that I could transfer from my computer to my phone and vice versa. This was a new experience for me. The app lets me stream music as well, which thanks to my unlimited data plan works very well for me, as long as I am within Europe. It’s been a few weeks and I really like my experience so far, I have decided to pay for my music from now on. It is a small price to pay (9,99 Euros) for getting something legally and helping the artists in their efforts.
+
+This experience also reinforces my belief that we are all corrupt in some sense or the other. Corruption is not just stealing public money or not doing public work by the politicians. Every time we download a piece of music or video which is not free, we are stealing something that doesn’t belong to us. One step at a time I am trying to stop my contribution to such corruption. Last month, I also shifted to Netflix and now I do not stream any TV shows illegally unless it is something that I really want to see (I plan to stop completely in the future). Netflix is slightly cheaper if you want a single screen than the music app (7,99 Euros per month). But both of them allow unlimited streaming and that is pretty cool. As they say, *the journey of a thousand miles begins with a single step*. I have taken my step, I hope some day I will be able to traverse the whole distance.
diff --git a/_posts/2016-01-24-brilliant-blunders-a-brilliant-book.markdown b/_posts/2016-01-24-brilliant-blunders-a-brilliant-book.markdown
new file mode 100644
index 0000000000..43f8a7489e
--- /dev/null
+++ b/_posts/2016-01-24-brilliant-blunders-a-brilliant-book.markdown
@@ -0,0 +1,23 @@
+---
+layout: post
+title: 'Brilliant Blunders: A Brilliant Book'
+subtitle: "A short review."
+background: '/img/books.jpeg'
+comments: true
+date: '2016-01-24 18:53:33'
+tags: books
+permalink: '/brilliant-blunders-a-brilliant-book/'
+---
+
+
+Recently, I took a trip to India after 16 months. It was a chance to rejuvenate my time and energy with things that I loved to do with people that I loved. One of the things that I had planned to do on the trip was to read at least one good book. Over the years, my habit of reading books have been on the decline so much so that I had to make a special [web-page](http://homepage.univie.ac.at/manjil.saikia/books.html) just to encourage myself to add books on the read list of that web-page. My ‘book reading spree’ in India began from the Vienna International Airport where I bought a book and then at the Frankfurt International Airport where I bought another, and devoured a few pages of that book there. In anticipation of my visit home, I had ordered Mario Livio’s book ‘Brilliant Blunders’ online and was expecting it to wait for me at home. However, it arrived a little late and I neglected it for a week, after which I started to read this brilliant book.
+
+The book is about mistakes made by eminent scientists with enough background commentary to make anyone interested in science hooked to the book. Science, unlike many human pursuits is full of mistakes and dead ends. Even in my short stint as a graduate student so far, I have made many mistakes and I have also convinced myself that I had solved a particularly tacky problem only to realize in the shower that I was mistaken. History very rarely judges people who make mistakes lightly. This is true, more so in science perhaps than in any other field of study. Livio’s book is a brilliant portrayal of what makes even scientists of the stature of Einstein humane. The book consists of 11 chapters, with two chapters each devoted to one scientist and his mistake plus an additional introductory chapter. The scientists he choose in the book are Charles Darwin, Lord Kelvin, Linus Pauling, Fred Hoyle and Albert Einstein. All of them brilliant in their fields of work and all of them a household name in every scientists houses.
+
+There are already brilliant reviews of this book by [Carl Zimmer](http://www.nytimes.com/2013/06/09/books/review/brilliant-blunders-by-mario-livio.html?_r=0) and [Freeman Dyson](http://www.nybooks.com/articles/2014/03/06/darwin-einstein-case-for-blunders/) so I would not attempt to really analyze the book and offer my insights. I would just mention in passing why I thought the book was really ‘cool’. I mostly read scientific non-fiction and like to read popular science accounts on things that I have no particular expertise. This book provided me a really good opportunity to learn a lot of biology and physics which otherwise I would perhaps have not got a chance to read about. The book had a short biography of each scientist and some details about their most famous work. Then it went on to analyze the blunder that they committed and why the author thought they committed that blunder. In a very concise manner, Livio has given all the essential details anyone might need to understand at least in part what these brilliant scientists did and how they changed the course of modern history and science. The book will also encourage a practising scientist or mathematician to not be afraid of making mistakes, and also admitting one’s mistakes later when confronted.
+
+I had not read previously anything written by Livio, but after reading this book I want to take a shot at some of his other works. It turns out that Livio is himself a scientist of repute and is considered a wonderful orator of science. I am glad I had the chance to read this book.
+
+
+
+
diff --git a/_posts/2016-01-31-internet-and-delhi-airport.markdown b/_posts/2016-01-31-internet-and-delhi-airport.markdown
new file mode 100644
index 0000000000..baf47fe4bc
--- /dev/null
+++ b/_posts/2016-01-31-internet-and-delhi-airport.markdown
@@ -0,0 +1,21 @@
+---
+layout: post
+title: Internet and Delhi Airport
+date: '2016-01-31 17:33:43'
+tags: india travel
+subtitle: "Some thoughts on the pathetic internet in the Delhi Airport."
+background: '/img/unesco.jpg'
+comments: true
+permalink: '/internet-and-delhi-airport/'
+---
+
+
+Recently I was on a short trip to India and both my flights (inbound and outbound) were from the New Delhi International Airport, Terminal 3. A few years ago, when I had seen only airports in India I thought that the Delhi Airport must be one of the best in the world. How mistaken I was!! And I found this the hard way this time.
+
+I had some 8 hours to kill before my next flight to Assam after I landed at Delhi. I went ahead to the transfers section and when the police man saw my ticket he suggested that I pee before I enter the transfers section. He said that the section didn’t have any fucking toilets!! So, I decided to go to take the exit and re-enter the airport only to meet another police man who took a long and hard look at my ticket and made some faces and asked twice if I am going to the NorthEast. After I re-entered the airport I found that the toilets were after the security check and as my flight was some 7 hours later, the boarding passes were not being distributed then.
+
+Then I decided to do the only logical thing – surf the Internet and while away my time. This produced another difficulty. The wifi service at the airport provided only 30 minutes of free service, after which you had to buy access. This was the first taste of lousy internet in India for me after quite a while. I used the 30 minutes and then decided to buy some more time, but yes I could not use my European card to make the purchase. So, that’s how I spent 7 hours in the airport. Without internet and peeing for quite a while and then finally eating a tasty meal at KFC and boarding the flight.
+
+While returning, I knew the situation and so I checked in early this time and thought about using the free 30 minutes wifi. I switched on my phone, which had my European SIM inside. It showed Airtel and started functioning and I started browsing the internet. It was only after a while later that I realized I was using international data roaming and that was the most horrific realization ever! I switched off the phone and prayed that the bill is not too large.
+
+So finally, last week I got my bill and I used 44,50 Euros on roaming for just the little internet usage I had at the Delhi Airport. It was a shitty experience for me at the airport and now I can safely say that it is not the best airport in the world, whatever the hundreds of hoardings inside the airport might shout – I don’t buy it. The airport sucks.
diff --git a/_posts/2016-02-20-how-an-entire-nation-lost-its-shit-and-is-now-trying-to-get-it-back.markdown b/_posts/2016-02-20-how-an-entire-nation-lost-its-shit-and-is-now-trying-to-get-it-back.markdown
new file mode 100644
index 0000000000..d6ee8d6119
--- /dev/null
+++ b/_posts/2016-02-20-how-an-entire-nation-lost-its-shit-and-is-now-trying-to-get-it-back.markdown
@@ -0,0 +1,21 @@
+---
+layout: post
+title: How an entire nation lost it’s shit and is now trying to get it back?
+subtitle: Some thoughts on the JNU fiasco.
+background: '/img/bg-default.jpg'
+comments: true
+date: '2016-02-20 17:32:14'
+tags: india
+permalink: '/how-an-entire-nation-lost-its-shit-and-is-now-trying-to-get-it-back/'
+---
+
+For the last couple of days, everyone everywhere (at least all Indians on social media) have been fantasizing about one person – [Kanhaiya Kumar](http://t.umblr.com/redirect?z=https%3A%2F%2Fen.wikipedia.org%2Fwiki%2FKanhaiya_Kumar&t=MWYxNDBiNDZhYWUwODlkYjQ3ZGVkNjU5NTk3YmY4ODc5NzE4YjU0MSw0VjRsQzVPVA%3D%3D&b=t%3Alc4dFy-mVsG-Bcj7rRxdAQ&p=http%3A%2F%2Fkharkhowaoxomiya.tumblr.com%2Fpost%2F139660294700%2Fhow-an-entire-nation-lost-its-shit-and-is-now&m=1). The dude even got his own Wikipedia entry! Congrats man! If you go to the [talk page](http://t.umblr.com/redirect?z=https%3A%2F%2Fen.wikipedia.org%2Fwiki%2FTalk%3AKanhaiya_Kumar&t=ZGM1NzBkYjdiMzU2NzY5OGJhMmJiZmI2ODQ1ZTM3OTM4YWE2MTMyZSw0VjRsQzVPVA%3D%3D&b=t%3Alc4dFy-mVsG-Bcj7rRxdAQ&p=http%3A%2F%2Fkharkhowaoxomiya.tumblr.com%2Fpost%2F139660294700%2Fhow-an-entire-nation-lost-its-shit-and-is-now&m=1) you will see RSS activists trying to brand him a traitor there as well. But thankfully, Wikipedia is not like Indian media and the entry is pretty level-headed and unbiased.
+
+It all started when some news channels showed a video where Kanhaiya was allegedly making some anti-national remarks. All it took was a hour long show on prime time (have to think about what this word really means) and everyone lost their shit. The Home Minister tweeted stuff based on a parody account (Sir, there is a blue tick for a reason on Twitter, just saying), Times Now, Zee News and others castigated the person and branded him a traitor, activists hustled him in court and what not.
+
+But not once, did anyone decide to investigate properly what the matter really was. The Delhi Police slapped a sedition charge against Kanhaiya. The only good thing from this whole episode was perhaps increasing the vocabulary of an entire nation by one word – sedition. This continued for a week and then some people thought with reason and [wrote good stuff](http://t.umblr.com/redirect?z=http%3A%2F%2Fthewire.in%2F2016%2F02%2F19%2Fon-kanhaiya-it-is-time-to-stand-up-and-be-counted-22039%2F&t=NGNhYTRjM2M3ODdjMTBiY2E0MGJlMzkxYjM2ZDA1NGVmYjI1M2VjZiw0VjRsQzVPVA%3D%3D&b=t%3Alc4dFy-mVsG-Bcj7rRxdAQ&p=http%3A%2F%2Fkharkhowaoxomiya.tumblr.com%2Fpost%2F139660294700%2Fhow-an-entire-nation-lost-its-shit-and-is-now&m=1). The truth will be out and Kanhaiya will be released, if he is not then I will have really lost all my faith in Indian judiciary.
+
+But there are important pointers to be taken from this whole episode. Firstly, social media is a rat race, where everyone wants to prove themselves right and there is no way in heaven and earth by which you can convince someone that they are wrong in social media. Thank God, [I left Facebook](http://t.umblr.com/redirect?z=http%3A%2F%2Fblog.kharkhowa.com%2Fpost%2F135126070285%2Fgiving-up-on-facebook-and-other-such-bullshit&t=NDAyNDQ4MGEzMzVkOThhNzU5MDhhMzJkMmRlOTRkMDYxMTlkMzc2Yyw0VjRsQzVPVA%3D%3D&b=t%3Alc4dFy-mVsG-Bcj7rRxdAQ&p=http%3A%2F%2Fkharkhowaoxomiya.tumblr.com%2Fpost%2F139660294700%2Fhow-an-entire-nation-lost-its-shit-and-is-now&m=1) before all this. Secondly, Indian media is suffering from a very bad disease, and NDTV agrees as well. Last night, Ravish Kumar aired one of the best prime time shows that I have seen. The video is shared below. Please listen till the end, specially the poem. If that fails to move you then, I have also lost faith in you!
+
+VIDEO culture ‘ from some time now; partly due to the incessant posts on my Facebook timeline about how one type of activity or the other is directly against our ‘Indian culture ‘. Most of the articles that I have read so far on these issues tend to have a very straitjacketed approach and only highlight the viewpoint of the author (which I think is quite al right, up to a certain extend), and leave away anything against that viewpoint. I also feel, very often after reading these articles, that perhaps the author does not really understand how one defines ‘culture ‘. Even, I have not claimed to understand it, but from my limited knowledge I believe, the nature of the word ‘culture ‘ is dynamic. It is not a fixed entity which remains constant over time. Like everything else, it evolves. This, it seems is quite difficult for most of the people to comprehend, they tend to thing that culture is this fixed entity which no one has the right to change.
+
+I am not one to put out my views on social media, I have refrained on multiple occasions to speak out. But the whole paradigm of free speech has been brutally abused countless times, in the recent past. So, I thought, why not? The incident which has triggered this post is the recent issue with Zubeen Garg’s show at Noonmati. Most of you know about it, but to state it briefly: Zubeen was performing at a Bihu function, and he was singing a Hindi song when some of the organizers abruptly stopped him midway and asked him not to sing Hindi songs because it was against the tradition of the stage. Zubeen left midway after hurling at least one abuse. And lo and behold! The Facebook community of Assam had something to talk about for an entire day; some even now. This post is not in favour of either party, so please do not think that it’s intended objective is such.
+
+The concept of tradition , is unlike culture not dynamic in my view; at least not in the same sense. It is passed on from generation to generation, not only to instil itself into a new generation but also to evolve in a way that brings out the best in its objective. But, what I see is that people use these two terms: tradition and culture interchangeably most of the time. This can be excused up to a certain point, but later it trudges on towards blatant abuse in many instances. I have followed numerous traditions since my childhood, some even now. However, I have also given up many traditions, when, with the passage of time I realize it is not for me. It is not a bad idea to give up a tradition and pick up something better; no one wears a traditional Assamese attire for the whole year, trousers and shirts are much more comfortable for instance.
+
+Coming back to ‘culture’, I also feel that for majority of the people, culture is only about music, art, cinema and dance. They are not even aware that there can be a concept of ‘culture’ in technology, in mythology, in science and also in agriculture. This narrow attitude towards culture is brutal for a developing country like ours, more so for Assamese people. I have seen many people praise when a good song is released by a young musician; I have never seen anyone praise when a young student writes a research paper and have it published (my youngest collaborator from Assam, was at that time 17 years old ). Most of the time, this news is not even known. This is not the fault of the public, it is how we are taught to look at culture. A technologist, or an engineer, a lawyer, even a biologist is thought to have done almost nothing when it comes to preserving ‘culture’. But a singer, a musician, a film-maker is considered the sole bearer of the flag of ‘culture’. It is a bad precedent for the generations to follow, and it is something which if not changed will hamper the society as a whole, in the long run. Even ‘traditionally’ the superpowers now, most of them have had either an age of enlightenment or a scientific or industrial revolution. This has, so far not happened in India. Hankering on what we did, thousands of years ago, is just a poor reflection of the fact that maybe we are no longer capable of doing better things.
+
+I have been living in one of the most ‘cultural’ cities in the world, since almost two years now: Vienna. There is a famous quote by Karl Kraus which says “The streets of Vienna are paved with culture, the streets of other cities with asphalt. ” While, it might be true that Kraus really meant these words, it is also likely given his humour that he might be alluding to something totally different. But whatever may be the case, I tend to believe what Kraus has said. Vienna was an Imperial city, the capital of the Holy Roman Empire for a long time; so it is almost a given that it will be full of ‘culture’. No other city I have visited so far, except probably Paris would equal Vienna in its cultural richness.
+
+But where is the culture in Vienna? Is it only at the museums? Or at the café, where Freud used to drink coffee? No, it is everywhere . It has moved on to newer delights. People tend to have a relaxed attitude about this culture, but here truly you feel a change. The culture has evolved like it is supposed to. They are not pinning their hopes only on a musician, or maybe a singer; for them culture is what the great minds have taught them. I pass by a building almost everyday to work, where it is proudly mentioned that the physics faculty of our university was once housed at that spot, where legends like Schrödinger, Boltzmann, Mach, and many others studied or taught. This is for them, also a part of their rich cultural heritage. This aspect of cultural heritage is missing in India. The house where Ramanujan worked while he was in India, is not managed by the government, like it should; but by a private university. How many of us know that about 30 km from Silchar is a tea estate where Sir Roland Ross did some of his research? How many of us even know who Sir Ross was? Maybe, no one knows that his instruments have been preserved in that tea estate. Isn’t that also a part of our cultural heritage? The streets in Vienna are mostly named after it’s famous residents, as well as many others not even from Austria. Would it really hurt to name a street in Bhupen Hazarika’s honour at Tezpur? Or Narayanpur? Can we not have a street named after Mamoni Raisom Goswami at a central location in some town of Assam? I believe such things are also a major component of our cultural heritage.
+
+I have been to numerous museums all over Europe, all of them have been a learning experience. Contrast this to India, where even when we have a museum in almost all the districts of Assam, very few people know of its existence. The Sonitpur district museum had at some point some canons, which were displayed in a very haphazard way, I do not know if the situation has changed now. When I went to Poki, which is quite well kept; there was no one in the library to let me open the shelves and browse through some books. On a recent trip to New Delhi, I visited the tomb of a Mughal general, Adham Khan near the Qutb Minar. The structure was magnificent, but in a dilapidated condition. I understand both of these words mean quite different things, but that is what I felt. The tomb inside the structure was full of bird droppings, there were people spitting everywhere; is this how our culture is preserved? Shouldn’t the ASI or the government do something to preserve such an old structure from ruins? I have however had good experiences too, the Rashtrapati Bhawan museum is an excellent museum; except for their very disappointing virtual reality show. I would strongly recommend this museum to everyone. One museum, I would like to go to is the National Museum in New Delhi, maybe on my next trip to India.
+
+What is the point of this note? The point is, we do not even understand what the word ‘culture’ actually means; then how can we claim to understand Assamese culture or it’s superset of Indian culture. I am aware that there are some people who are quite proficient with these aspects, sadly not many of them are active on social media, and even if they were, would the trolls or bhakts or whatever one calls them, be able to understand and assimilate what the learned have to say? I have so far been led to believe that they would not.
+
+Coming back again to the incident which triggered this post, a sad thing which I have seen in Assam (at least in Tezpur) is that, there are numerous organizations, numerous societies and numerous groups, whose sole aim (not on paper, but in practise) is to do one thing, only one thing in the name of culture, and after that is done they sit back, relax and wait for the next year to do that same thing again. This is particularly true for the Bihu committees, I do not know about the Noonmati committee but I have never seen any Bihu committee in Tezpur do anything else, apart from organizing a Bihu function each year. Is that the only way one preserves our culture? I hope not.
+
+The last thing which comes to my mind is this, on a television news channel the person who was speaking on the microphone apart from Zubeen at Noonmati was explaining how they get their money. I now write from memory, I would be happy to be corrected if there has been a mistake. He said the budget is 20 lacs for the function, they have 300 permanent members and 100 or so beneficiaries. All the permanent members contribute 5000 rupees each for the function (comes to 15 lacs), the beneficiaries contribute bigger amounts, lets just assume they also contribute 5000 rupees each (comes to 5 lacs), then there are the sponsors. Simple math says the budget is lower than the amount collected. Where does the rest go? Do they also do something else to preserve our ‘culture’?
diff --git a/_posts/2017-10-26-dinosaurs.html b/_posts/2017-10-26-dinosaurs.html
deleted file mode 100644
index a85f4718bd..0000000000
--- a/_posts/2017-10-26-dinosaurs.html
+++ /dev/null
@@ -1,40 +0,0 @@
----
-layout: post
-title: "Dinosaurs are extinct today"
-subtitle: "because they lacked opposable thumbs and the brainpower to build a space program."
-date: 2017-10-26 23:45:13 -0400
-background: '/img/posts/01.jpg'
----
-
-Never in all their history have men been able truly to conceive of the world as one: a single sphere, a globe, having the qualities of a globe, a round earth in which all the directions eventually meet, in which there is no center because every point, or none, is center — an equal earth which all men occupy as equals. The airman's earth, if free men make it, will be truly round: a globe in practice, not in theory.
-
-Science cuts two ways, of course; its products can be used for both good and evil. But there's no turning back from science. The early warnings about technological dangers also come from science.
-
-What was most significant about the lunar voyage was not that man set foot on the Moon but that they set eye on the earth.
-
-A Chinese tale tells of some men sent to harm a young girl who, upon seeing her beauty, become her protectors rather than her violators. That's how I felt seeing the Earth for the first time. I could not help but love and cherish her.
-
-For those who have seen the Earth from space, and for the hundreds and perhaps thousands more who will, the experience most certainly changes your perspective. The things that we share in our world are far more valuable than those which divide us.
-
-The Final Frontier
-
-There can be no thought of finishing for ‘aiming for the stars.’ Both figuratively and literally, it is a task to occupy the generations. And no matter how much progress one makes, there is always the thrill of just beginning.
-
-There can be no thought of finishing for ‘aiming for the stars.’ Both figuratively and literally, it is a task to occupy the generations. And no matter how much progress one makes, there is always the thrill of just beginning.
-
-The dreams of yesterday are the hopes of today and the reality of tomorrow. Science has not yet mastered prophecy. We predict too much for the next year and yet far too little for the next ten.
-
-Spaceflights cannot be stopped. This is not the work of any one man or even a group of men. It is a historical process which mankind is carrying out in accordance with the natural laws of human development.
-
-Reaching for the Stars
-
-As we got further and further away, it [the Earth] diminished in size. Finally it shrank to the size of a marble, the most beautiful you can imagine. That beautiful, warm, living object looked so fragile, so delicate, that if you touched it with a finger it would crumble and fall apart. Seeing this has to change a man.
-
-To go places and do things that have never been done before – that’s what living is all about.
-
-Space, the final frontier. These are the voyages of the Starship Enterprise. Its five-year mission: to explore strange new worlds, to seek out new life and new civilizations, to boldly go where no man has gone before.
-
-As I stand out here in the wonders of the unknown at Hadley, I sort of realize there’s a fundamental truth to our nature, Man must explore, and this is exploration at its greatest.
-
-Placeholder text by Space Ipsum . Photographs by Unsplash .
diff --git a/_posts/2017-10-27-dreams.html b/_posts/2017-10-27-dreams.html
deleted file mode 100644
index d1dc4ae830..0000000000
--- a/_posts/2017-10-27-dreams.html
+++ /dev/null
@@ -1,39 +0,0 @@
----
-layout: post
-title: "The dreams of yesterday are the hopes of today and the reality of tomorrow."
-date: 2017-10-27 23:45:13 -0400
-background: '/img/posts/02.jpg'
----
-
-Never in all their history have men been able truly to conceive of the world as one: a single sphere, a globe, having the qualities of a globe, a round earth in which all the directions eventually meet, in which there is no center because every point, or none, is center — an equal earth which all men occupy as equals. The airman's earth, if free men make it, will be truly round: a globe in practice, not in theory.
-
-Science cuts two ways, of course; its products can be used for both good and evil. But there's no turning back from science. The early warnings about technological dangers also come from science.
-
-What was most significant about the lunar voyage was not that man set foot on the Moon but that they set eye on the earth.
-
-A Chinese tale tells of some men sent to harm a young girl who, upon seeing her beauty, become her protectors rather than her violators. That's how I felt seeing the Earth for the first time. I could not help but love and cherish her.
-
-For those who have seen the Earth from space, and for the hundreds and perhaps thousands more who will, the experience most certainly changes your perspective. The things that we share in our world are far more valuable than those which divide us.
-
-The Final Frontier
-
-There can be no thought of finishing for ‘aiming for the stars.’ Both figuratively and literally, it is a task to occupy the generations. And no matter how much progress one makes, there is always the thrill of just beginning.
-
-There can be no thought of finishing for ‘aiming for the stars.’ Both figuratively and literally, it is a task to occupy the generations. And no matter how much progress one makes, there is always the thrill of just beginning.
-
-The dreams of yesterday are the hopes of today and the reality of tomorrow. Science has not yet mastered prophecy. We predict too much for the next year and yet far too little for the next ten.
-
-Spaceflights cannot be stopped. This is not the work of any one man or even a group of men. It is a historical process which mankind is carrying out in accordance with the natural laws of human development.
-
-Reaching for the Stars
-
-As we got further and further away, it [the Earth] diminished in size. Finally it shrank to the size of a marble, the most beautiful you can imagine. That beautiful, warm, living object looked so fragile, so delicate, that if you touched it with a finger it would crumble and fall apart. Seeing this has to change a man.
-
-To go places and do things that have never been done before – that’s what living is all about.
-
-Space, the final frontier. These are the voyages of the Starship Enterprise. Its five-year mission: to explore strange new worlds, to seek out new life and new civilizations, to boldly go where no man has gone before.
-
-As I stand out here in the wonders of the unknown at Hadley, I sort of realize there’s a fundamental truth to our nature, Man must explore, and this is exploration at its greatest.
-
-Placeholder text by Space Ipsum . Photographs by Unsplash .
diff --git a/_posts/2017-10-28-exploration.html b/_posts/2017-10-28-exploration.html
deleted file mode 100644
index 22dcf49323..0000000000
--- a/_posts/2017-10-28-exploration.html
+++ /dev/null
@@ -1,40 +0,0 @@
----
-layout: post
-title: "Failure is not an option"
-subtitle: "Many say exploration is part of our destiny, but it’s actually our duty to future generations."
-date: 2017-10-28 23:45:13 -0400
-background: '/img/posts/03.jpg'
----
-
-Never in all their history have men been able truly to conceive of the world as one: a single sphere, a globe, having the qualities of a globe, a round earth in which all the directions eventually meet, in which there is no center because every point, or none, is center — an equal earth which all men occupy as equals. The airman's earth, if free men make it, will be truly round: a globe in practice, not in theory.
-
-Science cuts two ways, of course; its products can be used for both good and evil. But there's no turning back from science. The early warnings about technological dangers also come from science.
-
-What was most significant about the lunar voyage was not that man set foot on the Moon but that they set eye on the earth.
-
-A Chinese tale tells of some men sent to harm a young girl who, upon seeing her beauty, become her protectors rather than her violators. That's how I felt seeing the Earth for the first time. I could not help but love and cherish her.
-
-For those who have seen the Earth from space, and for the hundreds and perhaps thousands more who will, the experience most certainly changes your perspective. The things that we share in our world are far more valuable than those which divide us.
-
-The Final Frontier
-
-There can be no thought of finishing for ‘aiming for the stars.’ Both figuratively and literally, it is a task to occupy the generations. And no matter how much progress one makes, there is always the thrill of just beginning.
-
-There can be no thought of finishing for ‘aiming for the stars.’ Both figuratively and literally, it is a task to occupy the generations. And no matter how much progress one makes, there is always the thrill of just beginning.
-
-The dreams of yesterday are the hopes of today and the reality of tomorrow. Science has not yet mastered prophecy. We predict too much for the next year and yet far too little for the next ten.
-
-Spaceflights cannot be stopped. This is not the work of any one man or even a group of men. It is a historical process which mankind is carrying out in accordance with the natural laws of human development.
-
-Reaching for the Stars
-
-As we got further and further away, it [the Earth] diminished in size. Finally it shrank to the size of a marble, the most beautiful you can imagine. That beautiful, warm, living object looked so fragile, so delicate, that if you touched it with a finger it would crumble and fall apart. Seeing this has to change a man.
-
-To go places and do things that have never been done before – that’s what living is all about.
-
-Space, the final frontier. These are the voyages of the Starship Enterprise. Its five-year mission: to explore strange new worlds, to seek out new life and new civilizations, to boldly go where no man has gone before.
-
-As I stand out here in the wonders of the unknown at Hadley, I sort of realize there’s a fundamental truth to our nature, Man must explore, and this is exploration at its greatest.
-
-Placeholder text by Space Ipsum . Photographs by Unsplash .
diff --git a/_posts/2017-10-29-prophecy.html b/_posts/2017-10-29-prophecy.html
deleted file mode 100644
index ab1c4d6122..0000000000
--- a/_posts/2017-10-29-prophecy.html
+++ /dev/null
@@ -1,40 +0,0 @@
----
-layout: post
-title: "Science has not yet mastered prophecy"
-subtitle: "We predict too much for the next year and yet far too little for the next ten."
-date: 2017-10-29 23:45:13 -0400
-background: '/img/posts/04.jpg'
----
-
-Never in all their history have men been able truly to conceive of the world as one: a single sphere, a globe, having the qualities of a globe, a round earth in which all the directions eventually meet, in which there is no center because every point, or none, is center — an equal earth which all men occupy as equals. The airman's earth, if free men make it, will be truly round: a globe in practice, not in theory.
-
-Science cuts two ways, of course; its products can be used for both good and evil. But there's no turning back from science. The early warnings about technological dangers also come from science.
-
-What was most significant about the lunar voyage was not that man set foot on the Moon but that they set eye on the earth.
-
-A Chinese tale tells of some men sent to harm a young girl who, upon seeing her beauty, become her protectors rather than her violators. That's how I felt seeing the Earth for the first time. I could not help but love and cherish her.
-
-For those who have seen the Earth from space, and for the hundreds and perhaps thousands more who will, the experience most certainly changes your perspective. The things that we share in our world are far more valuable than those which divide us.
-
-The Final Frontier
-
-There can be no thought of finishing for ‘aiming for the stars.’ Both figuratively and literally, it is a task to occupy the generations. And no matter how much progress one makes, there is always the thrill of just beginning.
-
-There can be no thought of finishing for ‘aiming for the stars.’ Both figuratively and literally, it is a task to occupy the generations. And no matter how much progress one makes, there is always the thrill of just beginning.
-
-The dreams of yesterday are the hopes of today and the reality of tomorrow. Science has not yet mastered prophecy. We predict too much for the next year and yet far too little for the next ten.
-
-Spaceflights cannot be stopped. This is not the work of any one man or even a group of men. It is a historical process which mankind is carrying out in accordance with the natural laws of human development.
-
-Reaching for the Stars
-
-As we got further and further away, it [the Earth] diminished in size. Finally it shrank to the size of a marble, the most beautiful you can imagine. That beautiful, warm, living object looked so fragile, so delicate, that if you touched it with a finger it would crumble and fall apart. Seeing this has to change a man.
-
-To go places and do things that have never been done before – that’s what living is all about.
-
-Space, the final frontier. These are the voyages of the Starship Enterprise. Its five-year mission: to explore strange new worlds, to seek out new life and new civilizations, to boldly go where no man has gone before.
-
-As I stand out here in the wonders of the unknown at Hadley, I sort of realize there’s a fundamental truth to our nature, Man must explore, and this is exploration at its greatest.
-
-Placeholder text by Space Ipsum . Photographs by Unsplash .
diff --git a/_posts/2017-10-30-heartbeats.html b/_posts/2017-10-30-heartbeats.html
deleted file mode 100644
index fbec97815c..0000000000
--- a/_posts/2017-10-30-heartbeats.html
+++ /dev/null
@@ -1,39 +0,0 @@
----
-layout: post
-title: "I believe every human has a finite number of heartbeats. I don't intend to waste any of mine."
-date: 2017-10-30 23:45:13 -0400
-background: '/img/posts/05.jpg'
----
-
-Never in all their history have men been able truly to conceive of the world as one: a single sphere, a globe, having the qualities of a globe, a round earth in which all the directions eventually meet, in which there is no center because every point, or none, is center — an equal earth which all men occupy as equals. The airman's earth, if free men make it, will be truly round: a globe in practice, not in theory.
-
-Science cuts two ways, of course; its products can be used for both good and evil. But there's no turning back from science. The early warnings about technological dangers also come from science.
-
-What was most significant about the lunar voyage was not that man set foot on the Moon but that they set eye on the earth.
-
-A Chinese tale tells of some men sent to harm a young girl who, upon seeing her beauty, become her protectors rather than her violators. That's how I felt seeing the Earth for the first time. I could not help but love and cherish her.
-
-For those who have seen the Earth from space, and for the hundreds and perhaps thousands more who will, the experience most certainly changes your perspective. The things that we share in our world are far more valuable than those which divide us.
-
-The Final Frontier
-
-There can be no thought of finishing for ‘aiming for the stars.’ Both figuratively and literally, it is a task to occupy the generations. And no matter how much progress one makes, there is always the thrill of just beginning.
-
-There can be no thought of finishing for ‘aiming for the stars.’ Both figuratively and literally, it is a task to occupy the generations. And no matter how much progress one makes, there is always the thrill of just beginning.
-
-The dreams of yesterday are the hopes of today and the reality of tomorrow. Science has not yet mastered prophecy. We predict too much for the next year and yet far too little for the next ten.
-
-Spaceflights cannot be stopped. This is not the work of any one man or even a group of men. It is a historical process which mankind is carrying out in accordance with the natural laws of human development.
-
-Reaching for the Stars
-
-As we got further and further away, it [the Earth] diminished in size. Finally it shrank to the size of a marble, the most beautiful you can imagine. That beautiful, warm, living object looked so fragile, so delicate, that if you touched it with a finger it would crumble and fall apart. Seeing this has to change a man.
-
-To go places and do things that have never been done before – that’s what living is all about.
-
-Space, the final frontier. These are the voyages of the Starship Enterprise. Its five-year mission: to explore strange new worlds, to seek out new life and new civilizations, to boldly go where no man has gone before.
-
-As I stand out here in the wonders of the unknown at Hadley, I sort of realize there’s a fundamental truth to our nature, Man must explore, and this is exploration at its greatest.
-
-Placeholder text by Space Ipsum . Photographs by Unsplash .
diff --git a/_posts/2017-10-31-man-must-explore.html b/_posts/2017-10-31-man-must-explore.html
deleted file mode 100644
index fdf0204e6a..0000000000
--- a/_posts/2017-10-31-man-must-explore.html
+++ /dev/null
@@ -1,40 +0,0 @@
----
-layout: post
-title: "Man must explore, and this is exploration at its greatest"
-subtitle: "Problems look mighty small from 150 miles up"
-date: 2017-10-31 10:45:13 -0400
-background: '/img/posts/06.jpg'
----
-
-Never in all their history have men been able truly to conceive of the world as one: a single sphere, a globe, having the qualities of a globe, a round earth in which all the directions eventually meet, in which there is no center because every point, or none, is center — an equal earth which all men occupy as equals. The airman's earth, if free men make it, will be truly round: a globe in practice, not in theory.
-
-Science cuts two ways, of course; its products can be used for both good and evil. But there's no turning back from science. The early warnings about technological dangers also come from science.
-
-What was most significant about the lunar voyage was not that man set foot on the Moon but that they set eye on the earth.
-
-A Chinese tale tells of some men sent to harm a young girl who, upon seeing her beauty, become her protectors rather than her violators. That's how I felt seeing the Earth for the first time. I could not help but love and cherish her.
-
-For those who have seen the Earth from space, and for the hundreds and perhaps thousands more who will, the experience most certainly changes your perspective. The things that we share in our world are far more valuable than those which divide us.
-
-The Final Frontier
-
-There can be no thought of finishing for ‘aiming for the stars.’ Both figuratively and literally, it is a task to occupy the generations. And no matter how much progress one makes, there is always the thrill of just beginning.
-
-There can be no thought of finishing for ‘aiming for the stars.’ Both figuratively and literally, it is a task to occupy the generations. And no matter how much progress one makes, there is always the thrill of just beginning.
-
-The dreams of yesterday are the hopes of today and the reality of tomorrow. Science has not yet mastered prophecy. We predict too much for the next year and yet far too little for the next ten.
-
-Spaceflights cannot be stopped. This is not the work of any one man or even a group of men. It is a historical process which mankind is carrying out in accordance with the natural laws of human development.
-
-Reaching for the Stars
-
-As we got further and further away, it [the Earth] diminished in size. Finally it shrank to the size of a marble, the most beautiful you can imagine. That beautiful, warm, living object looked so fragile, so delicate, that if you touched it with a finger it would crumble and fall apart. Seeing this has to change a man.
-
-To go places and do things that have never been done before – that’s what living is all about.
-
-Space, the final frontier. These are the voyages of the Starship Enterprise. Its five-year mission: to explore strange new worlds, to seek out new life and new civilizations, to boldly go where no man has gone before.
-
-As I stand out here in the wonders of the unknown at Hadley, I sort of realize there’s a fundamental truth to our nature, Man must explore, and this is exploration at its greatest.
-
-Placeholder text by Space Ipsum . Photographs by Unsplash .
diff --git a/_posts/2018-03-18-a-star-has-extinguished-personal-reflections-on-stephen-w-hawking.markdown b/_posts/2018-03-18-a-star-has-extinguished-personal-reflections-on-stephen-w-hawking.markdown
new file mode 100644
index 0000000000..9f0419366a
--- /dev/null
+++ b/_posts/2018-03-18-a-star-has-extinguished-personal-reflections-on-stephen-w-hawking.markdown
@@ -0,0 +1,25 @@
+---
+layout: post
+title: "A Star Has Extinguished: Personal Reflections on Stephen W. Hawking"
+subtitle: "Reflections on Hawking's death."
+comments: true
+mathjax: true
+permalink: '/a-star-has-extinguished-personal-reflections-on-stephen-w-hawking/'
+background: '/img/research.jpeg'
+date: '2018-03-18 22:10:31'
+tags: icons
+---
+
+$\pi$ Day, for me, is a day when I am happy. But, this year it was different. I woke up to a text from a friend saying Stephen Hawking is no more. I quickly looked at the news and confirmed that he was correct. It seemed as if, a very personal loss has occured. I had never met Professor Hawking, never have I ever been in the same city as he, but I could feel a tremendous pain at his demise. I am sure, this feeling was shared by so many others. Stephen William Hawking, touched many lives: as a scientist, he was the most well known physicist alive; as a science communicator he was unparalleled in capturing the public imagination; as a public spokesperson, he was a hero for all people with physical disabilities. He donned several hats with equal composure and wit. His was a life made for the history books.
+
+[Many people](https://www.theguardian.com/science/2018/mar/14/stephen-hawking-obituary), far more knowledgeable than I, [have written about him](https://www.cam.ac.uk/stephen-hawking-an-appreciation-by-lord-martin-rees), and I cannot even attempt to add anything meaningful that has not already been said. So, I will just write down my personal reflections on the life of Professor Hawking and how he inspired a young boy in India, when there was very little inspiration in his life. I do not remember when I first heard his name, but I remember the context. As for most of us, the first time I heard about Professor Hawking was through his book *A Brief History of Time*, I still remember reading my copy of his book with it’s iconic cover over my winter vacations when I was in school. It was the first time, I learned about space-time curvature, and tried to see it for myself by doing experiments with balls and sheets of clothes at home. That yellow covered book is still there in my bookshelf back home, but sadly, I have not gone back to give it another read. I did not understand everything that was written in that book at that time, but it inspired me to look into the big questions all around us.
+
+I have several more books by Professor Hawking, some of which I have read in it’s entirety; some of which are too advanced for me, even with a basic understanding of mathematics of physics, right now. Professor Hawking, showed me a world, which I will never forgot, which I did not even know existed. His book made it clear to me, that mathematics was very essential if one wanted to know how nature works. At that time, I wanted to be an astrophysicist, but events happened which propelled me into mathematics. Nevertheless, the book was an eye opener, and it gave me courage and confidence that even I could try to resolve some mysteries of mathematics and nature. If a man, who was wheel chair bound could be the most famous living physicist, then why not anyone else aspire to emulate him.
+
+Since school, I have had courses in special and general relativity, thermodynamics and my work is tangentially related to statistical physics; I now have a much better understanding of the science that Professor Hawking did, and can appreciate it for it’s own beauty. In the academic year 2014-15, I was a student at The Abdus Salam International Centre for Theoretical Physics in Trieste, Italy. Our institute had a black board in the lobby, where the most famous equations from millenniums of physics knowledge were written down, and which no one erased, probably out of respect for these great men and women. Along with several other famous equations, formulated by giants of science like Sir Issac Newton, James Clark Maxwell and Albert Einstein, was the famous equation by Professor Hawking on black holes. I cannot even estimate the number of times I have stared into that board while sipping a cup of coffee. It felt very real, at that time, and even now. Professor Hawking was awarded the Dirac Medal by our institute several years earlier, and I can claim to have tread at least some steps that this great man had treaded.
+
+Everything I have done so far, can be traced back to two incidents from my childhood. The first, I remember vividly my father reading out to me an article about Archimedes in an Assamese daily. It was the first time, I realized how powerful mathematics really was; imagine a man burning down numerous ships with a knowledge of how optics works and the geometry behind it. The second, was a person who told me that even I could be a scientist, when I was about 8 or 9 years old. I do not remember who that person was, but I remember him giving me a book about science and urging me to aspire to be a scientist. That was the first book I read, which mentioned black holes, Big Bang, and what not. To him, and to my father I owe more than anyone else for what I have become. These episodes propelled my interest in science, and that is how I came to know about Professor Hawking. I count him, Richard Feynman, S. Ramanujan and Evariste Galois to be my heroes. It is very sad for me, that I lost one of my heroes. His deficit in this world probably never be fulfilled.
+
+It is also strange, how I vividly remember the opening of his book, he speaks about a lady who says that the earth is supported by turtles all the way down. Every time I see a turtle, I am reminded of that book and the many happy days I spent trying to understand it. Professor Hawking was a living legend, and my words will probably be lost in this sea of information. But, it is my humble tribute to the person who shaped some parts of our lives in some way, be it through his science, his compassion, or his tremendous ability to persevere. He will stay forever in the heart and the mind of that young boy who had to save a lot of money to buy his book; and also in the heart and mind of this person writing now, who knows and understands a tiny bit of what Professor Hawking did. Truly, a shining star has been extinguished from our lives.
+
+
diff --git a/_posts/2018-07-06-the-allure-of-books.markdown b/_posts/2018-07-06-the-allure-of-books.markdown
new file mode 100644
index 0000000000..99c8ad7648
--- /dev/null
+++ b/_posts/2018-07-06-the-allure-of-books.markdown
@@ -0,0 +1,27 @@
+---
+layout: post
+title: "The Allure of Books"
+subtitle: "Why and how I love my books?"
+background: '/img/books.jpeg'
+comments: true
+permalink: '/the-allure-of-books/'
+date: '2018-07-06 21:29:02'
+tags: books
+---
+
+For as long as I can remember, I have been a voracious reader. The habit somehow dropped in my university years for a variety of reasons, but I have never felt out of place with a book on my hand. Last year, I read 40 books and this year I have read 22 books so far. I don't compain about those numbers. (See [this link](/books/) for all the books I have read since August 2014.)
+
+There was a time when I did not have enough money on my hands to buy all the books I wanted, and then I discovered the magic of old book stores. There is something in the air of old book stores, the smell of chlorine (from the old book pages), and the layer of dust one has to remove from a book to glimpse it's cover and then finally finding something that you really want to buy. That is the stuff of magic! The added benefit of being low priced was a boon to the teenager in me with very little money. My favourite haunt was a tiny book shop in Tezpur which was quite well hidden, yet it was still in plain sight. The book store was located in a slope on a road, where no one usually stopped, everyone went uphill to reach the traffic signal just 100 metres or so away. Once, I discovered that place, I would go there as often as I could, even when I didn't have the money to buy books. The owner became a friend and he would keep titles for me, which he thought I would like to read. Now, the store still exists in my home town - Tezpur, but at a different location. Unfortunately, I have not been there since it changed location.
+
+After I came to Europe in 2014, I bought the cliched book of Salman Rushdie, which was banned in India. I could not read through the whole book and left midway. The book still lies in my bookshelf with the hope that I will read it in the future. That was the beginning of my book buying spree, and I have literally spend at least a couple of thousands of euros on books since then. In 2015, I came to Vienna and finally I had all the money I needed to buy almost any book I wanted too. It turned out that Amazon Germany had great deals on used books, some of which were really collecors items, and every month since the end of 2015, I have been buying more books then I can read. I now have several out of print books, which makes a great addition to any book lovers' stock, as well as many first edition mint condition books. The latest book that has arrived from Amazon Germany in a book about the Tata Institute of Fundamental Research in India, with an unexpected author's signature on the first page.
+
+It was in Vienna, that I discovered the European antique shops, which among other things sold old books. Most of these books were in a language I could not read or understand, but every once in a while I chanced upon an English title, which beckoned to me. In these old bookstores of Vienna, of Heidelberg and in Lyon I bought mint condition first editions of Graham Greene, William Faulkner and Nicholas Bourbaki (in the original French First Edition, surely a collectors item).
+
+The allure of books is somewhat unexplainable. My sizeable stock of books in my Vienese apartment is always a point of query for visitors; they ask me if I have read all of them. Of course, I have not. But, that is beside the point. As the great Italian writer, Umberto Eco mentions, a personal library is a thing of joy, and is a tool for research. It is not necessary that one should read everything, but it is necessary that one has the eagerness to read as many as one could. If someone asks me the advantages of the scientific revolution in Europe, or the demise of the Mughal Empire in India; I would be able to answer her after I have read some of the books in my collection. That alone, for me is reason enough for having a personal library.
+
+During the academic year of 2014-15 I was at the International Centre of Theoretical Physics, in Trieste, Italy and I read lot of books from the amazing library the institute has. One book that I picked up was about John Nash, and in the first page itself there was a message of John Nash, written when he had visited the institute in 2004. Imagine the ghosebumps a book lover would feel in such a moment. Once, I also happened to pick up a book which was last borrowed by Abdus Salam, the founder of the institute and a Nobel Laureate. Books are surely a testament of history, and I have had several episodes which verify that hypothesis. The love of books is just insatiable and probably life-long.
+
+Everytime I look at my book shelf, I see the used book from the 1980s about Vincent van Gogh gifted to a Scottish couple, I see the used book from Bristol Public Library which was a pleasant read; I also see many books picked up from my several trips to books stores in Delhi with unique memories assoiated with each of them, I further see the signed copies of books by Shashi Tharoor, Dana Randall, Manu Joseph, and many others; and I feel that I am living a part in the history of books. I cannot imagine that I will ever be away from books and the allure of books would forever remain with me. The ultimate dream is to own a house with a sizeable library, maybe someday that will also happen and there will be a different blog post. :)
+
+
+
diff --git a/_posts/2018-09-07-teachers-day.md b/_posts/2018-09-07-teachers-day.md
new file mode 100644
index 0000000000..0d579d7971
--- /dev/null
+++ b/_posts/2018-09-07-teachers-day.md
@@ -0,0 +1,30 @@
+---
+layout: post
+title: "Some Thoughts on Teachers' Day in India"
+subtitle: "With apologies for a late post!"
+date: 2018-09-07
+comments: true
+background: '/img/bg-default.jpg'
+tags: india
+permalink: '/some-thoughts-on-teachers-day-in-india/'
+---
+September 5th is celebrated as Teachers' Day in India, in honour of Dr. Sarvapalli Radhakrishnan, the first vice-president of India and the second President of India. He was, according to many an exemplary teacher; but this post is not about him. I cannot claim to have much knowledge about the philoshophy of Dr. Radhakrishnan to justify myself. This post is about my teachers.
+
+I have had several great teachers, about whom I wish to speak in this post. I have long since given up wishing them over phone calls on teachers' day. This is not because of some innate feeling to become aloof, but because I feel that a teacher does not expect such a wish. Some may, but not all. I do not, also, give updates on social media eulogizing my teachers on this day. Perhaps, I am a bit cynical and non-social in not doing this, but I thought I would write a blog post about the teachers I have had so far.
+
+The very first teacher who made a mark in me was my father. It was not intentional on his part. When I was about 12 yeaes old, my father read to me the story of Archimedes, which was published in an Assamese language daily. Archimedes was a mathematician of antiquity, whose claim to fame, among other things was Archimedes' principle which roughly states that the upward buoyant force that is exerted on a body immersed in a fluid, whether fully or partially submerged, is equal to the weight of the fluid that the body displacesand acts in the upward direction at the center of mass of the displaced fluid. However, this was not what caught my attention. The fact that (probably an apocypha) Archimedes used mathematics to destroy enemy battle ships was something that my young mind latched onto. That was the first time I could feel that mathematics was something that had applications, and a master mathematician could overdo even an enemy warship. For this story, I will be ever thankful to my father. He does not yet realize, how much this meant to me. I must also mention, my monther and my grandmother who took a special interest in my learning. I no longer believe in their methods, but I think they did help me in becoming who I am today.
+
+The second great teacher I have had, was an unknown colleague of my father, who was visiting our home in a party. He asked me, what I wanted to become when I grew up; this was a very normal question in India of that time, probably even today. I replied that I wanted to be a doctor. The unknown man, patiently exlplained to me what a scientist was, and suggested that I might try to become a scientist, instead of a doctor; I have never looked back. He gave me a gift, and said that inside there was something which might help me in achieveing that feat. When he left, and I opened the gift and saw that among other things there was a book called 'Tell Me Why?', which was a collection of articles written in the style of questions and answers. It was a great gift and I spent so many hours immersed in that book, learning so many new things. That was my first experience in knowing something that my peers didn't. Unfortunately, I do not know who that person was, neither can my parensts remember him. But, to him, I owe a debt which I cannot describe here.
+
+The third great teacher that I had was Baruah Sir. He was a friend of my father's and he used to come to our house when I was 15 years old and teach me science and mathematics. he might not have realized it at that point, but I was in awe of him. He could answer every question in science that I had, and even went beyond my syllabus. In three months (by the end of April) he finished my whole syllabus of mathematics and science. He did not force anything on me. I was happy to complete the syllabus, and that habit stayed with me until I went to the university. I no longer cared what my syllabus was, and was only focused on learning more. That gave me an impetus to read more and I was not afraid to look into university textbooks when I was in school. I would really like to meet him again and say thanks, which the 15 year old in me could not muster up.
+
+There comes a time in your life, when you are completely dazed by a teacher. For me it was Professor Mangesh B. Rege. I first met him, when I was finishing my class 8. Ever since then, I have had no doubt that he is a great teacher. He coaxed me, and tried to instill some discipline in a wayward student. He did not do this to me alone, he has done this several times over, in his long and distinguished career. It would take a complete blog post to mention what he means to me, but he was the first person who showed me the true beauty of mathematics, by means of several books which were not available to me. I gave my first mathematical talk on his invitation, to an outstanding audience. I first had my experience of teaching mathematics at his invitation. The list will no doubt go on. I cannot express in words my gratitude to this great man. In my subsequent dealings, I have tried to keep in mind the several lessons that I learnt from him.
+
+All of the teachers that I have mentioned by name, should be complimented by several others. In school, Mufty Sir told me things which seemed too good to be true. I went back home and tried to make sense of what he said. Now, I realize that he was talking about the mathematical concepts of fields to me when I was in Class 9; I am grateful to him for that. Dr. Alok Goswami is a role model for me; he never once asked me what I have done in the two years that I studied with him. He belived in me, and I now know what that means. Abul Hussain taught me many things during the two years in school I studied with him. The most important thing he taught me was that a good teacher can go to several degrees of lengths to motivate a good student. For that, I am always grateful.
+
+I have had several teachers whom I had not met when I learnt from them. The foremost was Dr. Dilip Kumar Sharma of Cotton College. He wrote several outstanding articles in popular mathematics (in Assamese) and I was lucky to read those. He also patiently answered several phonecalls from an unknown school student enquiring where he might buy the books that he wrote. Such selfless attitude and help, I have rarely seen. I met him later and my respect for him grew many folds after that.
+In my college and university life, I have had several great teachers. I would be remiss if I do not mention some of them. Professor Nayandeep Deka Baruah, gave me so much of his time when I was in school, and so patiently encouraged me. I will always remain in debt to his gratitude. Professor Sujatha Ramdorai took a special interest and gave me so much of her time, that I feel I do not deserve it. During my PhD, I have had the great pleasure of working under Professor Ilse Fischer, who has taught me many things without mentioning them in reality. A better description of that would be forthcoming in a year or so.
+
+When I was at the university, I understood what good peers meant. I did not have peers in school who could understand what I wanted to do or whose interests aligned with me. At the university, I met Madhurrya P. Talukdar, and we have been friends ever since. He has taught me many things, but the one thing that I won't even forget is that one must always follow one's dream no matter how hard it seems. I spent so many happy days with him during my five years in the university, that it seems to be a lifetime. I am glad to call him my friend and teacher.
+
+To all of the people mentioned above; and everyone else who taught me, I wish them a happy teachers' day; not just on the 5th of September, but everyday. I have in my mind so many other people, but I leave it for the next year. Thank you so much for teaching me.
diff --git a/_posts/2018-09-13-new-blog.md b/_posts/2018-09-13-new-blog.md
new file mode 100644
index 0000000000..c9ddc62d7f
--- /dev/null
+++ b/_posts/2018-09-13-new-blog.md
@@ -0,0 +1,23 @@
+---
+layout: post
+title: "Why I shifted from Wordpress to Ghost and then finally to Jekyll?"
+subtitle: "The evolution of the website."
+comments: true
+background: '/img/bg-default.jpg'
+date: 2018-09-13
+tags: random
+permalink: '/why-i-shifted-from-wordpress-to-ghost-and-then-finally-to-jekyll/'
+---
+
+I started this website long back, first in a different domain, using Wordpress. The current domain is about 6 years old, and was recently using Ghost as the backend. This was after much experimentation with several CMSes like Wordpress, Joomla and even Drupal. However, I was never happy with any one of the CMSes. With [Ghost](https://ghost.org), I finally had a solid blogging platform with almost zero frills. But I was still paying some amount of money to run the server.
+
+And then, I decided to use Jekyll.
+
+It was a very easy choice. First, Jekyll, like Ghost can be updated using markdown. It is a good platform and has lot of customization oppurtunities. But, the most important factor was that Github pages uses Jekyll, and one could in principle host the website for free on Github. That is what I decided to do, and the finished product is this website.
+
+I was happy with Wordpress, I still run [Gonit Sora](https://gonitsora.com) on Wordpress. But, it is too much for a personal blog which in any case does not receive much vists, like the present one. So, I decided to shift to Ghost, sometime this year. I learnt a little about Ghost and then deployed one on a server hosted in Digital Ocean. All was well, until Ghost released Ghost 2.0. Always eager to try out new things I decided to upgrade my Ghost installation. The editor was supposed to be better, but I did not like it, over the old one. The added difficulty of no mobile support, made the decision easier for me to shift entirely to Jekyll.
+
+I looked up Jekyll over the last two weeks and experimented with a lot of themes and customizations, until I finally found a
+good theme to use on this website. It was a matter of converting all my Ghost posts into markdown (luckily I also kept a separate static version of the website in my computer, and would from time to time push the whole thing using git). Once, this was done, the rest of the work in formatting the content took about 2 hours. There is a good online community of Jekyll users and the documentation is quite handy. I think, I have now found what I was looking for.
+
+There are still some tweaks left to be brushed in the website, but for now the final product seems to me satisfactory. I would like to hear comments if any one has, for suggestions or improvements. You could also directly suggest me edits from the Github repository where this website is hosted.
diff --git a/_posts/2018-10-15-bidexot-apun-manuh.md b/_posts/2018-10-15-bidexot-apun-manuh.md
new file mode 100644
index 0000000000..c023323d3e
--- /dev/null
+++ b/_posts/2018-10-15-bidexot-apun-manuh.md
@@ -0,0 +1,87 @@
+---
+layout: post
+title: "Bidexot Apun Manuh"
+subtitle: "Asom Milon 2018 at Sparbach, Austria."
+comments: true
+background: '/img/poster.jpg'
+date: 2018-10-15
+tags: travel assam india
+permalink: '/bidexot-apun-manuh-asom-milon-austria/'
+---
+
+*Bidexot Apun Manuh* is a very famous Assamese song, sung by Saju for the television series of the same name. I thought for a while what would be the best English translation and somehow I failed to come up with one which would best express the feeling of the Assamese original. *Bidexot Apun Manuh* means *own people abroad*, if it is translated literally, but for someone who has stayed abroad for an extended period of time, it means a whole lot more. The feeling of belongingness, of the camradarie or even the feeling of friendship is quite different with your own than with people from some other community. This is not a nationalistic thought, it is but what human nature is. We do tend to get pulled by our common roots. I did not feel this to such an extent as I have felt it in the last two days (12-14 October), when I attended the annual get together of the members of the Assamese community residing in mainland Europe. If I were to describe the feeling I had after I attended the get together, it would be ***overwhelmed***. The word might mean many things, but I was really overwhelmed by the love that everyone had for everyone present, I was overwhelmed by the feeling of a community in getting everything done and I was overwhelmed by seeingly unknown people merge together and develop a friendship which I have very rarely seen.
+
+This time, the get together was held for the first time outside Germany; on the foothills of the *Wienerwald* (the Vienna woods), at a small village in Austria called *Sparbach*. I am happy that it was in Austria, for several reasons. Perhaps, the first reason would be selfish. The commute time from Vienna was less than one hour. But the most important reason for me was that I got the chance to become actively involved in the arrangement. The trust that the people who have organized it in the past placed on me and Sudeshna (a fellow Assamese in Vienna) was immense. They gave us directions and we did some of the local organizing, but it was nothing compared to the effort that everyone put in at the event. Perhaps, at no other time in history has so many Assamese people gathered togetehr as a group in Austria. It was a surreal experience for me.
+
+Yashobanta Da (the person who provided the impetus for the whole meet) summarized the feeling aptly, at the conclusion when he said that it feels like a big marriage party has ended and everyone went back to their respective places with many memories, good food and a ceratin sadness of having to leave behind their community in Europe; their *bidexot apun manuh*. If I were to write a *minutes of the meeting* post to descirbe the *milon*, it would not do justice to it. The *milon* was much more than a bunch of people meeting at a fixed place on a fixed date to eat a few common meals. It was a time to cherish our **Assam**, it was a time to get to known the people of our motherland and talk in Assamese. Last year I read *In Other Words* by Jhumpa Lahiri, where she described how difficult it was to acclimatize to Italian when she started to live in Rome. The book stuck a chord and it has always remained ingrained in my mind. So, it was a fresh breeze of Assamese which did two things for me: first, it made me feel much better, and second, it made me a bit homesick. This homesickness is worse than any I have felt before. When everyone left, and I came back today to an empty apartment (my flatmate is enjoying his motherland now - Nepal), the pangs of lonliness were felt immensly. But, I talked to my parents, I talked to my fiancee and I talked with Himan Da (another fellow Assamese in Vienna), and it made me feel better. I began to think that, this is not the end. I will meet all these wonderful people again, maybe in the next get together, wherever it is. Or, perhaps even before if I visit the different friends I made in the last two days.
+
+The bond started for me, even before the offical meet when I met Srimanta Da. We realized that our original hometowns (-villages)
+were less than 5 km apart in Assam. It does not get better than this. When I went to the get together, I went with Sudeshna and Kabya,
+a soft spoken and kind fellow Assamese from Rome. Kabya and I talked before and in the get together, and it was a pleasure to meet him
+and to watch him help in the running of the meet. I had to leave the get together for some work in Vienna on Friday, but I went there
+for the second time at night to find a room full of people. All speaking Assamese, it was heaven. I met Eashan (with whom I have
+only conversed in Instagram; strange, I know), then I met Satya Da, Pranjal Da, Saswat Da, Rakesh Da and so many others. E
+one was
+warm and everyone made me feel welcome. It made me realize the bonds that we, human beings hold; even without knowing.
+
+Saturday was the day of the *bhoj*, an excellent meal made by Yashobanta Da and Rita Bow, helped by several others. In fact, everyone
+in the meet did something or the other to make it a succesful one. I have never seen such coordination and such switftness in doing
+things. The success of the meet lies with everyone who attended (irrespective of whether I mention them by name or not). After the bhoj,
+we had a small cultural event, which although it officially eneded around midnight, but some of the *kharkhowas* stayed up till
+6 am crooning to songs by Zubeen Da, Jitul Da, Bhupen Da and even Kishore Da. The star attraction of the show was undoubtedly Jitendra,
+a melodious voice who sang not less than six songs (with a strong public demand), paired brilliantly on instruments by Himan Da and
+Satya Da. Oh, what bliss it was to listen to him sing; and then later to watch the *nasonis* dancing to Bihu and Jhumur. I thought,
+if only this happened every weekend.
+
+But, like every good thing this meet also ended; with hope and promises to meet again. Next year, in a different country but with the
+same people. I will now count the days for this to happen.
+
+I close the post with an English translation of *Bidexot Apun Manuh* (which does not capture the original in any way).
+
+Every heartbeat holds this for eternity,The Atlantic , titled ‘*Clouds, Castle, Lake*’. It’s an old story, from the June 1941 issue, describing a journey taken by Vasili Ivanovich.
+
+Vasili Ivanovich need not be somebody known, in fact, anyone can be a Vasili Ivanovich, in my view. I will not speak about the entire contents of the story, which in itself would take a lot of space and time to describe. I will only speak about one part of that story. Ivanovich in the course of a journey arrives at a traveler's inn and looks for a room. Ivanovich was said to have uttered “I shall take it for the rest of my life” when he was shown a meagre room with not many necessities of life. The view of a lake with its clouds and castles no doubt elicited that response. Or perhaps, a war strung Russian was too depressed at that time. In any case, Ivanonich wanted his books, his blue suit and her photograph with him in that room. I will not spoil the joy of finding out what happened to Ivanovich by relaying the other details. Instead I focus on his books.
+
+Few days back, while reading a book on the Romanian Revolution (which in itself would take longer to explain), I was reminded of Nabokov’s story where the author discussed, in brief, about the books that he would like to keep in Ivanovich’s room. Books, that had some sentimental value as well as inspired reading. That got me thinking, what books would I like to keep in such a room. If given a choice, I would like to transport my entire library. But then we must assume that the shelf in that room would probably not hold more than a few dozen books. So, I would probably take ten or so books and volumes from my collection that I would really like to keep.
+
+The first few choices are very easy. The only novel I would take would be **The Count of Monte Cristo** by *Alexandre Dumas*. I have read this book several times, in several different translations. And, each time I find the story of Edmond Dantes, more and more gripping, understanding some new aspect of this work. I have begun to appreciate this book more and more as time goes. The copy that I have was purchased at the Pantheon in Paris, on my first trip to that city in 2015. Each sight of that trip remains vividly etched. I have since gone back a couple of more times to the city and like Dantes’ story, I find something new each time.
+
+Any collection of my books would be incomplete without a collection of short stories. And for that, the choice is easy. I would take with me a collection of short stories by *O. Henry*, which was gifted to me by my now fiancee, which she got in a sale of old books in Delhi. The book is from the mid 20th century with wear and tear that lends it a different kind of charm. It has more than a thousand pages of O. Henry’s stories, many of which I have read and enjoyed reading while growing up. I think, for me the epitome of story-telling is O. Henry.
+
+The choice of a poetry book was also instantaneous when I thought about it. In school, we had to read selected poems, essays and stories for a subject which was then called English 3. The subject has since disappeared in Assam and I could never figure out, what was the 2nd English paper that existed. Anyway, the poems we studied were taken from an old Oxford anthology of poems, which had several poems from western as well as Indian poets. We were supposed to read about eight poems, out of maybe a hundred from the whole book. But, I found that I actually enjoyed reading poems that were not prescribed for us. It helped that the book also had nice notes on the poems and the poets. That was my first serious reading of poetry and since then, I have always enjoyed a good poem. It would be a great comfort in Ivanovich’s room.
+
+The other choices would most definitely include the three volume **Feynman Lectures in Physics** and two edited books by *Stephen Hawking* called **Standing on the Shoulders of Giants** and **God created the Integers**. The lectures in physics were given in 1960s by Richard Feynman to undergraduate physics students at CalTech, and so far I have not met its rival in technical writing for it’s clarity and story telling quality. An indulgence is physics is required, but nothing else. Hawking’s edited volumes are collections of important papers in physics and mathematics that have created the modern subjects. A good conglomeration of ancient, medieval and modern material makes these books worth carrying from place to place (I have had them through three shifts of residence). One can spend hours reading the original works and the nature of theoretical physics and mathematics makes it unnecessary to have anything else, besides a pen and lots of paper.
+
+The last three books that I would select now, would be Edward Gait’s book on the history of Assam, Donald Knuth’s art of computer programming’s first volume and an old English translation of **The Bhagavad Gita** from the early 1900s that I have. Gait’s book was the first one in English to be written about Assam history and has stood the test of time. I have never managed to read the book in whole and it would be a nice exercise to try once. Knuth’s books are considered to be the bible of computer science, and perhaps the first volume itself would suffice my intellectual curiosity for a few years. The third volume should probably give me some sort of spiritual awakening when I am old and too tired to think deep.
+
+I am painfully aware that these books might not be all that I would want; perhaps I will get bored of them. But at the moment, it seems to me to suffice. I would also perhaps regret not taking several books that I own, on history (which has become a new interest), science or several biographies of people which I have enjoyed immensely. There will always be books that I have which I would like to finish. And then, there will be books which I do not own now, but I would like to. But most of all, I will regret the good books which are yet to be written on things I like. It is a sad reality that life is finite and hence, the number of books we read is finite. But, Ivanovich’s room is one of peace and quiet; books would help, and so would the view of the lake with its clouds and castles, where perhaps I would go on a stroll with her.
diff --git a/_posts/2022-01-12-2021-a-year-in-books.md b/_posts/2022-01-12-2021-a-year-in-books.md
new file mode 100644
index 0000000000..6dbb1450a4
--- /dev/null
+++ b/_posts/2022-01-12-2021-a-year-in-books.md
@@ -0,0 +1,36 @@
+---
+layout: post
+title: '2021: A Year in Books'
+date: '2022-01-12 13:37:20'
+tags: books
+background: '/img/books.jpeg'
+subtitle: "A Year of Reading."
+comments: true
+permalink: '/2021-a-year-in-books/'
+---
+
+Last year (2021) was a book-reading highlight for me. I completed 120 books, with an average page count of 259. That is about three times of what I usually read in a good year. I have been thinking of possible reasons for this phenomenon and I think I have narrowed it down to three reasons primarily.
+
+First, I was very unwell for the most part of the first seven months of the year. I was almost completely bed-ridden for three months or so and to get my concentration going so that I could do my job, I started to read more than I usually did. This was also because I could not go out, and this gave me lots of free time (about 90 minutes a day), which I spent reading. One book followed the other.
+
+Second, I found three subjects which I had not read before and which was very interesting for me, so much so that I was really hooked. These were paleoanthropology, books about books and Indian politics. I read about 10+ books on each of these subjects and I now have a long TBR list on them which I am planning to pursue this year as well.
+
+Third, starting treatment for some mental health issues (which I did not know I had) was like a light-bulb moment for me. Problems which I did not know I had disappeared almost instantly and I felt great, my mind was more active and sharp and this helped in the reading.
+
+There were various other reasons as well, but I won't elaborate on them.
+
+So, which books I enjoyed the most? I am not sure if I can answer this objectively because for me each book was different in some way or the other. But, what I can do is to list the books which I rated 5-star on Goodreads. This is a very subjective list, so I am not sure if it helps anyone apart from me. So, here it goes.
+
+**Science and Scientists**: *The Scientist as Rebel by Freeman Dyson* and *Serving the Reich: The Struggle for the Soul of Physics under Hitler by Philip Ball*.
+
+**Paleoanthropology**: *Neanderthal Man: In Search of Lost Genomes by Svante Paabo* and *First Steps: How Upright Walking Made Us Human by Jeremy DeSilva*.
+
+**The Holocaust**: *Night by Elie Wiesel*, *Mengele: Unmasking the “Angel of Death” by David Marwell* and *The Lost Café Schindler: One Family, Two Wars, and the Search for Truth by Meriel Schindler*.
+
+**Essays**: *Books v. Cigarettes by George Orwell*, *Gratitude by Oliver Sacks*, *Notes on Nationalism by George Orwell* and *Fascism and Democracy by George Orwell*.
+
+**Photography Books**: *Florence Photographs* and *Famous Cities of the World: Vienna*.
+
+**Fiction**: *Undertow by Jahnavi Barua* and *Bookscout by John Dunning*.
+
+**COVID-19**: *How Contagion Works: Science, Awareness, and Community in Times of Global Crises — The Essay That Helped Change the Covid-19 Debate by Paolo Giordano*.
diff --git a/_posts/2022-06-06-book-serendipities.md b/_posts/2022-06-06-book-serendipities.md
new file mode 100644
index 0000000000..ab8270a7b1
--- /dev/null
+++ b/_posts/2022-06-06-book-serendipities.md
@@ -0,0 +1,22 @@
+---
+layout: post
+title: 'Book Serendipities'
+date: '2022-06-06 15:37:20'
+tags: books
+background: '/img/books.jpeg'
+subtitle: "The joys of bookshops."
+comments: true
+permalink: '/book-serendipities/'
+---
+
+One of the first places we visited in Wales (after we shifted to Cardiff) was **Hay-on-Wye**, the world’s first booktown. It is a magical place for any bibliophile, and I have enjoyed my visits to Hay-on-Wye quite a lot. So, when we decided to visit Scotland over the Easter break this year, I thought it would be great to visit **Wigtown**, Scotland’s own booktown. But without a car it was quite difficult to do a day-trip, so I decided to skip Wigtown on this visit. One of the main reasons of wanting to visit Wigtown was to visit **The Bookshop**, the main attraction for book-lovers and the largest second hand bookseller in Scotland.
+
+I had seen **Shaun Bythell**’s (the owner of the shop) diaries of a bookseller in several bookstores before planning this trip. Somehow I never bought a copy because I didn’t think I would enjoy reading a diary. Since the plan to visit Wigtown was cancelled I did pick up Bythell’s book, in **Thistle Books, Glasgow** to experience a bit of the town on its pages. Once I started to read, I couldn’t stop and enjoyed every bit of the book. The book had one very huge impact on my habits, I have since decided to not buy any book directly from **Amazon** (other sellers there are fine, so far). Shaun explains in his inimitable style about how Amazon is cutting into the margins of booksellers everywhere. Although I knew about this but it didn’t hit me hard until I had read Shaun’s book.
+
+The advantages of visiting a bookshop can hardly be exaggerated for bibliophiles. Over the last few years I have discovered several genres of books which I would not have normally read if I had not seen the books in a brick-and-mortar shop. That is reason enough to like them, but sometimes serendipities work which makes them seem even more appealing. I have had several such instances in the past few weeks itself. Let me describe two of them.
+
+I am quite interested in reading about Vienna (since 2015, I lived there for four very beautiful years), and one book which is on my to-read list is **Joseph Roth**’s **The Radetzky March**. I haven’t thought about this for a long time, but on a recent visit to **Waterstones** in Cardiff, while browsing the WWII section (another of my interests) I came across a selection of essays that Roth wrote after he left Austria, titled **On the End of the World**. I am now looking forward to reading this collection, something which I would never have known existed if I had not visited a bookstore.
+
+A recent book I read was **Edmund de Waal**’s **The Hare with Amber Eyes**, where he mentions an unpublished novel written by his mother **Elisabeth de Waal** about a visit to Vienna after WWII was over. Edmund’s book was published in 2010 and so I assumed the novel was never published and did not look for it, even though the subject seemed quite interesting to me. On a recent visit to Bath, I took a friend to **Persephone Books** who mainly publishes old out-of-print books by female authors. Since, I have visited the store earlier, I decided to sit outside the entrance and look at their **Biannually** which lists all of their publications. While I was skimming through the pages I noticed the surname de Waal, and immediately stopped to look at what it said. Imagine my surprise when I saw that the book mentioned by Edmund was published by Persephone Books in 2013. The title is **The Exiles Return** and without wasting another second I went in and purchased my own copy.
+
+These were two very happy moments for me, which just goes on to show the importance of a good bookstore.
diff --git a/about.html b/about.html
deleted file mode 100644
index c661ef64e4..0000000000
--- a/about.html
+++ /dev/null
@@ -1,12 +0,0 @@
----
-layout: page
-title: About Me
-description: This is what I do.
-background: '/img/bg-about.jpg'
----
-
-Lorem ipsum dolor sit amet, consectetur adipisicing elit. Sed quisquam ut perspiciatis, repudiandae nulla animi iste vel, praesentium repellendus molestias aliquid consequatur, earum rem qui error voluptates eius enim consequuntur!
-
-Lorem ipsum dolor sit amet, consectetur adipisicing elit. Ex alias, earum consectetur quia natus ducimus voluptate explicabo, hic porro reprehenderit, quasi? Tenetur ipsum distinctio laboriosam perspiciatis officiis dolore, architecto id.
-
-Lorem ipsum dolor sit amet, consectetur adipisicing elit. Totam inventore aspernatur repellendus incidunt adipisci modi voluptates recusandae iste eligendi, repudiandae corporis quod aut, optio! Explicabo quaerat unde voluptatem! Itaque, eum!
diff --git a/books.md b/books.md
new file mode 100644
index 0000000000..2dc708463e
--- /dev/null
+++ b/books.md
@@ -0,0 +1,491 @@
+---
+layout: page
+title: Books
+description: Books that I have read since August 2014.
+background: '/img/books.jpeg'
+permalink: /books/
+---
+
+Starting from August 2014, I have decided to keep a record of the books that I have read or am currently reading. This list is just for my own personal recollection, but once in a while if I find the book very appealing I may post a review somewhere.
+
+The books which are marked with a ** are the ones that I am either currently reading or have not read completely but plan to do so in the future.
+
+>All the books that I read are rated on [Goodreads](https://www.goodreads.com/user/show/36494310-manjil).
+
+
+## Non-Fiction
+
+1. **The Immortal Life of Henrietta Lacks**, *Rebecca Skloot*, Pan Macmillan, 2011. [(review)](http://gonitsora.com/book-review-immortal-life-henrietta-lacks/)
+2. **Erwin Schrodinger and the Quantum Revolution**, *John Gribbin*, Transworld, 2013.
+3. **A masterful spirit: Homi J. Bhaba (1909 – 1966)**, *Indira Chowdhury and Ananya Dasgupta*, Penguin India, 2010.
+4. **Littlewood’s Miscellany**, *John E. Littlewood and Bela Bollobas*, Cambridge University Press, 1986. [(review)](http://gonitsora.com/book-review-littlewoods-miscellany/)
+5. **Math Bytes: Google Bombs, Chocolate – Covered Pi, and other cool bits of Computing**, *Tim Chartier*, Princeton University Press, 2014. [(review)](http://gonitsora.com/book-review-math-bytes/)
+6. **Letters to a Young Scientist**, *Edward O. Wilson*, W. W. Norton and Company, 2013.
+7. **Feynman’s Rainbow: A search for Beauty in Physics and Life**, *Leonard Mlodinow*, Warner Books, 2003.
+8. **Alan M. Turing: Centenary Edition**, *Sara Turing*, Cambridge University Press, 2012.
+9. **what if?: Serious Scientific Answers to Absurd Hypothetical Questions**, *Randall Munroe*, John Murray (Publishers), 2014. [(mini review)](http://www.bibliotheca.in/2015/03/what-if-mini-book-review.html)
+10. ** **“Most of the Good Stuff”: Memories of Richard Feynman**, *Laurie M. Brown (ed.) and John S. Rigden (ed.)*, American Institute of Physics, 1993.
+11. **The Art of Richard P. Feynman: Images of a Curious Character**, *Michelle Feynman (ed.)*, Routledge, 1995.
+12. ** **John von Neumann: Selected [Letters](http://www.tezu.ernet.in/dmaths/)**, *Miklos Redei (ed.)*, American Mathematical Society/London Mathematical Society, 2005.
+13. **The Apprenticeship of a Mathematician**, *Andre Weil*, Brikhauser, 1992. [(mini review)](http://www.bibliotheca.in/2015/03/the-apprenticeship-of-mathematician-by.html)
+14. **Tuva or Bust!: Richard Feynman’s Last Journey**, *Ralph Leighton*, W. W. Norton and Company, 1991.
+15. **Bourbaki: A Secret Society of Mathematicians**, *Maurice Mashaal*, American Mathematical Society, 2006. [(review)](http://www.bibliotheca.in/2015/05/nicolas-bourbaki-secret-mathematician.html)
+16. **The Polya Picture Album: Encounters of a Mathematician**, *George Polya (Ed. G. L. Alexanderson)*, Brikhauser Boston, 1987.
+17. **Birth of a Theorem: A Mathematical Adventure**, *Cedric Villani*, The Bodley Head, London, 2015. [(review)](http://gonitsora.com/book-review-birth-of-a-theorem-by-cedric-villani/)
+18. **Mathematical Apocrypha Redux: More Stories and Anecdotes of Mathematicians and the Mathematical**, *Steven G. Krantz*, Mathematical Association of America, 2005. [(short review)](http://manjilsaikia.in/mathematical-apocrypha-redux-short-review/)
+19. **Brilliant Blunders: From Darwin to Einstein**, *Mario Livio*, Simon and Schuster, 2013. [(review)](http://manjilsaikia.in/brilliant-blunders-a-brilliant-book/)
+20. **Mrs. Funnybones: She’s Just Like You and a Lot Like Me**, *Twinkle Khanna*, Penguin India, 2015. [(review)](http://www.bibliotheca.in/2016/03/mrs-funnybones-is-not-that-funny.html)
+21. **The Idea Factory: Bell Labs and the Great Age of American Innovation**, *Jon Gertner*, Penguin Press, 2012. [(review)](http://gonitsora.com/the-idea-factory-book-review/)
+22. **My Search for Ramanujan: How I Learned to Count**, *Ken Ono and Amir D. Aczel*, Springer Switzerland, 2016. [(review)](http://gonitsora.com/book-review-my-search-for-ramanujan/)
+23. **A Mathematician’s Lament**, *Paul Lockhart*, Bellevue Literary Press, 2009.
+24. **In Other Words**, *Jhumpa Lahiri*, Hamish Hamilton (Penguin), 2016.
+25. **Black Holes: The Reith Lectures**, *Stephen Hawking*, Bantam Books, 2016.
+26. **Man’s Search For Meaning**, *Viktor E. Frankl*, Beacon Press, 2006.
+27. **The Difference: when good enough isn’t enough**, *Subir Chowdhury*, Portfolio (Penguin), 2017.
+28. **The Clothing of Books**, *Jhumpa Lahiri*, Penguin, 2017.
+29. **The Mathematics of Love: Patterns, Proofs and the Search for the Ultimate Equation**, *Hannah Fry*, Ted Books, 2015.
+30. **Landour Days**, *Ruskin Bond*, Penguin Books, 2016.
+31. **The Last Lecture: lessons in living**, *Randy Pausch and Jeffrey Zaslow*, Two Roads, 2012.
+32. **Roads to Mussoorie**, *Ruskin Bond*, Rupa Publications India, 2013.
+33. **Party time in Mussoorie**, *Ruskin Bond*, Rupa Publications India, 2016.
+34. **Kohinoor: The Story of the World’s Most Infamous Diamond**, *William Dalrymple and Anita Anand*, Juggernaut Books, 2016.
+35. **City of Djinns: A Year in Delhi**, *William Dalrymple*, Flamingo, 1994.
+36. **The Great Derangement**, *Amitav Ghosh*, Allen Lane (Penguin), 2016.
+37. **Useless Facts Vienna**, *StadtBekannt Wien*, Holzbaum Verlag, 2014.
+38. **Eurekas and Euphorias: The Oxford Book of Scientific Anecdotes**, *Walter Gratzer*, Oxford University Press, 2002.
+39. **The Accidental Scientist: The Role of Chance and Luck in Scientific Discovery**, *Graeme Donald*, Michael O’Mara Books Limited, 2017.
+40. **Secret Vienna Stories: Legends, facts and locations for the true explorer**, *Fabio M. Aromatici*, CreateSpace Independent Publishing Platform, 2016.
+41. **Journey Down the Years**, *Ruskin Bond*, Rupa Publications India, 2017.
+42. **The Good, the Bad and the Ridiculous**, *Khuswant Singh with Humar Quarishi*, Rupa Publications India, 2013.
+43. **Pursuit of Genius: Flexner, Eisntein and the Early Faculty at the Institute for Advanced Study**, *Steven L. Batterson*, A. K. Peters, Ltd., 2006.
+44. **Is That Even A Country, Sir!: Journeys in Northeast India by Train, Bus and Tractor**, *Anil Yadav (Translated by Anurag Basnet)*, Speaking Tiger, 2017.
+45. **Indira: India’s Most Powerful Prime Minister**, *Sagarika Ghose*, Juggernaut Books, 2017.
+46. **Aurangzeb: The Man and The Myth**, *Audrey Truschke*, Penguin Viking, 2017.
+47. **Vikram Sarabhai: A Life**, *Amrita Shah*, Penguin India, 2016.
+48. **Exact Thinking in Demented Times: The Vienna Circle and the Epic Quest for the Foundations of Science**, *Karl Sigmund*, Basic Books, 2017.
+49. **Perpetual City: A Short Biography of Delhi**, *Malvika Singh*, Aleph, 2013.
+50. **Death in the Bunker**, *Ian Kershaw*, Penguin Books, 2000.
+51. **Scenes from a Writer’s Life**, *Ruskin Bond*, Penguin India, 1997.
+52. **Nine Lives: In Search of the Sacred in Modern India**, *William Dalrymple*, Bloomsbury, 2015.
+53. **Mathematicians of the World, Unite!: The International Congress of Mathematicians – A Human Endeavor**, *Guillermo P. Curbera*, A. K. Peters, Ltd., 2009.
+54. **Variety of Men**, *C. P. Snow*, Penguin Books, 1969.
+55. **The Age of Kali: Indian Travels and Encounters**, *William Dalrymple*, Bloomsbury, 2017.
+56. **The Usefulness of Useless Knowledge**, *Abraham Flexner (with a companion essay by Robbert Dijkgraaf)*, Princeton University Press, 2017.
+57. **Wise and Otherwise: A Salute to Life**, *Sudha Murty*, Penguin Books, 2006.
+58. **Cranks, Quarks, and the Cosmos**, *Jeremy Bernstein*, Basic Books, 1993.
+59. ** **The Quotable Feynman**, *Michelle Feynman (ed.)*, Princeton University Press, 2015.
+60. **Growing the Tree of Science: Homi Bhabha and the Tata Institute of Fundamental Research**, *Indira Chowdhury*, Oxford University Press, 2016.
+61. **The Double Helix: A Personal Account of the Discovery of the Structure of DNA**, *James D. Watson*, Weidenfeld & Nicolson, 1997.
+62. **What Mad Pursuit: A Personal View of Scientific Discovery**, *Francis Crick*, Weidenfeld & Nicolson, 1989.
+63. **Academia Obscura: The hidden silly side of higher education**, *Glen Wright*, Unbound, 2017.
+64. **No Full Stops in India**, *Mark Tully*, Penguin Books, 1992.
+65. **Vienna Mixed Set**, *T. H. Enge*, CreateSpace Independent Publishing Platform, 2018.
+66. **What Little I Remember**, *Otto Frisch*, Cambridge University Press, 1991.
+67. **Strangers of the Mist: Tales of War and Peace from India's Northeast**, *Sanjoy Hazarika*, Penguin Books, 1995.
+68. **Strangers No More: New Narratives from India's Northeast**, *Sanjoy Hazarika*, Aleph Book Company, 2018.
+69. **Blood On My Hands: Confessions of Staged Encounters**, *Kishalay Bhattacharjee*, HarperCollins Publishers India, 2015.
+70. ** **The G. H. Hardy Reader**, *Donald J. Albers (ed.), Gerald L. Alexanderson (ed.) and William Dunham (ed.)*, Mathematical Association of America – Cambridge University Press, 2015.
+71. ** **The Man Who Mistook His Wife for a Hat**, *Oliver Sacks*, Picador, 2011.
+72. ** **India: From Midnight to the Millennium and Beyond**, *Shashi Tharoor*, Penguin Books, 2007.
+73. **Great Feuds in Mathematics: Ten of the Liveliest Disputes Ever**, *Hal Hellman*, John Wiley & Sons, Inc., 2006.
+74. ** **Indiscrete Thoughts**, *Gian-Carlo Rota (Edited by Fabrizio Palombi)*, Birkhauser Boston, 1997.
+75. **The Accidental Prime Minister: The Making and Unmaking of Manmohan Singh**, *Sanjaya Baru*, Penguin Books, 2017.
+76. **The Merely Personal: Observations on Science and Scientists**, *Jeremy Bernstein*, Ivan R. Dee, 2001.
+77. **The Life It Brings: One Physicist's Beginnings**, *Jeremy Bernstein*, Penguin Books, 1988.
+78. **Who Got Einstein's Office?: Eccentricity and Genius at the Institute for Advanced Study**, *Ed Regis*, Simon and Schuster, 1988.
+79. **Three Degrees Above Zero: Bell Labs in the Information Age**, *Jeremy Bernstein*, Charles Scribner's Sons, 1984.
+80. **Serendipity: Accidental Discoveries in Science**, *Royston M. Roberts*, John Wiley & Sons, Inc., 1989.
+81. **Great Feuds in Science: Ten of the Liveliest Disputes Ever**, *Hal Hellman*, John Wiley & Sons, Inc., 1998.
+82. **Bookless in Baghdad and Other Writings about Reading**, *Shashi Tharoor*, Penguin Viking, India, 2005.
+83. **Things That Can and Cannot Be Said: Essays and Conversations**, *Arundhati Roy and John Cusack*, Juggernaut Books, 2016.
+84. **Seven Brief Lessons on Physics**, *Carlo Rovelli (Translated by Simon Carnell and Erica Segre)*, Penguin Random House UK, 2016.
+85. **Khushwantnama: The Lessons of My Life**, *Khushwant Singh*, Penguin Books, 2014.
+86. **Non Stop India**, *Mark Tully*, Penguin Books, 2013.
+87. **A Mind At Play: How Claude Shannon Invented the Information Age**, *Jimmy Soni and Rob Goodman*, Simon & Schuster Paperbacks, 2018.
+88. **Adventures of a Mathematician**, *S. M. Ulam*, University of California Press, 1991.
+89. **Countdown**, *Amitav Ghosh*, Penguin Books, 2010.
+90. **Florence: A Delicate Case**, *David Leavitt*, Bloomsbury, 2015.
+91. **Five Past Midnight in Bhopal**, *Dominique Lapierre and Javier Moro (Translated by Kathryn Spink)*, Scribner, 2002.
+92. **The Last Mughal: The fall of a dynasty, Delhi, 1857**, *William Dalrymple*, Penguin Books, 2007.
+93. **Oppenheimer: Portrait of an Enigma**, *Jeremy Bernstein*, Ivan R. Dee, 2004.
+94. **Quantum Profiles**, *Jeremy Bernstein*, Princeton University Press, 1991.
+95. ** **India's Unending Journey: Finding Balance in a Time of Change**, *Mark Tully*, Rider, 2007.
+96. **Essentials of Mathematical Thinking**, *Steven G. Krantz*, CRC Press, 2018. [(review)](https://zbmath.org/?q=an%3A06758729)
+97. **The Cost of Living**, *Arundhati Roy*, Modern Library, 1999.
+98. **The Algebra of Infinite Justice**, *Arundhati Roy*, Penguin Books, 2014.
+99. **King of Infinite Space: Donald Coxeter, the Man Who Saved Geometry**, *Siobhan Roberts*, Walker, 2006.
+100. **Assam: The Accord, The Discord**, *Sangeeta Barooah Pisharoty*, Ebury Press, 2019.
+101. **We Should All Be Feminists**, *Chimamanda Ngozi Adichie*, Fourth Estate, 2014.
+102. **Dear Ijeawele, or A Feminist Manifesto in Fifteen Suggestions**, *Chimamanda Ngozi Adichie*, 4th Estate, 2017.
+103. **S. Chandrasekhar: The Man Behind the Legend**, *Kameshwar C. Wali (ed.)*, Imperial College Press, 1997.
+104. **Liber Amicorum Richard “Dick” Allen Askey (2nd ed.)**, *Howard S. Cohl and Mourad E. H. Ismail (ed.)*, eBook, 2019.
+105. **The Bookseller of Kabul**, *Åsne Seierstad (Translated by Ingrid Christophersen)*, Virago, 2004.
+106. **Godman to Tycoon: The Untold Story of Baba Ramdev**, *Priyanka Pathak-Narain*, Juggernaut Books, 2017.
+107. **We are the Weather: Saving the Planet Begins at Breakfast**, *Jonathan Safran Foer*, Hamish Hamilton, 2019.
+108. **No One is Too Small to Make a Difference**, *Greta Thunberg*, Penguin Books, 2019.
+109. **The Last Man Who Knew Everything: The Life and Times of Enrico Fermi, Father of the Nuclear Age**, *David N. Schwartz*, Basic Books, 2017.
+110. **Einstein's Luck: The Truth Behind Some of the Greatest Scientific Discoveries**, *John Waller*, Oxford University Press, 2002.
+111. **C.V. Raman: A Biography**, *Uma Parameswaran*, Penguin Books, 2011.
+112. **The Uninhabitable Earth: A Story of the Future**, *David Wallace-Wells*, Penguin Books, 2019.
+113. **The Hunt for Vulcan: How Albert Einstein Destroyed a Planet and Deciphered the Universe**, *Thomas Levenson*, Head of Zeus, 2015.
+114. **Freakonomics: A Rogue Economist Explores the Hidden Side of Everything**, *Steven D. Levitt and Stephen J. Dubner*, Penguin Books, 2015.
+115. **Humble Pi: A Comedy of Maths Errors**, *Matt Parker*, Penguin Books, 2019.
+116. **Things I don't Want to Know: A response to George Orwell's 1946 essay 'Why I Write'**, *Deborah Levy*, Penguin Books, 2018.
+117. **The Communist Manifesto**, *Karl Marx and Friedrich Engels (Translated by Samuel Moore)*, Penguin Little Black Classics, 2015.
+118. **How to Bullsh_t Your Way to Number 1: An Unorthodox Guide to 21st Century Success from the World's #1 Fake Restaurateur and Paris Fashion Week's #1 Fake Designer**, *Oobah Butler*, Oobah Butler, 2019.
+119. ** **The Mathematics of Various Entertaining Subjects: Volume 3: The Magic of Mathematics**, *Jennifer Beineke and Jason Rosenhouse (eds.)*, Princeton University Press, 2019. [(review)](https://zbmath.org/?q=an%3A07085609)
+120. **Azadi: Freedom. Fascism. Fiction.**, *Arundhati Roy*, Penguin Books, 2020.
+121. **The Rise and Fall of the Dinosaurs: The Untold Story of a Lost World**, *Steve Brusatte*, Picador, 2019.
+122. **From Raj to Rajiv: 40 Years of Indian Independence**, *Mark Tully and Zareer Masani*, Universal Book Stall, 1988.
+123. **Packing My Library: An Elegy and Ten Digressions**, *Alberto Manguel*, Yale University Press, 2018.
+124. **Astrophysics for People in a Hurry**, *Neil deGrasse Tyson*, W. W. Norton & Company, 2017.
+125. **The Weil Conjectures: On Math and the Pursuit of the Unknown**, *Karen Olsson*, Bloomsbury Publishing, 2019.
+126. **Rosalind Franklin: The Dark Lady of DNA**, *Brenda Maddox*, Harper Collins Publishers, 2003.
+127. **The Book Nobody Read: Chasing the Revolutions of Nicolaus Copernicus**, *Owen Gingerich*, William Heinemann, 2004.
+128. **Think Like a Freak: How to Think Smarter About Almost Everything**, *Steven D. Levitt and Stephen J. Dubner*, Penguin Books, 2014.
+129. **Charles Darwin's Barnacle and David Bowie's Spider: How Scientific Names Celebrate Adventurers, Heroes, and Even a Few Scoundrels**, *Stephen B. Heard*, Yale University Press, 2020.
+130. **The Curious Life of Robert Hooke: The Man Who Measured London**, *Lisa Jardine*, Perennial, 2005.
+131. **SuperFreakonomics: Global Cooling, Patriotic Prostitutes, and Why Suicide Bombers Should Buy Life Insurance**, *Steven D. Levitt and Stephen J. Dubner*, Penguin Books, 2010.
+132. **When to Rob a Bank: ...And 131 More Warped Suggestions and well-intended Rants**, *Steven D. Levitt and Stephen J. Dubner*, HarperLuxe, 2015.
+133. **Allahu Akbar: Understanding the Great Mughal in Today's India**, *Manimugdha S. Sharma*, Bloomsbury India, 2019.
+134. **The Cost of Living: A Working Autobiography**, *Deborah Levy*, Penguin Books, 2018.
+135. **Letters of Note: Correspondence Deserving of a Wider Audience**, *Shaun Usher (Compiler)*, Unbound & Canongate Books, 2016.
+136. **More Letters of Note: Correspondence Deserving of a Wider Audience**, *Shaun Usher (Compiler)*, Unbound & Canongate Books, 2015.
+137. **When Life Nearly Died: The Greatest Mass Extinction of All Time**, *Michael J. Benton*, Thames & Hudson, 2003.
+138. **Poor Economics: A Radical Rethinking of the Way to Fight Global Poverty**, *Abhijit V. Banerjee and Esther Duflo*, Public Affairs, 2011.
+139. **India Misinformed: The True Story**, *Pratik Sinha, Sumaiya Shaikh and Arjun Sidharth*, HarperCollins India, 2019.
+140. **Genius at Play: The Curious Mind of John Horton Conway**, *Siobhan Roberts*, Bloomsbury, 2015.
+141. **Galileo: And the Science Deniers**, *Mario Livio*, Simon & Schuster, 2020.
+142. **Maths on the Back of an Envelope: Clever ways to (roughly) calculate anything**, *Rob Eastaway*, HarperCollins, 2019.
+143. **The Murder of Professor Schlick: The Rise and Fall of the Vienna Circle**, *David Edmonds*, Princeton University Press, 2020.
+144. **The Economics of Small Things**, *Sudipta Sarangi*, Penguin Books, 2020.
+145. **The Dinosaur Artist: Obsession, Science, and the Global Quest for Fossils**, *Paige Williams*, Hachette Books, 2019.
+146. **Outliers: The Story of Success**, *Malcolm Gladwell*, Back Bay Books: Little, Brown and Company, 2009.
+147. **Blink: The Power of Thinking without Thinking**, *Malcolm Gladwell*, Penguin Books, 2006.
+148. **How to Avoid a Climate Disaster: The Solutions We Have and the Breakthroughs We Need**, *Bill Gates*, Allen Lane, 2021.
+149. **Euler: The Master of Us All**, *William Dunham*, The Mathematical Association of America, 1999.
+150. **The Library Book**, *Susan Orlean*, Simon and Schuster, 2018.
+151. **The Anarchy: The East India Company, Corporate Violence, and the Pillage of an Empire**, *William Dalrymple*, Bloomsbury Publishing, 2019.
+152. **Used and Rare: Travels in the Book World**, *Lawrence and Nancy Goldstone*, St. Martin's Griffin, 1998.
+153. **The Scientist as Rebel**, *Freeman Dyson*, New York Review Books, 2006.
+154. **Longitude: The True Story of a Lone Genius Who Solved the Greatest Scientific Problem of His Time**, *Dava Sobel*, Harper Perennial, 2007.
+155. **Fascism and Democracy**, *George Orwell*, Penguin Books, 2020.
+156. **How to Spot a Fascist**, *Umberto Eco (Translated by Richard Dixon and Alastair McEwen)*, Harvill Secker, 2020.
+157. **Politics and the English Language**, *George Orwell*, Penguin Books, 2013.
+158. **Notes on Nationalism**, *George Orwell*, Penguin Books, 2018.
+159. **Slightly Chipped: Footnotes in Booklore**, *Lawrence and Nancy Goldstone*, St. Martin's Press, 1999.
+160. **A Short History of Humanity: How Migration Made Us Who We Are**, *Johannes Krause and Thomas Trappe (Translated by Caroline Waight)*, WH Allen, 2021.
+161. **The World Before Us: How Science is Revealing a New Story of Our Human Origins**, *Tom Higham*, Viking, 2021.
+162. **The Neanderthals Rediscovered: How Modern Science is Rewriting Their Story**, *Dimitra Papagianni and Michael A. Morse*, Thames and Hudson, 2018.
+163. **Ex Libris: Confessions of a Common Reader**, *Anne Fadiman*, Farrar, Straus and Giroux, 1998.
+164. **Sixpence House: Lost in a Town of Books**, *Paul Collins*, Bloomsbury, 2003.
+165. **Empireland: How Imperialism Has Shaped Modern Britain**, *Sathnam Sanghera*, Viking, 2021.
+166. **The Man Who Loved Books Too Much: The True Story of a Thief, a Detective, and a World of Literary Obsession**, *Allison Hoover Bartlett*, Riverhead Books, 2009.
+167. **Disappearing Ink: The Insider, the FBI, and the Looting of the Kenyon College Library**, *Travis McDade*, Diversion Books, 2015.
+168. **A Library Miscellany**, *Claire Cock-Starkey*, Bodleian Library, 2018.
+169. **Almost Human: The Astonishing Tale of Homo naledi and the Discovery That Changed Our Human Story**, *Lee Berger and John Hawks*, National Geographic, 2017.
+170. **A Museum Miscellany**, *Claire Cock-Starkey*, Bodleian Library, 2019.
+171. **The Book Lovers' Miscellany**, *Claire Cock-Starkey*, Bodleian Library, 2017.
+172. **Books v. Cigarettes**, *George Orwell*, Penguin Books, 2008.
+173. **Night**, *Elie Wiesel (Translated by Marion Wiesel)*, Penguin Books, 2008.
+174. **A Force of Nature: The Frontier Genius of Ernest Rutherford**, *Richard Reeves*, Atlas Books, 2008.
+175. **Miss Leavitt's Stars: The Untold Story of the Woman Who Discovered How to Measure the Universe**, *George Johnson*, Atlas Books, 2005.
+176. **The Doctors’ Plague: Germs, Childbed Fever, and the Strange Story of Ignác Semmelweis**, *Sherwin B. Nuland*, Atlas Books, 2003.
+177. **Decline of the English Murder**, *George Orwell*, Penguin Books, 2009.
+178. **Obsessive Genius: The Inner World of Marie Curie**, *Barbara Goldsmith*, Atlas Books, 2005.
+179. **Fossil Men: The Quest for the Oldest Skeleton and the Origins of Humankind**, *Kermit Pattison*, William Morrow, 2020.
+180. **Warmly Inscribed: The New England Forger and Other Book Tales**, *Lawrence and Nancy Goldstone*, Thomas Dunne Books, 2001.
+181. **Uranium: War, Energy, and the Rock that Shaped the World**, *Tom Zoellner*, 2010.
+182. **The Book Thieves: The Nazi Looting of Europe’s Libraries and the Race to Return a Literary Inheritance**, *Anders Rydell (Translated by Henning Koch)*, Viking, 2017.
+183. **The Falcon Thief: A True Tale of Adventure, Treachery, and the Hunt for the Perfect Bird**, *Joshua Hammer*, Simon & Schuster, 2020.
+184. **The Orpheus Clock: The Search for My Family’s Art Treasures Stolen by the Nazis**, *Simon Goodman*, Scribner, 2015.
+185. **The Auschwitz Photographer: Based on the true story of Wilhelm Brasse prisoner 3444**, *Luca Crippa and Mauricio Onnis (Translated by Jennifer Higgins)*, Doubleday, 2021.
+186. **First Steps: How Walking Upright Made Us Human**, *Jeremy DeSilva*, William Collins, 2021.
+187. **Masters of the Planet: The Search for our Human Origins**, *Ian Tattersall*, Palgrave Macmillan, 2012.
+188. **The First Human: The Race to Discover Our Earliest Ancestors**, *Ann Gibbons*, Doubleday, 2006.
+189. **Ancient Bones: Unearthing the Astonishing New Story of How We Became Humans**, *Madelaine Böhme, Rüdiger Braun and Florian Breier (Translated by Jane Billinghurst)*, Greystone Books, 2020.
+190. **The Lost Café Schindler: One Family, Two Wars and the Search for Truth**, *Meriel Schindler*, Hodder & Stoughton, 2021.
+191. **The Twins of Auschwitz: The Inspiring True Story of a Young Girl Surviving Mengele’s Hell**, *Eva Mozes Kor and Lisa Rojany Buccieri*, Monoray, 2020.
+192. **Mengele: Unmasking the “Angel of Death”**, *David G. Marwell*, W. W. Norton & Company, 2020.
+193. **Serving the Reich: The Struggle for the Soul of Physics Under Hitler**, *Philip Ball*, Vintage Books, 2014.
+194. **Trieste and the Meaning of Nowhere**, *Jan Morris*, Faber and Faber Ltd, 2002.
+195. **Your Inner Fish: A Journey into the 3.5-Billion-Year History of the Human Body**, *Neil Shubin*, Allen Lane, 2008.
+196. **The Handshake: A Gripping History**, *Ella Al-Shamahi*, Profile Books, 2021.
+197. **Thunder at Twilight: Vienna 1913/1914**, *Frederic Morton*, Charles Scribner's Sons, 1989.
+198. **Gratitude**, *Oliver Sacks*, Picador, 2015.
+199. **Intimations: Six Essays**, *Zadie Smith*, Penguin Books, 2020.
+200. **Kindred: Neanderthal Life, Love, Death and Art**, *Rebecca Wragg Sykes*, Bloomsbury Sigma, 2020.
+201. **Neanderthal Man: In Search of Lost Genomes**, *Svante Pääbo*, Basic Books, 2014.
+202. **Catching Fire: How Cooking Made Us Human**, *Richard Wrangham*, Basic Books, 2009.
+203. **The Nazis: A Warning From History**, *Laurence Rees*, BBC Books, 2021.
+204. **Inside Hitler’s Bunker: The Last Days of the Third Reich**, *Joachim Fest (Translated by Margot Bettauer Dembo)*, Macmillan, 2004.
+205. **I Belong to Vienna: A Jewish Family’s Story of Exile and Return**, *Anna Goldenberg (Translated by Alta L. Price)*, New Vessel Press, 2020.
+206. **The Art of More: How Mathematics Created Civilisation**, *Michael Brooks*, Scribe, 2021.
+207. **Debunked! ESP, Telekinesis, and Other Pseudoscience**, *Georges Charpak and Henri Broch (Translated by Bart K. Holland)*, The Johns Hopkins University Press, 2004.
+208. **Science Fictions: Exposing Fraud, Bias, Negligence and Hype in Science**, *Stuart Ritchie*, Vintage, 2021.
+209. **Languages Are Good For Us**, *Sophie Hardach*, Head of Zeus Ltd, 2021.
+210. **Unwell Women: A Journey Through Medicine and Myth in a Man-Made World**, *Elinor Cleghorn*, Weidenfeld & Nicolson, 2021.
+211. **Zero: The Biography of a Dangerous Idea**, *Charles Seife*, Penguin Books, 2000.
+212. **How Contagion Works: Science, Awareness and Community in Times of Global Crises**, *Paolo Giordano (Translated by Alex Valente)*, Weidenfeld & Nicolson, 2020.
+213. **To Kill A Democracy: India’s Passage to Despotism**, *Debasish Roy Chowdhury and John Keane*, Oxford University Press, 2021.
+214. **How Democracies Die: What History Reveals About Our Future**, *Steven Levitsky and Daniel Ziblatt*, Penguin Books, 2019.
+215. **Everybody Loves a Good Drought: Stories from India’s Poorest Districts**, *P. Sainath*, Penguin Books, 2017.
+216. **Midnight’s Borders: A People’s History of Modern India**, *Suchitra Vijayan*, Melville House, 2021.
+217. **Modi’s India: Hindu Nationalism and the Rise of Ethnic Democracy**, *Christophe Jaffrelot (Translated by Cynthia Schoch)*, Princeton University Press, 2021.
+218. **On Tyranny: Twenty Lessons from the Twentieth Century**, *Timothy Snyder*, The Bodley Head, 2017.
+219. **I Am a Troll: Inside the Secret World of the BJP’s Digital Army**, *Swati Chaturvedi*, Juggernaut Books, 2019.
+220. **The Great Unravelling: India after 2014**, *Sanjay Jha*, Context, 2020.
+221. **Let Me Go: My Mother and the SS**, *Helga Schneider (Translated by Shaun Whiteside)*, Vintage, 2005.
+222. **Our Hindu Rashtra: What It Is. How We Got Here**, *Aakar Patel*, Westland, 2020.
+223. **Price of the Modi Years**, *Aakar Patel*, Westland Non-Fiction, 2021.
+224. **Island Dreams: Mapping an Obsession**, *Gavin Francis*, Canongate, 2020.
+225. **Eichmann and the Holocaust**, *Hannah Arendt*, Penguin Books, 2005.
+226. **Undercover: My Journey into the Darkness of Hindutva**, *Ashish Khetan*, Context, 2021.
+227. **Malevolent Republic: A Short History of the New India**, *K. S. Komireddi*, C. Hurst & Company, 2019.
+228. **It All Adds Up: The Story of People and Mathematics**, *Mickaël Launay (Translated by Stephen S. Wilson)*, William Collins, 2018.
+229. **Spike - The Virus vs The People: The Inside Story**, *Jeremy Farrar and Anjana Ahuja*, Profile Books, 2021.
+230. **Republic of Hindutva: How the Sangh Is Reshaping Indian Democracy**, *Badri Narayan*, Viking, 2021.
+231. **Gujarat Files: Anatomy of a Cover Up**, *Rana Ayyub*, 2016.
+232. **The Silent Coup: A History of India’s Deep State**, *Josy Joseph*, Context, 2021.
+233. **Vaxxers: The Inside Story of the Oxford AstraZeneca Vaccine and the Race Against the Virus**, *Sarah Gilbert and Catherine Green*, Hodder & Stroughton, 2021.
+234. **Whole Numbers and Half Truths: What Data Can and Cannot Tell Us About Modern India**, *Rukmini S.*, Context, 2021.
+235. **The Free Voice: On Democracy, Culture and the Nation**, *Ravish Kumar (Translated by Chitra Padmanabhan, Anurag Basnet and Ravi Singh)*, Speaking Tiger, 2019.
+236. **Thomas Kuhn and the Science Wars**, *Ziauddin Sardar*, Icon Books, 2000.
+237. **Covid by Numbers: Making Sense of the Pandemic with Data**, *David Spiegelhalter and Anthony Masters*, Pelican Books, 2021.
+238. **Eureka! The Birth of Science**, *Andrew Gregory*, Icon Books, 2017.
+239. **Exposed! Ouija, Firewalking, and Other Gibberish**, *Henri Boch (Translated by Bart K. Holland)*, The Johns Hopkins University Press, 2009.
+240. **Despite the State: Why India Lets Its People Down and How They Cope**, *M. Rajshekhar*, Context, 2021.
+241. **Hitler and India: The untold story of his hatred for the country and its people**, *Vaibhav Purandare*, Westland Non-Fiction, 2021.
+242. **A Feast of Vultures: The Hidden Business of Democracy in India**, *Josy Joseph*, HarperCollins, 2016.
+243. **Letter from Birmingham Jail**, *Martin Luther King Jr.*, Penguin Classics, 2018.
+244. **The Demolition and the Verdict: Ayodhya and the Project to Reconfigure India**, *Nilanjan Mukhopadhyay*, Speaking Tiger Books, 2021.
+245. **Mathematics: A Very Short Introduction**, *Timothy Gowers*, Oxford University Press, 2002.
+246. **Auschwitz: A History**, *Sybille Steinbacher (Translated by Shaun Whiteside)*, Penguin Books, 2005.
+247. **Stopping the Next Pandemic: How Covid-19 Can Help Us Save Humanity**, *Debora MacKenzie*, The Bridge Street Press, 2021.
+248. **The Next Pandemic: On the Front Lines Against Humankind's Gravest Dangers**, *Ali S. Khan and William Patrick*, PublicAffairs, 2020.
+249. **The Plague Cycle: The Unending War Between Humanity and Infectious Disease**, *Charles Kenny*, Scribner, 2021.
+250. **The Rules of Contagion: Why Things Spread - and Why They Stop**, *Adam Kucharski*, Wellcome Collection, 2021.
+251. **The Seven Daughters of Eve: The Astonishing Story That Reveals How Each of Us Can Trace Our Genetic Ancestors**, *Bryan Sykes*, Corgi Books, 2002.
+252. **The Viral Storm: The Dawn of a New Pandemic Age**, *Nathan Wolfe*, Allen Lane, 2011.
+253. **Superbugs: The Race to Stop an Epidemic**, *Matt McCarthy*, Scribe Publications, 2019.
+254. **Vaccinated: One Man's Quest to Defeat the World's Deadliest Diseases**, *Paul A. Offit*, Smithsonian Books, 2007.
+255. **Time Was Soft There: A Paris Sojourn at Shakespeare & Co.**, *Jeremy Mercer*, Picador, 2006.
+256. **The Diary of a Bookseller**, *Shaun Bythell*, Profile Books, 2018.
+257. **Seven Kinds of People You Find in Bookshops**, *Shaun Bythell*, Profile Books, 2020.
+258. **Confessions of a Bookseller**, *Shaun Bythell*, Profile Books, 2019.
+259. **Weird Things Customers Say in Bookshops**, *Jen Campbell (Illustrated by Greg McLeod and Myles McLeod)*, Constable, 2012.
+260. **The Business of Books: How the International Conglomerates Took Over Publishing and Changed the Way We Read**, *André Schiffrin*, Verso, 2001.
+261. **More Weird Things Customers Say in Bookshops**, *Jen Campbell (Illustrated by Brothers McLeod)*, Constable, 2013.
+262. **Empire’s Garden: Assam and the Making of India**, *Jayeeta Sharma*, Duke University Press, 2011.
+263. **Shelf Respect: A Book Lover’s Defence**, *Annie Austen*, Sphere, 2019.
+264. **The Unknown Unknown: Bookshops and the Delight of Not Getting What You Wanted**, *Mark Forsyth*, Icon Books, 2014.
+265. **A Life with Books**, *Julian Barnes*, Jonathan Cape, 2012.
+266. **Change is the Only Constant: The Wisdom of Calculus in a Madcap World**, *Ben Orlin*, Black Dog & Leventhal, 2019.
+267. **Phantom Plague: How Tuberculosis Shaped History**, *Vidya Krishnan*, PublicAffairs, 2022.
+268. **Paris Match: Falling in (love) with the French**, *John von Sothen*, Profile Books, 2020.
+269. **I'd Rather Be Reading: The Delights and Dilemmas of the Reading Life**, *Anne Bogel*, Baker Books, 2018.
+270. **The Last Days of the Dinosaurs: An Asteroid, Extinction, and the Beginning of Our World**, *Riley Black*, The History Press, 2022.
+271. **Math with Bad Drawings: Illuminating the Ideas that Shape our Reality**, *Ben Orlin*, Black Dog & Leventhal, 2018.
+272. **The Hare With Amber Eyes: A Hidden Inheritance**, *Edmund de Waal*, Chatto & Windus, 2010.
+273. **Browsings: A Year of Reading, Collecting and Living with Books**, *Michael Dirda*, Pegasus Books, 2016.
+274. **The Pandemic Century: A History of Global Contagion from the Spanish Flu to Covid-19**, *Mark Honigsbaum*, WH Allen, 2020.
+275. **Is It Tomorrow Yet? Paradoxes of the Pandemic**, *Ivan Krastev*, Penguin Books, 2022.
+276. **Chronicles of a Cairo Bookseller**, *Nadia Wassef*, Corsair, 2021.
+277. **Reading and Writing: A Personal Account**, *V. S. Naipaul*, New York Review Books, 2000.
+278. **Beasts Before Us: The Untold Story of Mammal Origins and Evolution**, *Elsa Panciroli*, Bloomsbury Sigma, 2021.
+279. **Preventable: How a Pandemic Changed the World & How to Stop the Next One**, *Devi Sridhar*, Viking, 2022.
+280. **The Premonition: A Pandemic Story**, *Michael Lewis*, Allen Lane, 2021.
+281. **The Fifth Risk: Undoing Democracy**, *Michael Lewis*, Allen Lane, 2018.
+282. **The Secret Life of Books: Why They Mean More Than Words**, *Tom Mole*, Elliott & Thompson, 2020.
+283. **Boomerang: The Biggest Bust**, *Michael Lewis*, Penguin Books, 2012.
+284. **The Number Bias: How Numbers Lead and Mislead Us**, *Sanne Blauw (Translated by Suzanne Heukensfeldt Jansen)*, Sceptre, 2020.
+285. **The Book Collectors of Daraya: A band of Syrian rebels, their underground library, and the stories that carried them through a war**, *Delphine Minoui (Translated by Lara Vergnaud)*, Picador, 2021.
+286. **The Age Of Pandemics (1817-1920): How they shaped India and the World**, *Chinmay Tumbe*, HarperCollins Publishers, 2020.
+287. **Deadly Feasts: Tracking the Secrets of a Terrifying New Plague**, *Richard Rhodes*, Touchstone Books, 1998.
+288. **Emergency Chronicles: Indira Gandhi and Democracy's Turning Point**, *Gyan Prakash*, Princeton University Press, 2019.
+289. **Durbar**, *Tavleen Singh*, Hachette India, 2013.
+290. **India's Undeclared Emergency: Constitutionalism and the Politics of Resistance**, *Arvind Narrain*, Context, 2021.
+291. **India’s Broken Tryst**, *Tavleen Singh*, HarperCollins Publishers India, 2017.
+292. **Vajpayee: The Years That Changed India**, *Shakti Sinha*, Vintage, 2020.
+293. **Not Just an Accountant: The Diary of the Nation’s Conscience Keeper**, *Vinod Rai*, Rupa Publications, 2014.
+294. **Combinatorics: A Very Short Introduction**, *Robin Wilson*, Oxford University Press, 2016.
+295. **The Big Reverse: How Demonetization Knocked India Out**, *Meera Sanyal*, Harper Business, 2018.
+296. **The Perfect Predator: A Scientist's Race to Save Her Husband from a Deadly Superbug**, *Steffanie Strathdee and Thomas Patterson (with Teresa Barker)*, Hachette Books, 2019.
+297. **The Last Bookseller: A Life in the Rare Book Trade**, *Gary Goodman*, University of Minnesota Press, 2021.
+298. **Thieves of Book Row: New York's Most Notorious Rare Book Ring and the Man Who Stopped It**, *Travis McDade*, Oxford University Press, 2013.
+299. **The Escape Artist: The Man Who Broke Out of Auschwitz to Warn the World**, *Jonathan Freedland*, John Murray, 2022.
+300. **Remainders of the Day: More Diaries from The Bookshop, Wigtown**, *Shaun Bythell*, Profile Books, 2022.
+301. **The Yellow-Lighted Bookshop: A Memoir, a History**, *Lewis Buzbee*, Graywolf Press, 2006.
+302. **The Hitler Salute: On the Meaning of a Gesture**, *Tilman Allert (Translated by Jefferson Chase)*, Picador, 2009.
+303. **A New Human: The Startling Discovery and Strange Story of the "Hobbits" of Flores, Indonesia**, *Mike Morwood and Penny van Oosterzee*, Smithsonian Books, 2007.
+304. **What's the Best You Can Do?: First-Hand Recollections of a Second-Hand Bookseller**, *Derek Rowlinson (Illustrated by Graham Kennedy)*, Books Ulster, 2020.
+305. **The Villa, the Lake, the Meeting: Wannsee and the Final Solution**, *Mark Roseman*, Allen Lane, 2002.
+306. ** **The Gifts of Reading: Essays on the Joys of Reading, Giving and Receiving Books**, *Robert Macfarlane (Inspired) and Jennie Orchard (Ed.)*, Weidenfeld & Nicolson, 2020.
+307. ** **Howards End Is on the Landing: A Year of Reading from Home**, *Susan Hill*, Profile Books, 2010.
+308. **A Gentle Madness: Bibliophiles, Bibliomanes, and the Eternal Passion for Books**, *Nicholas A. Basbanes*, Owl Books, 1999.
+309. **Editions and Impressions: Twenty Years on the Book Beat**, *Nicholas A. Basbanes*, Fine Books Press, 2007.
+310. **Last Ape Standing: The Seven-Million-Year Story of How and Why We Survived**, *Chip Walter*, Walker & Company, 2013.
+311. **Lone Survivors: How We Came to Be the Only Humans on Earth**, *Chris Stringer*, Times Books, 2012.
+312. **Once Upon a Tome: The Misadventures of a Rare Bookseller**, *Oliver Darkshire*, Bantam, 2022.
+313. **Beating Back the Devil: On the Front Lines with the Disease Detectives of the Epidemic Intelligence Service**, *Maryn McKenna*, Free Press, 2004.
+314. **Level 4: Virus Hunters of the CDC**, *Joseph B. McCormick and Susan Fisher-Hoch (with Leslie Alan Horvitz)*, Barnes & Noble Books, 1999.
+315. **Among the Gently Mad: Perspectives and Strategies for the Book Hunter in the Twenty-first Century**, *Nicholas A. Basbanes*, Owl Books, 2003.
+316. **The Two Cultures**, *C. P. Snow (with Introduction by Stefan Collini)*, Cambridge University Press, 1996.
+317. **The Billionaire Raj: A Journey Through India's New Gilded Age**, *James Crabtree*, One World, 2019.
+318. ** **At Home with Books: How Booklovers Live with and Care for Their Libraries**, *Estelle Ellis, Caroline Seebohm and Christopher Simon Sykes*, Carol Southern Books, 1995.
+319. **On Leaders and Icons: From Jinnah to Modi**, *Kuldip Nayar*, Speaking Tiger, 2018.
+320. **In Praise of Good Bookstores**, *Jeff Deutsch*, Princeton University Press, 2022.
+321. ** **In the Margins: On the Pleasures of Reading and Writing**, *Elena Ferrante (Translated by Ann Goldstein)*, Europa Editions, 2022.
+322. **Bottle of Lies : Ranbaxy and the Dark Side of Indian Pharma**, *Katherine Eban*, Juggernaut Books, 2022.
+323. **Not Just a Civil Servant**, *Anil Swarup*, Unicorn Books, 2019.
+324. **Little Species, Big Mystery: The story of Homo floresiensis**, *Debbie Argue*, Melbourne University Press, 2022.
+325. **RSS: The Long and the Short of It**, *Devanura Mahadeva (Translated by S. R. Ramakrishna)*, Eka, 2022.
+326. **The Sea Close By**, *Albert Camus*, Penguin Classics, 2013.
+327. **The Missionary Position: Mother Teresa in Theory and Practice**, *Christopher Hitchens*, Atlantic Books, 2021.
+328. **How to Lie with Statistics**, *Darrell Huff*, Pelican Books, 1975.
+329. **Virus Hunter: Thirty Years of Battling Hot Viruses Around the World**, *C. J. Peters and Mark Olshaker*, Anchor Books, 1998.
+330. **Messiah Modi? A Tale of Great Expectations**, *Tavleen Singh*, HarperCollins Publishers India, 2020.
+331. **No Nation for Women: Reportage on Rape from India, the World’s Largest Democracy**, *Priyanka Dubey*, Simon & Schuster India, 2018.
+332. **Bhupen Hazarika: As I Knew Him**, *Kalpana Lajmi with Sunanda Shyamal Mitra*, HarperCollins Publishers India, 2018.
+333. **Walking with Lions: Tales from a Diplomatic Past**, *K. Natwar Singh*, HarperCollins Publishers India, 2013.
+334. **The Fiction of Fact-finding: Modi & Godhra**, *Manoj Mitta*, HarperCollins Publishers India, 2014.
+335. **Chandni Chowk: The Mughal City of Old Delhi**, *Swapna Liddle*, Speaking Tiger, 2017.
+336. **Connaught Place and the Making of New Delhi**, *Swapna Liddle*, Speaking Tiger, 2018.
+337. **Jawaharlal Nehru: Civilizing a Savage World**, *Nayantara Sahgal*, Penguin Books, 2016.
+338. **The Population Myth: Islam, Family Planning and Politics in India**, *S. Y. Quraishi*, HarperCollins Publishers India, 2021.
+339. **Yours Sincerely**, *K. Natwar Singh*, Rupa & Co., 2010.
+340. **She Said: Breaking the Sexual Harassment Story That Helped Ignite a Movement**, *Jodi Kantor and Megan Twohey*, Bloomsbury Publishing, 2020.
+341. **Fear: Trump in the White House**, *Bob Woodward*, Simon & Schuster, 2019.
+342. **Missing in Action: Why You Should Care About Public Policy**, *Pranay Kotasthane and Raghu S. Jaitley*, Penguin Books, 2023.
+343. **Where India Goes: Abandoned Toilets, Stunted Development and the Costs of Caste**, *Diane Coffey and Dean Spears*, HarperCollins Publishers India, 2017.
+344. **The Emergency: A Personal History**, *Coomi Kapoor*, Penguin Books, 2016.
+345. **Rage**, *Bob Woodward*, Simon & Schuster, 2020.
+346. **Patriots and Partisans**, *Ramachandra Guha*, Allen Lane, 2012.
+347. **The Book Beautiful: A Memoir of Collecting Rare and Fine Books**, *Pradeep Sebastian*, Hachette India, 2023.
+348. **Early Indians: The Story of Our Ancestors and Where We Came From**, *Tony Joseph*, Juggernaut Books, 2021.
+
+
+## Fiction
+
+1. **Half Girlfriend**, *Chetan Bhagat*, Rupa, 2014. [(review)](http://www.bibliotheca.in/2015/06/book-review-half-girlfriend-by-chetan.html)
+2. **Dead Meat**, *Ankush Saikia*, Penguin India, 2015. [(review)](http://www.bibliotheca.in/2015/07/book-review-dead-meat-by-ankush-saikia.html)
+3. **Mightier Than The Sword**, *Jeffrey Archer*, Pan Macmillan, 2015. [(review)](http://www.bibliotheca.in/2016/01/book-review-mightier-than-sword.html)
+4. **All My Friends are Superheroes**, *Andrew Kaufman*, Telegram Books, 2006. [(review)](http://www.bibliotheca.in/2016/02/book-review-all-my-friends-are.html)
+5. **Scion of Ikshvaku**, *Amish Tripathi*, Westland Books, 2015. [(review)](http://www.bibliotheca.in/2016/02/scion-of-ikshvaku-first-installment-of.html)
+6. **Cometh The Hour**, *Jeffrey Archer*, Pan Macmillan, 2016.
+7. **Jonathan Livingston Seagull: A Story**, *Richard Bach*, Element, 2003.
+8. **Flatland: A Romance of Many Dimensions**, *Edwin A. Abbott*, Penguin Books, 1998.
+9. **Uncle Petros and Goldbach’s Conjecture: A Novel of Mathematical Obsession**, *Apostolos Doxiadis*, Bloomsbury USA, 2010.
+10. **The Sense of an Ending**, *Julian Barnes*, Alfred A. Knopf, 2011.
+11. **The Reluctant Fundamentalist**, *Mohsin Hamid*, Penguin Books, 2007.
+12. **Jonathan Livingston Seagull: A Story, The Complete Edition**, *Richard Bach*, Harper Thorsons, 2015.
+13. **One Indian Girl**, *Chetan Bhagat*, Rupa, 2016.
+14. **This was a Man**, *Jeffrey Archer*, Pan Macmillan, 2016.
+15. **Remember Death**, *Ankush Saikia*, Penguin India, 2016. [(review)](http://www.bibliotheca.in/2017/02/remember-death-by-ankush-saikia-book.html)
+16. **The Vegetarian**, *Han Kang (Tranlated by Deborah Smith)*, Portobello Books, 2016.
+17. **Strangers**, *Omair Tarique*, Moments Publications, 2017.
+18. **Falling in love again: Stories of Love and Romance**, *Ruskin Bond*, Rupa, 2016.
+19. **The Little Prince**, *Antoine de Saint-Exupéry*, Om Books International, 2016.
+20. **Revelations of an Imperfect Life**, *Sankhya Samhita*, Readomania, 2017.
+21. **The Pregnant King**, *Devdutt Pattanaik*, Penguin Books India, 2008.
+22. **Red River, Blue Hills**, *Ankush Saikia*, Westland ltd., 2015.
+23. **The Girl from Nongrim Hills**, *Ankush Saikia*, Penguin India, 2013.
+24. **The Outsider**, *Albert Camus (Translated by Sandra Smith)*, Penguin Classics, 2013.
+25. **The Tobacconist**, *Robert Seethaler (Translated by Charlotte Collins)*, Picador, 2017.
+26. **No Direction Rome**, *Kaushik Barua*, Fourth Estate, 2015.
+27. **The Spy**, *Paulo Coelho (Translated by Zoë Perry)*, Vintage, 2016.
+28. **Tell Tale**, *Jeffrey Archer*, Pan Macmillan, 2017.
+29. **Chess**, *Stefan Zweig (Translated by Anthea Bell)*, Penguin Classics, 2017.
+30. **More Bodies Will Fall**, *Ankush Saikia*, Penguin Books, 2018.
+31. **Twilight in Delhi**, *Ahmed Ali*, Rupa, 2017.
+32. ** **A Horse Walks into a Bar**, *David Grossman (Translated by Jessica Cohen)*, Jonathan Cape, 2016.
+33. **The Old Man and The Sea**, *Ernest Hemingway*, Arrow Books, 2004.
+34. **Heads You Win**, *Jeffrey Archer*, Pan Macmillan, 2018.
+35. **Of Mice and Men**, *John Steinbeck*, Penguin Books, 1993.
+36. **His Father's Disease: Stories**, *Aruni Kashyap*, Context, 2019.
+37. **Lot No. 249**, *Arthur Conan Doyle*, Penguin Little Black Classics, 2016.
+38. **How Much Land Does A Man Need?**, *Leo Tolstoy*, Penguin Little Black Classics, 2015.
+39. **A Madman Dreams of Turing Machines**, *Janna Levin*, Anchor Books, 2006.
+40. **Origin**, *Dan Brown*, Corgi Books, 2018.
+41. **The Palace of Illusions**, *Chitra Banerjee Divakaruni*, Picador, 2009.
+42. **The tattooist of Auschwitz**, *Heather Morris*, Zaffre, 2018.
+43. **Nothing Ventured**, *Jeffrey Archer*, Pan Macmillan, 2019.
+44. **Life Over Two Beers: And Other Stories**, *Sanjeev Sanyal*, Penguin Random House, 2018.
+45. **Next Door: Stories**, *Jahnavi Barua*, Penguin Books India, 2008.
+46. **The Thing Around Your Neck**, *Chimamanda Ngozi Adichie*, W. F. Howes Ltd., 2009.
+47. **A Good Hanging and other stories**, *Ian Rankin*, Orion Books Ltd., 1998.
+48. **Fräulein Else: A Novel**, *Arthur Schnitzler (Translated by Robert A. Simon)*, Simon and Schuster, 1971.
+49. **The Cuckoo's Calling**, *Robert Galbraith*, Sphere, 2014.
+50. **The Fourth Estate**, *Jeffrey Archer*, HarperCollins, 1996.
+51. **As the Crow Flies**, *Jeffrey Archer*, BCA, 1991.
+52. **The Last Juror**, *John Grisham*, Arrow Books, 2004.
+53. **Chinatown Days**, *Rita Chowdhury*, Macmillan, 2018.
+54. **The Ministry of Utmost Happiness**, *Arundhati Roy*, Hamish Hamilton, 2017.
+55. **Murder on the Orient Express**, *Agatha Christie*, HarperCollins, 2017.
+56. **Undertow**, *Jahnavi Barua*, Penguin Books India, 2020.
+57. **The Tales of Beedle the Bard**, *J. K. Rowling*, Pottermore, 2016.
+58. **Hidden in Plain Sight**, *Jeffrey Archer*, Macmillan, 2020.
+59. **A Matter of Honour**, *Jeffrey Archer*, Reader's Digest Condensed Books, 1986.
+60. **A Prisoner of Birth**, *Jeffrey Archer*, Pan Books, 2008.
+61. **Not a Penny More, Not a Penny Less**, *Jeffrey Archer*, Coronet Books, 1985.
+62. **Adua**, *Igiaba Scego (Translated by Jamie Richards)*, New Vessel Press, 2017.
+63. **Booked to Die: A Mystery Introducing Cliff Janeway**, *John Dunning*, Scribner, 1992.
+64. **The Bookman’s Wake: A Mystery with Cliff Janeway**, *John Dunning*, Scribner, 1995.
+65. **Bookscout**, *John Dunning*, MysteriousPress.com & Open Road, 2013.
+66. **Perelman's Refusal: A Novel**, *Philippe Zaouati (Translated by Rachel Zerner)*, American Mathematical Society, 2021. [(review)](https://www.maa.org/press/maa-reviews/perelmans-refusal-a-novel)
+67. **Twenty-Four Hours in the Life of a Woman**, *Stefan Zweig (Translated by Anthea Bell)*, Pushkin Press, 2016.
+68. **Maigret’s Holiday**, *Georges Simenon (Translated by Ros Schwartz)*, Penguin Books, 2016.
+69. **The Children's Block: Based on a true story by an Auschwitz survivor**, *Otto B. Kraus*, Ebury Press, 2019.
+70. **The Bookman’s Promise: A Cliff Janeway Novel**, *John Dunning*, Scribner, 2004.
+71. **My Son the Fanatic**, *Hanif Kureishi*, Faber and Faber Limited, 2019.
+72. **Her Lockdown Story: Collection of Short Stories from Assam**, *Shreejata Gupta (Banamallika Choudhury Ed.)*, Women’s Leadership Training Centre & NEthing, 2021.
+73. **The Sign of the Book: A Cliff Janeway Bookman Novel**, *John Dunning*, Scribner, 2005.
+74. **The Dancing Village**, *Easterine Kire (Ilustrated by Akuo Miachieo)*, Barkweaver, 2015.
+75. **The Parrot and the Merchant**, *Ali Seidabadi (Translated by Azita Rassi)*, Puffin Books, 2019.
+
+
+## Graphic Books
+
+1. **Feynman**, *Jim Ottaviani and Leland Myrick*, First Second, New York, 2011. [(review)](http://gonitsora.com/book-review-feynman/)
+2. **All my friends are still dead**, *Avery Monsen and Jory John*, Chronicle Books, 2012.
+3. **All my friends are dead**, *Avery Monsen and Jory John*, Chronicle Books, 2010.
+4. **Logicomix: An Epic Search for Truth**, *Apostolos Doxiadis and Christos H. Papadimitriou (Art by Alecos Papadatos and Annie Di Donna)*, Bloomsbury, 2009.
+5. **Peanuts: The misfortunes of Charlie Brown**, *Charles M. Schulz*, Hodder and Stoughton, 1978.
+6. **Trinity: A Graphic History of the First Atomic Bomb**, *Jonathan Fetter-Vorm*, Hill and Wang, 2013.
+7. **A boy named Charlie Brown**, *Charles M. Schulz*, Brockhampton Press, 1970.
+8. **The New Yorker 1950-1955 Album**, Hamish Hamilton, 1955.
+9. **Masters of Abstraction**, *Peter Badge*, Heidelberg Laureate Forum Foundation, 2015.
+10. **Tragidoodles**, *Ben Cameron*, Unbound, 2016.
+11. **The Very Best of The Common Man**, *R. K. Laxman*, Penguin Books India, 2012.
+12. **Telling It Like It Isn't**, *Scott Adams*, Boxtree, 1997.
+13. **The Story of BREXIT**, *J. A. Hazeley and J. P. Morris*, Penguin Books, 2018.
+14. **Brexit: Join The F@@@ing Dots**, *Jamie Whyte*, Pyramid, 2018.
+15. **Famous Cities of the World: Florence**, *Lazzaro Donati*, Spring Books, 1964.
+16. **Persepolis: The Story of a Childhood and The Story of a Return**, *Marjane Satrapi (Translated by Anjali Singh)*, Vintage, 2008.
+17. **Famous Cities of the World: Vienna**, *Alfred Cermak*, Spring Books, 1966.
+18. **Tamlin**, *Aven Wildsmith*, Knight Errant Press, 2021.
+19. **Sketches of Western Ukraine: August 2015**, *Simon Harchun*, Clio Editions, 2015.
+20. **The Complete Maus**, *Art Spiegelman*, Penguin Books, 2003.
+21. **Erotic art of India**, *Philip Rawson*, Universe Books, 1977.
+22. **All Quiet in Vikaspuri**, *Sarnath Banerjee*, HarperCollins Publishers India, 2015.
+
+
+## Poetry
+
+1. **Away from Shore**, *Mary McCormack Deka*, CreateSpace Independent Publishing Platform, 2016.
+2. **Nonsense**, *Edward Lear*, Penguin Little Black Classics, 2016.
+3. **The World's Best Limericks**, *Richard Floethe (Illustrator)*, The Peter Pauper Press, 1951.
+4. **The Eve of St Agnes**, *John Keats*, Penguin Books, 2015.
+5. **The Beautiful Poetry of Donald Trump**, *Rob Sears*, Cannongate, 2017.
+
+
+## Mixed
+
+1. **Not a Nice Man to Know: The Best of Khushwant Singh**, *Khushwant Singh*, Penguin Books, 1993.
+2. **I love you madly**, *Helen Exley (ed.), Liz Smith and Caroline Gardner (Illustrators)*, Helen Exley Giftbooks, 2005.
+3. **Insider Outsider: Belonging and Unbelonging in North-East India**, *Preeti Gill and Samrat (eds.)*, Amaryllis, 2018.
+4. **A Passion for Books: A Book Lover's Treasury of Stories, Essays, Homor, Lore and Lists on Collecting, Reading, Borrowing, Lending, Caring for, and Appreciating Books**, *Harold Rabinowitz and Bob Kaplan (eds.)*, Three Rivers Press, 1999.
+5. **Race**, *Toni Morrison*, Vintage, 2017.
+6. **I'd Rather Be Reading: A Library of Art for Book Lovers**, *Guinevere de la Mare*, Chronicle Books, 2017.
+7. **Forgotten Bookmarks: A Bookseller's Collection of Odd Things Lost Between the Pages**, *Michael Popek*, Perigee, 2011.
+8. ** **An Economist’s Miscellany: From the Groves of Academe to the Slopes of Raisina Hill**, *Kaushik Basu*, Oxford University Press, 2020.
diff --git a/chicken-jokes.md b/chicken-jokes.md
new file mode 100644
index 0000000000..1bd0deb175
--- /dev/null
+++ b/chicken-jokes.md
@@ -0,0 +1,36 @@
+---
+layout: page
+title: Chicken Jokes
+description: In aid of comic relief.
+mathjax: true
+background: '/img/jokes.jpeg'
+permalink: /chicken-jokes/
+---
+
+>The plan here is to collect some chicken jokes, inspired by David Morin’s [similar thing with physicists](https://www.physics.harvard.edu/undergrad/humor). I try to answer the age old question of *Why did the chicken cross the road?* from the perspective of different mathematicians.
+
+**John Nash**: Because the chicken always does what is best for the chicken. The chicken does not care for the group.
+
+**Newton**: Because the chicken does not understand what a vector is.
+
+**Pythagoras**: Because the chicken’s angle was not right.
+
+**Fermat**: I know the answer, but this message is too short to write it.
+
+**Ramanujan**: I don’t know. The chicken is finite. I know infinity.
+
+**Serge Lang**: I leave it as an exercise to the reader.
+
+**Erdös**: Because he wanted to write a joint paper with me.
+
+**Mandelbrot**: The chicken crossed the road because the chicken crossed the road because the chicken crossed the road….
+
+**Alan Turing**: It is an enigma to me.
+
+**C. L. Dodgson**: Alice is also wondering the same.
+
+**Möbius**: She didn’t, she just got back to where she started.
+
+**Penrose**: Because she couldn’t climb the stairs.
+
+**Stephen Hawking**: Because the black hole in the pavement bothered her.
diff --git a/contact.html b/contact.html
deleted file mode 100644
index e23d22616e..0000000000
--- a/contact.html
+++ /dev/null
@@ -1,44 +0,0 @@
----
-layout: page
-title: Contact Me
-description: Have questions? I have answers.
-background: '/img/bg-contact.jpg'
-form: true
----
-
-Want to get in touch? Fill out the form below to send me a message and I will get back to you as soon as possible!
-
diff --git a/contact.md b/contact.md
new file mode 100644
index 0000000000..083a12c734
--- /dev/null
+++ b/contact.md
@@ -0,0 +1,25 @@
+---
+layout: page
+title: Contact Me
+description: Ways to contact me.
+background: '/img/bg-default.jpg'
+permalink: /contact/
+---
+## Address >> Current Office
+
+F-7, Faculty Block - II
+Indian Institute of Information Technology Manipur
+City Campus, Mantripukhri
+Imphal 795002
+India
+
+## Address >> Current Mailing/Permanent
+
+House Number 465
+B. B. Road, Baraholia
+Tezpur 784001, Assam
+India
+
+## Email
+
+[Check this](/email)
diff --git a/cv/New_CV_2022.pdf b/cv/New_CV_2022.pdf
new file mode 100644
index 0000000000..9b1c63470e
Binary files /dev/null and b/cv/New_CV_2022.pdf differ
diff --git a/cv/index.md b/cv/index.md
new file mode 100644
index 0000000000..1419a519e2
--- /dev/null
+++ b/cv/index.md
@@ -0,0 +1,2 @@
+
+Nothing here! Click on the menu items.
diff --git a/downloads/Gonit_Sora_Internship.pdf b/downloads/Gonit_Sora_Internship.pdf
new file mode 100644
index 0000000000..5ea819c7a6
Binary files /dev/null and b/downloads/Gonit_Sora_Internship.pdf differ
diff --git a/downloads/Screenshot 2021-05-11 at 17.53.21.png b/downloads/Screenshot 2021-05-11 at 17.53.21.png
new file mode 100644
index 0000000000..59c0556bd4
Binary files /dev/null and b/downloads/Screenshot 2021-05-11 at 17.53.21.png differ
diff --git a/downloads/Xomidhan%20Draft%20Template.zip b/downloads/Xomidhan%20Draft%20Template.zip
new file mode 100644
index 0000000000..48408d37c4
Binary files /dev/null and b/downloads/Xomidhan%20Draft%20Template.zip differ
diff --git a/downloads/iiit-jee.pdf b/downloads/iiit-jee.pdf
new file mode 100644
index 0000000000..2038baf0ac
Binary files /dev/null and b/downloads/iiit-jee.pdf differ
diff --git a/downloads/index.md b/downloads/index.md
new file mode 100644
index 0000000000..1419a519e2
--- /dev/null
+++ b/downloads/index.md
@@ -0,0 +1,2 @@
+
+Nothing here! Click on the menu items.
diff --git a/downloads/travel-axom.pdf b/downloads/travel-axom.pdf
new file mode 100644
index 0000000000..7aebf7eb88
Binary files /dev/null and b/downloads/travel-axom.pdf differ
diff --git a/email.md b/email.md
new file mode 100644
index 0000000000..8eadbf5a19
--- /dev/null
+++ b/email.md
@@ -0,0 +1,17 @@
+---
+layout: page
+title: Email Me
+description: Ways to email me.
+background: '/img/writing.jpg'
+permalink: /email/
+---
+
+If you wish to email me regarding my **official work at IIIT Manipur**, then please use my office email id: **manjil[at]iiitmanipur.ac.in**. (*I check this email account everyday and reply to emails at least once everyday.*)
+
+If you wish to email me regarding my **work at [Gonit Sora](https://gonitsora.com)**, then please use my Gonit Sora email id: **manjil[at]gonitsora.com**. (*I check this email account everyday and reply to emails at least once everyday.*)
+
+If you wish to email me regarding any **other work related to mathematics or academics**, then please use my personal email id: **manjil[at]saikia.in**. (*I check this email account once every two days and reply to emails as soon as I see them.*)
+
+**I no longer respond to emails sent to any other email id.**
+
+*I sometimes segregate my email replies, so you might receive a reply from a different email id than the one you sent your email to.*
diff --git a/google918213d678bcef30.html b/google918213d678bcef30.html
new file mode 100644
index 0000000000..8398e66ad4
--- /dev/null
+++ b/google918213d678bcef30.html
@@ -0,0 +1 @@
+google-site-verification: google918213d678bcef30.html
diff --git a/img/bg-about.jpg b/img/bg-about.jpg
deleted file mode 100644
index cd5302f96b..0000000000
Binary files a/img/bg-about.jpg and /dev/null differ
diff --git a/img/bg-contact.jpg b/img/bg-contact.jpg
deleted file mode 100644
index cf757fabf1..0000000000
Binary files a/img/bg-contact.jpg and /dev/null differ
diff --git a/img/bg-default.jpg b/img/bg-default.jpg
new file mode 100644
index 0000000000..086f543ae1
Binary files /dev/null and b/img/bg-default.jpg differ
diff --git a/img/bg-index.jpg b/img/bg-index.jpg
deleted file mode 100644
index 26cd395b5e..0000000000
Binary files a/img/bg-index.jpg and /dev/null differ
diff --git a/img/bg-post.jpg b/img/bg-post.jpg
deleted file mode 100644
index 4c16287f2b..0000000000
Binary files a/img/bg-post.jpg and /dev/null differ
diff --git a/img/books.jpeg b/img/books.jpeg
new file mode 100644
index 0000000000..9ebb12dcb4
Binary files /dev/null and b/img/books.jpeg differ
diff --git a/img/jokes.jpeg b/img/jokes.jpeg
new file mode 100644
index 0000000000..a3d7e07800
Binary files /dev/null and b/img/jokes.jpeg differ
diff --git a/img/links.jpg b/img/links.jpg
new file mode 100644
index 0000000000..77ec373817
Binary files /dev/null and b/img/links.jpg differ
diff --git a/img/manjil.jpg b/img/manjil.jpg
new file mode 100644
index 0000000000..3647e3b7cd
Binary files /dev/null and b/img/manjil.jpg differ
diff --git a/img/math-institut-entrance.jpg b/img/math-institut-entrance.jpg
new file mode 100644
index 0000000000..520dbcb5dc
Binary files /dev/null and b/img/math-institut-entrance.jpg differ
diff --git a/img/misc.jpg b/img/misc.jpg
new file mode 100644
index 0000000000..7274cd12ff
Binary files /dev/null and b/img/misc.jpg differ
diff --git a/img/olympiads.jpg b/img/olympiads.jpg
new file mode 100644
index 0000000000..52aacd304a
Binary files /dev/null and b/img/olympiads.jpg differ
diff --git a/img/poster.jpg b/img/poster.jpg
new file mode 100644
index 0000000000..538b5d53d9
Binary files /dev/null and b/img/poster.jpg differ
diff --git a/img/posts/01.jpg b/img/posts/01.jpg
deleted file mode 100644
index 955cb25499..0000000000
Binary files a/img/posts/01.jpg and /dev/null differ
diff --git a/img/posts/02.jpg b/img/posts/02.jpg
deleted file mode 100644
index ebb3912c39..0000000000
Binary files a/img/posts/02.jpg and /dev/null differ
diff --git a/img/posts/03.jpg b/img/posts/03.jpg
deleted file mode 100644
index 03fe04abed..0000000000
Binary files a/img/posts/03.jpg and /dev/null differ
diff --git a/img/posts/04.jpg b/img/posts/04.jpg
deleted file mode 100644
index 0860a86838..0000000000
Binary files a/img/posts/04.jpg and /dev/null differ
diff --git a/img/posts/05.jpg b/img/posts/05.jpg
deleted file mode 100644
index ec7833a8e7..0000000000
Binary files a/img/posts/05.jpg and /dev/null differ
diff --git a/img/posts/06.jpg b/img/posts/06.jpg
deleted file mode 100644
index a837ee7cca..0000000000
Binary files a/img/posts/06.jpg and /dev/null differ
diff --git a/img/quiz.jpg b/img/quiz.jpg
new file mode 100644
index 0000000000..95c76eefba
Binary files /dev/null and b/img/quiz.jpg differ
diff --git a/img/quotes.jpg b/img/quotes.jpg
new file mode 100644
index 0000000000..d1fb707f54
Binary files /dev/null and b/img/quotes.jpg differ
diff --git a/img/research.jpeg b/img/research.jpeg
new file mode 100644
index 0000000000..bba578e1b8
Binary files /dev/null and b/img/research.jpeg differ
diff --git a/img/study.jpg b/img/study.jpg
new file mode 100644
index 0000000000..b142387364
Binary files /dev/null and b/img/study.jpg differ
diff --git a/img/talks.jpeg b/img/talks.jpeg
new file mode 100644
index 0000000000..6d21f7d83f
Binary files /dev/null and b/img/talks.jpeg differ
diff --git a/img/teaching.jpg b/img/teaching.jpg
new file mode 100644
index 0000000000..0636a7a0bd
Binary files /dev/null and b/img/teaching.jpg differ
diff --git a/img/unesco.jpg b/img/unesco.jpg
new file mode 100644
index 0000000000..84c19dd030
Binary files /dev/null and b/img/unesco.jpg differ
diff --git a/img/writing.jpg b/img/writing.jpg
new file mode 100644
index 0000000000..d1fb707f54
Binary files /dev/null and b/img/writing.jpg differ
diff --git a/index.html b/index.html
index 9fcc79a236..2b5f3b9d55 100644
--- a/index.html
+++ b/index.html
@@ -1,4 +1,53 @@
---
-layout: home
-background: '/img/bg-index.jpg'
+layout: page
+title:
+description: Personal Homepage
+background: '/img/bg-default.jpg'
+order: 1
---
+
+
+
Short CV
+
+
+ Dec 2022 - present: Assistant Professor (Guest) , Department of Humanities and Basic Sciences, Indian Institute of Information Technology Senapti
+Nov 2019 - Oct 2022: Research Associate , School of Mathematics , Cardiff University
+Sep 2015 - Sep 2019: Doctoral Studies in Mathematics , Faculty of Mathematics , University of Vienna
+ Sep 2014 - Aug 2015: Postgraduate Diploma in Mathematics , The Abdus Salam International Centre for Theoretical Physics
+Aug 2009 - Jun 2014: Integrated Masters in Mathematics , Department of Mathematical Sciences , Tezpur University
+
+
+
My Full CV is available here .
+
+
+
Seminars
+
+
I organize a (not so frequent) research seminar on integer partitions. For more details please click here .
+
+
In the past, I co-organized a seminar for early career Indian mathematicians, for more details please click here .
+
+
+
Gonit Sora
+I am proud of a project that I and
Pankaj Jyoti Mahanta initiated called Gonit Sora (meaning
the gateway to mathematics in Assamese). You can take a look at it
here.
+
+
here .
+ Posts by tags can be found by clicking one of the following links.
+
+
+ {{ tag[0] }} |
+
+ {% endfor %}
+
+Otherwise, all posts are listed below.
+
+
diff --git a/publ/Manjil-Thesis.pdf b/publ/Manjil-Thesis.pdf
new file mode 100644
index 0000000000..ab09e7fc66
Binary files /dev/null and b/publ/Manjil-Thesis.pdf differ
diff --git a/publ/opt-ds.nb b/publ/opt-ds.nb
new file mode 100644
index 0000000000..f647f72a53
--- /dev/null
+++ b/publ/opt-ds.nb
@@ -0,0 +1,4741 @@
+(* Content-type: application/vnd.wolfram.mathematica *)
+
+(*** Wolfram Notebook File ***)
+(* http://www.wolfram.com/nb *)
+
+(* CreatedBy='Mathematica 12.3' *)
+
+(*CacheID: 234*)
+(* Internal cache information:
+NotebookFileLineBreakTest
+NotebookFileLineBreakTest
+NotebookDataPosition[ 158, 7]
+NotebookDataLength[ 185680, 4733]
+NotebookOptionsPosition[ 172278, 4504]
+NotebookOutlinePosition[ 172671, 4520]
+CellTagsIndexPosition[ 172628, 4517]
+WindowFrame->Normal*)
+
+(* Beginning of Notebook Content *)
+Notebook[{
+Cell[BoxData[
+ RowBox[{"<<", "RaduRK.m"}]], "Input",
+ CellChangeTimes->{{3.882425037649334*^9, 3.882425039803794*^9}},
+ CellLabel->"In[1]:=",ExpressionUUID->"37ba1634-87ce-4891-a5ef-3e659d1f0bb9"],
+
+Cell["\<\
+math4ti2: Mathematica interface to 4ti2 (http://www.4ti2.de/)
+Copyright (C) 2017, Ralf Hemmecke
+Copyright (C) 2017, Silviu Radu \
+\>", "Text",
+ CellFrame->0.5,
+ GeneratedCell->True,
+ CellAutoOverwrite->True,
+ CellChangeTimes->{3.882425040245846*^9},
+ ShowAutoSpellCheck->False,
+ FontColor->RGBColor[0, 0, 0],
+ Background->RGBColor[
+ 0.796887, 0.789075,
+ 0.871107],ExpressionUUID->"3ef5e832-f534-477e-9ec8-91e016e013fb"],
+
+Cell["\<\
+RaduRK: Ramanujan--Kolberg Program Version 2.8
+Copyright (C) 2020, Nicolas Allen Smoot
+Research Institute for Symbolic Computation
+Johannes Kepler Universit\[ADoubleDot]t, Linz\
+\>", "Text",
+ CellFrame->0.5,
+ GeneratedCell->True,
+ CellAutoOverwrite->True,
+ CellChangeTimes->{3.882425040264998*^9},
+ ShowAutoSpellCheck->False,
+ FontColor->RGBColor[0, 0, 0],
+ Background->RGBColor[
+ 0.796887, 0.789075,
+ 0.871107],ExpressionUUID->"cf57d632-2f80-4f44-9bfc-f375cf29133d"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"SetVar2", "[", "t", "]"}], ",",
+ RowBox[{"SetVar1", "[", "q", "]"}]}], "}"}]], "Input",
+ CellChangeTimes->{{3.882425041545331*^9, 3.882425050117819*^9}},
+ CellLabel->"In[2]:=",ExpressionUUID->"114be233-9187-40db-82bc-1697bfa83b0e"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"t", ",", "q"}], "}"}]], "Output",
+ CellChangeTimes->{3.882425050489479*^9},
+ CellLabel->"Out[2]=",ExpressionUUID->"8a2ad6e3-0623-43b3-8bf0-ea02c1002ad2"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"minN", "[",
+ RowBox[{"4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}], ",", "8", ",", "i"}], "]"}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "0", ",", "7"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.882448311847341*^9, 3.882448314795233*^9}},
+ CellLabel->
+ "In[138]:=",ExpressionUUID->"cff551ca-0ad7-43ce-8848-9c567f12e101"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ "8", ",", "8", ",", "8", ",", "8", ",", "8", ",", "8", ",", "8", ",", "8"}],
+ "}"}]], "Output",
+ CellChangeTimes->{3.882448315328066*^9},
+ CellLabel->
+ "Out[138]=",ExpressionUUID->"cb274cdd-671f-48d6-a96e-e3a9f931f81d"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Timing", "[",
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}], ",", "8", ",", "2"}], "]"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.882448387800688*^9, 3.882448387919112*^9}},
+ CellLabel->
+ "In[140]:=",ExpressionUUID->"81bb086b-75d5-4c72-a65b-ea7229a1d956"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.882448388871511*^9},
+ CellLabel->
+ "During evaluation of \
+In[140]:=",ExpressionUUID->"2b61c122-b65c-44af-8e78-f8cd2dd662da"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.882448388873719*^9},
+ CellLabel->
+ "During evaluation of \
+In[140]:=",ExpressionUUID->"67ebd2e4-7177-4d58-a6fe-71c0ff8a02fd"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.882448388876625*^9},
+ CellLabel->
+ "During evaluation of \
+In[140]:=",ExpressionUUID->"754be9af-e92d-41f4-9624-ade13ba813c8"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"3.876333`", ",",
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "8"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "2", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "24"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "15"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "6"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "13"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "26"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): \
+g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"219136", " ", "t"}], "+",
+ RowBox[{"735744", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"446208", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"84288", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"4152", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"18", " ",
+ SuperscriptBox["t", "6"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "2"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]}], "}"}]], "Output",
+ CellChangeTimes->{3.882448392713916*^9},
+ CellLabel->
+ "Out[140]=",ExpressionUUID->"3a721f2d-861d-4bea-9524-a7b27ca2f6db"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Timing", "[",
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}], ",", "8", ",", "3"}], "]"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.882448414042308*^9, 3.882448414193572*^9}},
+ CellLabel->
+ "In[141]:=",ExpressionUUID->"5f6702b6-4a91-4eda-bb22-2ae00bc8bb18"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.882448414725462*^9},
+ CellLabel->
+ "During evaluation of \
+In[141]:=",ExpressionUUID->"124b1fd5-34e6-4cb6-b899-ed3fc5222ef9"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.8824484147277613`*^9},
+ CellLabel->
+ "During evaluation of \
+In[141]:=",ExpressionUUID->"01da00f4-fb37-4a4e-bd7a-3f2908e6707f"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.882448414730379*^9},
+ CellLabel->
+ "During evaluation of \
+In[141]:=",ExpressionUUID->"1e0b429b-0810-401c-8a4b-efec309cdd00"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"3.889775`", ",",
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "8"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "3", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "21"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "18"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "7"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "7"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "32"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): \
+g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"180224", " ", "t"}], "+",
+ RowBox[{"1744896", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"2085888", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"830464", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"130368", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"6816", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"44", " ",
+ SuperscriptBox["t", "7"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "4"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]}], "}"}]], "Output",
+ CellChangeTimes->{3.8824484185809526`*^9},
+ CellLabel->
+ "Out[141]=",ExpressionUUID->"aa823459-77d1-43c2-93ca-b2a312981e29"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Timing", "[",
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}], ",", "8", ",", "4"}], "]"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.882448441623691*^9, 3.882448441813582*^9}},
+ CellLabel->
+ "In[142]:=",ExpressionUUID->"892c4129-63b4-43b3-8c73-6c448dce13ab"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.8824484422397013`*^9},
+ CellLabel->
+ "During evaluation of \
+In[142]:=",ExpressionUUID->"8ea59352-a8ae-458b-8040-2a5be557a37c"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.882448442241781*^9},
+ CellLabel->
+ "During evaluation of \
+In[142]:=",ExpressionUUID->"9831b45f-08c0-4354-806c-d2d562ef5e3e"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.882448442244338*^9},
+ CellLabel->
+ "During evaluation of \
+In[142]:=",ExpressionUUID->"757d9e40-3bba-45d7-8979-129e0f3b6d83"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"3.87091`", ",",
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "8"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "4", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "22"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "11"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "6"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "7"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "26"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): \
+g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{"8192", "+",
+ RowBox[{"753664", " ", "t"}], "+",
+ RowBox[{"1561088", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"832512", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"162912", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"10560", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"102", " ",
+ SuperscriptBox["t", "6"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "2"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]}], "}"}]], "Output",
+ CellChangeTimes->{3.8824484460748787`*^9},
+ CellLabel->
+ "Out[142]=",ExpressionUUID->"7e5595a6-0c5a-4883-a7e7-e31a175f3aa4"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Timing", "[",
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}], ",", "8", ",", "5"}], "]"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.882448475344808*^9, 3.882448475583619*^9}},
+ CellLabel->
+ "In[143]:=",ExpressionUUID->"9d3bdad0-bc13-452c-b6cc-219b9931239d"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.8824484760693617`*^9},
+ CellLabel->
+ "During evaluation of \
+In[143]:=",ExpressionUUID->"8b753bed-80ef-4d85-9ee0-428e980f0fb1"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.882448476071837*^9},
+ CellLabel->
+ "During evaluation of \
+In[143]:=",ExpressionUUID->"1c19cabe-95c3-41c3-bfe6-21c195bef2f0"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.882448476074232*^9},
+ CellLabel->
+ "During evaluation of \
+In[143]:=",ExpressionUUID->"dd0aa726-f9fb-4de9-88d2-ab982f24f3f1"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"3.907182`", ",",
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "8"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "5", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "23"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "16"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "6"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "11"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "28"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): \
+g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"221184", " ", "t"}], "+",
+ RowBox[{"1013760", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"781312", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"195328", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"15840", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"216", " ",
+ SuperscriptBox["t", "6"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "8"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]}], "}"}]], "Output",
+ CellChangeTimes->{3.882448479943445*^9},
+ CellLabel->
+ "Out[143]=",ExpressionUUID->"992461a1-c854-4068-bbbc-e837b0282466"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Timing", "[",
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}], ",", "8", ",", "6"}], "]"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.8824484993544683`*^9, 3.882448499729402*^9}},
+ CellLabel->
+ "In[144]:=",ExpressionUUID->"b50fe3d4-5d78-46a2-8e54-f25e78ff078c"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.8824485003333197`*^9},
+ CellLabel->
+ "During evaluation of \
+In[144]:=",ExpressionUUID->"5aa19910-7ea1-4501-9f08-ff24c09062c1"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.882448500335718*^9},
+ CellLabel->
+ "During evaluation of \
+In[144]:=",ExpressionUUID->"de0825aa-7876-483f-94ea-e43071064f4a"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.8824485003382683`*^9},
+ CellLabel->
+ "During evaluation of \
+In[144]:=",ExpressionUUID->"884877dd-9dae-41c6-8c1c-052d0579552e"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"3.874826`", ",",
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "8"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "6", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "24"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "21"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "6"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "15"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "30"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): \
+g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"36864", " ", "t"}], "+",
+ RowBox[{"531456", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"674304", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"223104", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"22992", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"428", " ",
+ SuperscriptBox["t", "6"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "4"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]}], "}"}]], "Output",
+ CellChangeTimes->{3.882448504172813*^9},
+ CellLabel->
+ "Out[144]=",ExpressionUUID->"f363bb73-c56c-4708-8f87-f8890b91017d"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"minN", "[",
+ RowBox[{"4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}], ",", "16", ",", "i"}], "]"}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "0", ",", "15"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.882425052301776*^9, 3.882425074557695*^9},
+ 3.882433221818407*^9, 3.8824484101249113`*^9},
+ CellLabel->"In[62]:=",ExpressionUUID->"0ad79311-0a1b-4128-bac8-5b1bbd5e50cd"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ "8", ",", "16", ",", "8", ",", "16", ",", "8", ",", "16", ",", "8", ",",
+ "16", ",", "8", ",", "16", ",", "8", ",", "16", ",", "8", ",", "16", ",",
+ "8", ",", "16"}], "}"}]], "Output",
+ CellChangeTimes->{
+ 3.882425074980021*^9, {3.882433222434367*^9, 3.882433227482799*^9},
+ 3.882433342518394*^9},
+ CellLabel->"Out[62]=",ExpressionUUID->"50a45cdd-e0c0-4def-ae6e-c53b7a7c3f7c"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Timing", "[",
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}], ",", "16", ",", "8"}], "]"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.882433598702147*^9, 3.882433600950247*^9}},
+ CellLabel->"In[71]:=",ExpressionUUID->"26715881-ff39-49fa-a2b5-9d4ac4019daa"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.8824336014269447`*^9},
+ CellLabel->
+ "During evaluation of \
+In[71]:=",ExpressionUUID->"d09be5e0-eb06-4cbd-a108-9ba11155c2d5"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.882433601428646*^9},
+ CellLabel->
+ "During evaluation of \
+In[71]:=",ExpressionUUID->"728c0d9a-1db8-40ed-add0-71530620ca21"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.882433601430985*^9},
+ CellLabel->
+ "During evaluation of \
+In[71]:=",ExpressionUUID->"9a104e72-d705-4359-b2fc-306b1ff0ba2e"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"4.010573`", ",",
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "16"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "8", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "46"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "23"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "12"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "19"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "50"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): \
+g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{"33554432", "+",
+ RowBox[{"170741727232", " ", "t"}], "+",
+ RowBox[{"3263839600640", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"12982238052352", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"19310491860992", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"13778009325568", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"5303647666176", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"1149523746816", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"138367772160", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"8571663616", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"230077184", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"1850608", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"1494", " ",
+ SuperscriptBox["t", "12"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "2"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]}], "}"}]], "Output",
+ CellChangeTimes->{3.882433605398275*^9},
+ CellLabel->"Out[71]=",ExpressionUUID->"c692cca2-81da-402c-bccf-238a4bd038dd"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Timing", "[",
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}], ",", "16", ",", "12"}], "]"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.882433772788616*^9, 3.882433772926175*^9}},
+ CellLabel->"In[75]:=",ExpressionUUID->"c84d9577-d95f-4e1c-9c9e-35dcaa3da297"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.882433773479289*^9},
+ CellLabel->
+ "During evaluation of \
+In[75]:=",ExpressionUUID->"583fbd35-16f2-454d-a5b4-5fc355343fe5"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.882433773480776*^9},
+ CellLabel->
+ "During evaluation of \
+In[75]:=",ExpressionUUID->"5dc54993-d5b7-4dde-ab85-369c42576dca"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.882433773482299*^9},
+ CellLabel->
+ "During evaluation of \
+In[75]:=",ExpressionUUID->"bedc4722-e744-4df0-b67f-d00b2bd65b0a"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"3.977084`", ",",
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "16"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "12", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "48"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "33"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "12"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "27"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "54"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): \
+g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"855638016", " ", "t"}], "+",
+ RowBox[{"220263874560", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"2556257370112", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"7442458214400", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"8537168019456", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"4722443911168", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"1378238963712", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"215715784704", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"17212636928", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"609817536", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"7139472", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"12804", " ",
+ SuperscriptBox["t", "12"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "4"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]}], "}"}]], "Output",
+ CellChangeTimes->{3.882433777438204*^9},
+ CellLabel->"Out[75]=",ExpressionUUID->"4d20dbb6-9119-4e14-9ca9-e629c0287e65"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Timing", "[",
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}], ",", "16", ",", "14"}], "]"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.882433824498682*^9, 3.882433824701621*^9}},
+ CellLabel->"In[77]:=",ExpressionUUID->"c72d57c4-1fd5-4742-8c2b-b1af462f317c"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.882433826126878*^9},
+ CellLabel->
+ "During evaluation of \
+In[77]:=",ExpressionUUID->"bbf88e2f-abfd-415a-bf9a-fcf0f67e9164"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.882433826128742*^9},
+ CellLabel->
+ "During evaluation of \
+In[77]:=",ExpressionUUID->"d4793d6c-0731-40ee-b888-3ba528f91dc8"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.882433826130765*^9},
+ CellLabel->
+ "During evaluation of \
+In[77]:=",ExpressionUUID->"7ce25113-a13d-4f62-b244-16fd7f3f3d3f"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"3.983889`", ",",
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "16"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "14", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "45"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "24"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "12"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "17"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "52"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): \
+g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"139519328256", " ", "t"}], "+",
+ RowBox[{"3554236432384", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"16642851471360", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"28152280645632", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"22658730688512", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"9893921292288", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"2473480323072", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"354042667008", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"27492461568", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"1015799040", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"13558336", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"33264", " ",
+ SuperscriptBox["t", "12"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "16"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]}], "}"}]], "Output",
+ CellChangeTimes->{3.882433830071686*^9},
+ CellLabel->"Out[77]=",ExpressionUUID->"99590a57-b409-4cc1-917b-b6a81ed4323d"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"minN", "[",
+ RowBox[{"4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}], ",", "32", ",", "i"}], "]"}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "0", ",", "31"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.882434080388616*^9, 3.8824340921413317`*^9}},
+ CellLabel->"In[79]:=",ExpressionUUID->"34399b5d-f304-4e18-a184-f7cfd38e9ddb"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ "8", ",", "32", ",", "16", ",", "32", ",", "8", ",", "32", ",", "16", ",",
+ "32", ",", "8", ",", "32", ",", "16", ",", "32", ",", "8", ",", "32", ",",
+ "16", ",", "32", ",", "8", ",", "32", ",", "16", ",", "32", ",", "8", ",",
+ "32", ",", "16", ",", "32", ",", "8", ",", "32", ",", "16", ",", "32", ",",
+ "8", ",", "32", ",", "16", ",", "32"}], "}"}]], "Output",
+ CellChangeTimes->{3.882434092621307*^9},
+ CellLabel->"Out[79]=",ExpressionUUID->"9dd81663-df1e-4499-bce2-6d928270c2c5"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Timing", "[",
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}], ",", "32", ",", "16"}], "]"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.882438332571154*^9, 3.882438335178439*^9}},
+ CellLabel->"In[88]:=",ExpressionUUID->"97743571-f553-4408-af35-ce039ad48233"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.8824383356007843`*^9},
+ CellLabel->
+ "During evaluation of \
+In[88]:=",ExpressionUUID->"7dd56c56-d0f0-4ca3-a64c-b09dfc9fd5dc"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.882438335602599*^9},
+ CellLabel->
+ "During evaluation of \
+In[88]:=",ExpressionUUID->"650f1066-8b9d-4398-b1e3-7a14281c255e"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.882438335604413*^9},
+ CellLabel->
+ "During evaluation of \
+In[88]:=",ExpressionUUID->"60450305-ec66-4d7a-825a-c80b416063df"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"5.131997`", ",",
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "32"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "16", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "94"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "47"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "24"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "43"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "98"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): \
+g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{"562949953421312", "+",
+ RowBox[{"1007937966227838730240", " ", "t"}], "+",
+ RowBox[{"303999924816527186984960", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"12666125445164076858605568", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"169011902852731329702789120", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"1012406800492388130628829184", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"3260905920071016975823798272", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"6310698106131674752125763584", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"7897984984737340174431682560", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"6722673325671690410978705408", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"4028738752232039232128942080", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"1739126231398855308015042560", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"548180984827769819970404352", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"126876061031763192764694528", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"21522551379668763823570944", " ",
+ SuperscriptBox["t", "14"]}], "+",
+ RowBox[{"2650638318853737880223744", " ",
+ SuperscriptBox["t", "15"]}], "+",
+ RowBox[{"232772693288172239847424", " ",
+ SuperscriptBox["t", "16"]}], "+",
+ RowBox[{"14168775984027436777472", " ",
+ SuperscriptBox["t", "17"]}], "+",
+ RowBox[{"573310029184296566784", " ",
+ SuperscriptBox["t", "18"]}], "+",
+ RowBox[{"14511682545902432256", " ",
+ SuperscriptBox["t", "19"]}], "+",
+ RowBox[{"210050754474405888", " ",
+ SuperscriptBox["t", "20"]}], "+",
+ RowBox[{"1511832674283776", " ",
+ SuperscriptBox["t", "21"]}], "+",
+ RowBox[{"4251419098816", " ",
+ SuperscriptBox["t", "22"]}], "+",
+ RowBox[{"2816514896", " ",
+ SuperscriptBox["t", "23"]}], "+",
+ RowBox[{"81462", " ",
+ SuperscriptBox["t", "24"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "2"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]}], "}"}]], "Output",
+ CellChangeTimes->{3.882438340676304*^9},
+ CellLabel->"Out[88]=",ExpressionUUID->"be5d7e49-3230-46ac-8ae7-a8ca4ef844a7"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Timing", "[",
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}], ",", "32", ",", "20"}], "]"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.8824394775707903`*^9, 3.8824394801205397`*^9}},
+ CellLabel->"In[90]:=",ExpressionUUID->"4ebb06c6-2d7f-4f1a-8adf-d1cf8584914b"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.882439480654131*^9},
+ CellLabel->
+ "During evaluation of \
+In[90]:=",ExpressionUUID->"fed5b4c9-c38b-4733-bcf5-41c2533364a6"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.8824394806558*^9},
+ CellLabel->
+ "During evaluation of \
+In[90]:=",ExpressionUUID->"dd461686-c5d9-4cab-befa-078089243a9c"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.8824394806577682`*^9},
+ CellLabel->
+ "During evaluation of \
+In[90]:=",ExpressionUUID->"6ff7b02d-53a3-49ee-9eaa-4e98fd32cac8"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"5.114831`", ",",
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "32"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "20", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "95"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "52"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "24"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "47"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "100"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): \
+g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"29907842175414042624", " ", "t"}], "+",
+ RowBox[{"34580585323577040961536", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"2594813676622394347749376", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"50177505486973023167709184", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"393346716732641211228094464", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"1562055876893792263609516032", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"3583127720745635800663719936", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"5168586364845620735791595520", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"4966646577450050926046871552", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"3307702437942148273715281920", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"1567767631693752944723755008", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"537567792709659593352937472", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"134391948177414898338234368", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"24496369245214889761308672", " ",
+ SuperscriptBox["t", "14"]}], "+",
+ RowBox[{"3230178162052879173550080", " ",
+ SuperscriptBox["t", "15"]}], "+",
+ RowBox[{"303140049893191584841728", " ",
+ SuperscriptBox["t", "16"]}], "+",
+ RowBox[{"19716592273123248046080", " ",
+ SuperscriptBox["t", "17"]}], "+",
+ RowBox[{"854284219919594717184", " ",
+ SuperscriptBox["t", "18"]}], "+",
+ RowBox[{"23276446415391449088", " ",
+ SuperscriptBox["t", "19"]}], "+",
+ RowBox[{"366332676943988736", " ",
+ SuperscriptBox["t", "20"]}], "+",
+ RowBox[{"2920715224869376", " ",
+ SuperscriptBox["t", "21"]}], "+",
+ RowBox[{"9439877163904", " ",
+ SuperscriptBox["t", "22"]}], "+",
+ RowBox[{"7862714784", " ",
+ SuperscriptBox["t", "23"]}], "+",
+ RowBox[{"425016", " ",
+ SuperscriptBox["t", "24"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "8"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]}], "}"}]], "Output",
+ CellChangeTimes->{3.8824394857117977`*^9},
+ CellLabel->"Out[90]=",ExpressionUUID->"ad899a56-5054-4d55-b88f-cf4714c3331b"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Timing", "[",
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}], ",", "32", ",", "24"}], "]"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.882439592286707*^9, 3.882439596320814*^9}},
+ CellLabel->"In[92]:=",ExpressionUUID->"787b7ec5-d367-4e23-8a80-9184904e3221"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.882439596822267*^9},
+ CellLabel->
+ "During evaluation of \
+In[92]:=",ExpressionUUID->"7229d920-3e91-431c-957d-1cbb153f2ea9"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.882439596824073*^9},
+ CellLabel->
+ "During evaluation of \
+In[92]:=",ExpressionUUID->"1c7d609b-2a3e-43fb-9eef-e9a629ed06e1"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.8824395968259983`*^9},
+ CellLabel->
+ "During evaluation of \
+In[92]:=",ExpressionUUID->"ce7c96e0-abd5-415d-966a-d3a3c44ad9d8"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"5.111023`", ",",
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "32"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "24", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "96"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "57"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "24"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "51"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "102"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): \
+g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"210261807602860032", " ", "t"}], "+",
+ RowBox[{"2786503682824901492736", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"442529439346295322968064", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"13180219952134317951418368", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"139630850410745133998800896", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"697692499563651680589316096", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"1924219548962849798020399104", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"3233423154755658539769790464", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"3536652836276714420161216512", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"2634505319871255510144516096", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"1378078758285917855284199424", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"516126610654609370259652608", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"139825978636327984174202880", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"27455996125636853206351872", " ",
+ SuperscriptBox["t", "14"]}], "+",
+ RowBox[{"3884001474405293728202752", " ",
+ SuperscriptBox["t", "15"]}], "+",
+ RowBox[{"390077201003261276454912", " ",
+ SuperscriptBox["t", "16"]}], "+",
+ RowBox[{"27134757227759406612480", " ",
+ SuperscriptBox["t", "17"]}], "+",
+ RowBox[{"1259438388331559305216", " ",
+ SuperscriptBox["t", "18"]}], "+",
+ RowBox[{"36929106984803119104", " ",
+ SuperscriptBox["t", "19"]}], "+",
+ RowBox[{"631227234906848256", " ",
+ SuperscriptBox["t", "20"]}], "+",
+ RowBox[{"5560032764750080", " ",
+ SuperscriptBox["t", "21"]}], "+",
+ RowBox[{"20529544126272", " ",
+ SuperscriptBox["t", "22"]}], "+",
+ RowBox[{"21133921872", " ",
+ SuperscriptBox["t", "23"]}], "+",
+ RowBox[{"1919332", " ",
+ SuperscriptBox["t", "24"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "4"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]}], "}"}]], "Output",
+ CellChangeTimes->{3.8824396018777647`*^9},
+ CellLabel->"Out[92]=",ExpressionUUID->"ae560d70-c8a4-4ccd-a8ff-b19f337b1660"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Timing", "[",
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}], ",", "32", ",", "28"}], "]"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.882439732838324*^9, 3.882439736034676*^9}},
+ CellLabel->"In[94]:=",ExpressionUUID->"b28d2c4f-eedc-489e-ab89-a2f9657dc270"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.882439736591703*^9},
+ CellLabel->
+ "During evaluation of \
+In[94]:=",ExpressionUUID->"e32b220a-6b88-4a5a-9d64-de5161d4b6ce"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.882439736593555*^9},
+ CellLabel->
+ "During evaluation of \
+In[94]:=",ExpressionUUID->"f9f4feb3-a8b0-4602-b464-d6c43257aa67"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.882439736595429*^9},
+ CellLabel->
+ "During evaluation of \
+In[94]:=",ExpressionUUID->"78f45ee9-13d0-4878-9488-3233165a7dd3"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"5.081537`", ",",
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "32"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "28", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "93"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "48"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "24"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "41"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "100"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): \
+g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"545643745953234026496", " ", "t"}], "+",
+ RowBox[{"241526707913515581046784", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"12093239139877950735777792", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"182262098538872605633413120", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"1198844824222912083222593536", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"4177588607977546422782263296", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"8676148591486982734265450496", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"11605052864474056458577641472", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"10542255391773337992912961536", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"6746320531174087354981810176", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"3116774434815159125866971136", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"1055417738825065763136602112", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"263854434706266440784150528", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"48699600543986861341671424", " ",
+ SuperscriptBox["t", "14"]}], "+",
+ RowBox[{"6588203643724694682599424", " ",
+ SuperscriptBox["t", "15"]}], "+",
+ RowBox[{"643448205064290648981504", " ",
+ SuperscriptBox["t", "16"]}], "+",
+ RowBox[{"44269763429542756876288", " ",
+ SuperscriptBox["t", "17"]}], "+",
+ RowBox[{"2068555019256349261824", " ",
+ SuperscriptBox["t", "18"]}], "+",
+ RowBox[{"62250921249055064064", " ",
+ SuperscriptBox["t", "19"]}], "+",
+ RowBox[{"1116511248259723264", " ",
+ SuperscriptBox["t", "20"]}], "+",
+ RowBox[{"10609050429127680", " ",
+ SuperscriptBox["t", "21"]}], "+",
+ RowBox[{"43994947699968", " ",
+ SuperscriptBox["t", "22"]}], "+",
+ RowBox[{"54916815296", " ",
+ SuperscriptBox["t", "23"]}], "+",
+ RowBox[{"7754064", " ",
+ SuperscriptBox["t", "24"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "16"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]}], "}"}]], "Output",
+ CellChangeTimes->{3.882439741617613*^9},
+ CellLabel->"Out[94]=",ExpressionUUID->"49ad7985-db02-4c65-a249-6044c5250baf"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"minN", "[",
+ RowBox[{"4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}], ",", " ", "3", ",", " ", "i"}], "]"}],
+ ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.882439865724044*^9, 3.88243988342096*^9}},
+ CellLabel->"In[96]:=",ExpressionUUID->"c506b14d-219b-4ced-a94a-4894a5ab1526"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"12", ",", "12", ",", "12"}], "}"}]], "Output",
+ CellChangeTimes->{3.882439883858349*^9},
+ CellLabel->"Out[96]=",ExpressionUUID->"449693f2-9b78-4cc1-9fe2-5a93f5f72aae"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Timing", "[",
+ RowBox[{"RK", "[",
+ RowBox[{"12", ",", "4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}], ",", " ", "3", ",", "1"}], "]"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.882439888849421*^9, 3.882439926977936*^9}, {
+ 3.8824450625025377`*^9,
+ 3.88244506717805*^9}},ExpressionUUID->"fc9592ea-4d67-48be-a817-\
+ede1a0d372ca"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.8824398988626337`*^9, 3.882439927514719*^9}},
+ CellLabel->
+ "During evaluation of \
+In[98]:=",ExpressionUUID->"b8c71257-bfff-407d-b68b-23bea07f8735"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{{3.8824398988626337`*^9, 3.882439927516124*^9}},
+ CellLabel->
+ "During evaluation of \
+In[98]:=",ExpressionUUID->"d06c596d-ae0c-48f7-a626-4f75bd30c138"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{{3.8824398988626337`*^9, 3.882439927517527*^9}},
+ CellLabel->
+ "During evaluation of \
+In[98]:=",ExpressionUUID->"9d8f5408-b75d-4d5b-85ca-2b23f55ea680"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"19.880935`", ",",
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "12"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "3"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "1", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "11"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "6"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "6"],
+ SuperscriptBox["q", "6"], "12"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "4"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "11"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "3"],
+ SuperscriptBox["q", "3"], "3"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "12"],
+ SuperscriptBox["q", "12"], "15"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "6"],
+ SuperscriptBox["q", "6"], "2"},
+ "QPochhammerPower2"]}],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "2"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "12"],
+ SuperscriptBox["q", "12"], "4"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): \
+g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{"18", "-",
+ RowBox[{"36", " ", "t"}], "-",
+ RowBox[{"24", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"36", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"6", " ",
+ SuperscriptBox["t", "4"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "6"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]}], "}"}]], "Output",
+ CellChangeTimes->{{3.882439918933948*^9, 3.882439947301594*^9}},
+ CellLabel->"Out[98]=",ExpressionUUID->"d989f1f9-c81e-4349-ad3f-9b6042447e38"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Timing", "[",
+ RowBox[{"RK", "[",
+ RowBox[{"12", ",", "4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}], ",", " ", "3", ",", "2"}], "]"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.882439955787445*^9, 3.882439955961748*^9}},
+ CellLabel->"In[99]:=",ExpressionUUID->"17c4f094-c0d1-455b-9212-1c1e5906ff2e"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.882439956567522*^9},
+ CellLabel->
+ "During evaluation of \
+In[99]:=",ExpressionUUID->"c850241d-f56b-48bd-890f-c5966d0cd0f8"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.88243995656896*^9},
+ CellLabel->
+ "During evaluation of \
+In[99]:=",ExpressionUUID->"aaca4a5c-07af-4074-955d-43e5378cb0e0"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.8824399565705357`*^9},
+ CellLabel->
+ "During evaluation of \
+In[99]:=",ExpressionUUID->"d0015943-2118-4b9c-9b92-5190ca40a347"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"19.923126`", ",",
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "12"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "3"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "2", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "11"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "5"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "6"],
+ SuperscriptBox["q", "6"], "9"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "3"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "10"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "3"],
+ SuperscriptBox["q", "3"], "3"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "12"],
+ SuperscriptBox["q", "12"], "12"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "6"],
+ SuperscriptBox["q", "6"], "2"},
+ "QPochhammerPower2"]}],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "2"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "12"],
+ SuperscriptBox["q", "12"], "4"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): \
+g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "18"}], "-",
+ RowBox[{"18", " ", "t"}], "+",
+ RowBox[{"18", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"18", " ",
+ SuperscriptBox["t", "3"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "18"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]}], "}"}]], "Output",
+ CellChangeTimes->{3.8824399764011517`*^9},
+ CellLabel->"Out[99]=",ExpressionUUID->"12692e65-d43c-417e-9584-ae47dda38568"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"minN", "[",
+ RowBox[{"4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}], ",", "12", ",", "i"}], "]"}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "0", ",", "11"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.882441646179275*^9, 3.8824416641764402`*^9}, {
+ 3.882441777219078*^9, 3.8824417797008953`*^9}, {3.882441817164735*^9,
+ 3.882441826490007*^9}},
+ CellLabel->
+ "In[115]:=",ExpressionUUID->"f9727676-f1a0-417b-ae85-0472cf57cd5b"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ "24", ",", "24", ",", "24", ",", "24", ",", "24", ",", "24", ",", "24", ",",
+ "24", ",", "24", ",", "24", ",", "24", ",", "24"}], "}"}]], "Output",
+ CellChangeTimes->{
+ 3.882441664894562*^9, 3.882441780227306*^9, {3.882441819770835*^9,
+ 3.882441826890182*^9}},
+ CellLabel->
+ "Out[115]=",ExpressionUUID->"592a1203-3e96-408d-84b1-a551d2cec1f4"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Timing", "[",
+ RowBox[{"RK", "[",
+ RowBox[{"24", ",", "4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}], ",", "12", ",", "3"}], "]"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.882441702784224*^9, 3.882441714659369*^9}, {
+ 3.882441783384503*^9, 3.8824417838221607`*^9}, {3.882441828425668*^9,
+ 3.882441828856668*^9}, {3.882442093909993*^9, 3.882442094032448*^9}},
+ CellLabel->
+ "In[117]:=",ExpressionUUID->"fd8e9c0f-26eb-4d48-a75b-d5a0e4185c7c"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.882441715868582*^9, 3.882441785028894*^9,
+ 3.882441829973043*^9, 3.882442095141726*^9},
+ CellLabel->
+ "During evaluation of \
+In[117]:=",ExpressionUUID->"3869b94b-9172-40e8-893c-f4dec3bddeb4"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.882441715868582*^9, 3.882441785028894*^9,
+ 3.882441829973043*^9, 3.882442095143054*^9},
+ CellLabel->
+ "During evaluation of \
+In[117]:=",ExpressionUUID->"bd1783ed-0d76-4707-8fcc-f6c8513119e7"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.882441715868582*^9, 3.882441785028894*^9,
+ 3.882441829973043*^9, 3.882442095144372*^9},
+ CellLabel->
+ "During evaluation of \
+In[117]:=",ExpressionUUID->"bd1507d6-522f-4e52-a720-036fa5cddea9"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"213.999426`", ",",
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "24"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "12"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "3", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "40"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "6"],
+ SuperscriptBox["q", "6"], "6"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "14"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "12"],
+ SuperscriptBox["q", "12"], "22"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "29"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "21"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "3"],
+ SuperscriptBox["q", "3"], "12"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "5"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "24"],
+ SuperscriptBox["q", "24"], "44"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "6"],
+ SuperscriptBox["q", "6"], "3"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "24"],
+ SuperscriptBox["q", "24"], "3"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{"1", ",",
+ RowBox[{
+ FractionBox[
+ RowBox[{
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "6"],
+ SuperscriptBox["q", "6"], "3"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "24"],
+ SuperscriptBox["q", "24"], "3"},
+ "QPochhammerPower2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q"},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "3"],
+ SuperscriptBox["q", "3"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "12"],
+ SuperscriptBox["q", "12"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "3"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "3"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "2"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "24"],
+ SuperscriptBox["q", "24"], "4"},
+ "QPochhammerPower2"]}]]}]}], "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): \
+g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "4294967296"}], "+",
+ RowBox[{"18254135296", " ", "t"}], "-",
+ RowBox[{"26251886592", " ",
+ SuperscriptBox["t", "2"]}], "-",
+ RowBox[{"1214775296", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"36457644032", " ",
+ SuperscriptBox["t", "4"]}], "-",
+ RowBox[{"32746242048", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"14446829568", " ",
+ SuperscriptBox["t", "6"]}], "-",
+ RowBox[{"6999324672", " ",
+ SuperscriptBox["t", "7"]}], "-",
+ RowBox[{"3866042880", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"9964375936", " ",
+ SuperscriptBox["t", "9"]}], "-",
+ RowBox[{"2453653696", " ",
+ SuperscriptBox["t", "10"]}], "-",
+ RowBox[{"1765391616", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"507007352", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"55774888", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"50640", " ",
+ SuperscriptBox["t", "14"]}]}], ",",
+ RowBox[{
+ RowBox[{"-", "1073217536"}], "+",
+ RowBox[{"4349493248", " ", "t"}], "-",
+ RowBox[{"6208094208", " ",
+ SuperscriptBox["t", "2"]}], "-",
+ RowBox[{"1274085376", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"13504626688", " ",
+ SuperscriptBox["t", "4"]}], "-",
+ RowBox[{"11382865920", " ",
+ SuperscriptBox["t", "5"]}], "-",
+ RowBox[{"4466915328", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"7349523456", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"1569191040", " ",
+ SuperscriptBox["t", "8"]}], "-",
+ RowBox[{"2299431424", " ",
+ SuperscriptBox["t", "9"]}], "-",
+ RowBox[{"325395776", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"300481680", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"3456220", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"44", " ",
+ SuperscriptBox["t", "13"]}]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "4"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]}], "}"}]], "Output",
+ CellChangeTimes->{3.882441774805016*^9, 3.882441816240387*^9,
+ 3.882442046777439*^9, 3.882442307451509*^9},
+ CellLabel->
+ "Out[117]=",ExpressionUUID->"e86e80fb-fd23-4ff5-8225-af4badd7751d"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Timing", "[",
+ RowBox[{"RK", "[",
+ RowBox[{"24", ",", "4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}], ",", "12", ",", "5"}], "]"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.882445469965014*^9, 3.882445470134066*^9}, {
+ 3.882445716520279*^9, 3.882445716994535*^9}},
+ CellLabel->
+ "In[124]:=",ExpressionUUID->"4c202b58-c059-42d1-be6e-094c8a046ab7"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.882445471286583*^9, 3.8824457182878532`*^9},
+ CellLabel->
+ "During evaluation of \
+In[124]:=",ExpressionUUID->"d37ae823-4b0b-42a2-acae-ae1d15fe358d"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.882445471286583*^9, 3.8824457182892227`*^9},
+ CellLabel->
+ "During evaluation of \
+In[124]:=",ExpressionUUID->"caa8c836-2187-425a-86e5-2a60b12368ab"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.882445471286583*^9, 3.8824457182905827`*^9},
+ CellLabel->
+ "During evaluation of \
+In[124]:=",ExpressionUUID->"b06560e7-6dc1-46a4-84dd-0a2b8dc2452c"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"216.083277`", ",",
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "24"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "12"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "5", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "40"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "6"],
+ SuperscriptBox["q", "6"], "8"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "16"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "12"],
+ SuperscriptBox["q", "12"], "22"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "30"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "21"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "3"],
+ SuperscriptBox["q", "3"], "12"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "7"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "24"],
+ SuperscriptBox["q", "24"], "46"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "6"],
+ SuperscriptBox["q", "6"], "3"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "24"],
+ SuperscriptBox["q", "24"], "3"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{"1", ",",
+ RowBox[{
+ FractionBox[
+ RowBox[{
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "6"],
+ SuperscriptBox["q", "6"], "3"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "24"],
+ SuperscriptBox["q", "24"], "3"},
+ "QPochhammerPower2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q"},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "3"],
+ SuperscriptBox["q", "3"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "12"],
+ SuperscriptBox["q", "12"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "3"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "3"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "2"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "24"],
+ SuperscriptBox["q", "24"], "4"},
+ "QPochhammerPower2"]}]]}]}], "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): \
+g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"4718592", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"9748611072", " ",
+ SuperscriptBox["t", "3"]}], "-",
+ RowBox[{"29758980096", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"22816456704", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"14127022080", " ",
+ SuperscriptBox["t", "6"]}], "-",
+ RowBox[{"26133000192", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"5503389696", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"3980054016", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"1282220928", " ",
+ SuperscriptBox["t", "10"]}], "-",
+ RowBox[{"1077765120", " ",
+ SuperscriptBox["t", "11"]}], "-",
+ RowBox[{"839723040", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"353759400", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"5990328", " ",
+ SuperscriptBox["t", "14"]}], "+",
+ RowBox[{"216", " ",
+ SuperscriptBox["t", "15"]}]}], ",",
+ RowBox[{
+ RowBox[{"4718592", " ", "t"}], "+",
+ RowBox[{"82575360", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"1606680576", " ",
+ SuperscriptBox["t", "3"]}], "-",
+ RowBox[{"6374227968", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"9306095616", " ",
+ SuperscriptBox["t", "5"]}], "-",
+ RowBox[{"2955128832", " ",
+ SuperscriptBox["t", "6"]}], "-",
+ RowBox[{"8896075776", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"9078690816", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"25805952", " ",
+ SuperscriptBox["t", "9"]}], "-",
+ RowBox[{"2396337984", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"444181248", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"79283232", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"116460", " ",
+ SuperscriptBox["t", "13"]}]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "36"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]}], "}"}]], "Output",
+ CellChangeTimes->{3.882445686317337*^9, 3.882445932869417*^9},
+ CellLabel->
+ "Out[124]=",ExpressionUUID->"52ecf78d-9468-4920-87d6-69569fe20c43"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Timing", "[",
+ RowBox[{"RK", "[",
+ RowBox[{"24", ",", "4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}], ",", "12", ",", "6"}], "]"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.882443457671647*^9, 3.882443457911237*^9}},
+ CellLabel->
+ "In[118]:=",ExpressionUUID->"2554457b-a0d7-4ed6-ab0b-161adf26a0ac"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.882443459168365*^9},
+ CellLabel->
+ "During evaluation of \
+In[118]:=",ExpressionUUID->"757408ef-4425-4ad2-b1cb-f3fb3a2e979a"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.882443459169661*^9},
+ CellLabel->
+ "During evaluation of \
+In[118]:=",ExpressionUUID->"bb2e6002-4f53-4779-a4cf-1b36bddb3ff9"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.8824434591711397`*^9},
+ CellLabel->
+ "During evaluation of \
+In[118]:=",ExpressionUUID->"7a52fb2f-96c4-4be1-a0c9-bc8b924ba8aa"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"215.454963`", ",",
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "24"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "12"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "6", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "40"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "6"],
+ SuperscriptBox["q", "6"], "11"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "16"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "12"],
+ SuperscriptBox["q", "12"], "21"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "30"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "20"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "3"],
+ SuperscriptBox["q", "3"], "14"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "8"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "24"],
+ SuperscriptBox["q", "24"], "46"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "6"],
+ SuperscriptBox["q", "6"], "3"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "24"],
+ SuperscriptBox["q", "24"], "3"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{"1", ",",
+ RowBox[{
+ FractionBox[
+ RowBox[{
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "6"],
+ SuperscriptBox["q", "6"], "3"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "24"],
+ SuperscriptBox["q", "24"], "3"},
+ "QPochhammerPower2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q"},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "3"],
+ SuperscriptBox["q", "3"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "12"],
+ SuperscriptBox["q", "12"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "3"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "3"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "2"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "24"],
+ SuperscriptBox["q", "24"], "4"},
+ "QPochhammerPower2"]}]]}]}], "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): \
+g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"8589934592", "-",
+ RowBox[{"23622320128", " ", "t"}], "+",
+ RowBox[{"19327352832", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"23896522752", " ",
+ SuperscriptBox["t", "3"]}], "-",
+ RowBox[{"76336922624", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"59735261184", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"13925416960", " ",
+ SuperscriptBox["t", "6"]}], "-",
+ RowBox[{"45528576000", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"21644411904", " ",
+ SuperscriptBox["t", "8"]}], "-",
+ RowBox[{"1135016192", " ",
+ SuperscriptBox["t", "9"]}], "-",
+ RowBox[{"103805696", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"456480576", " ",
+ SuperscriptBox["t", "11"]}], "-",
+ RowBox[{"1211109264", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"373725116", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"7775436", " ",
+ SuperscriptBox["t", "14"]}], "+",
+ RowBox[{"428", " ",
+ SuperscriptBox["t", "15"]}]}], ",",
+ RowBox[{"2147483648", "-",
+ RowBox[{"5368709120", " ", "t"}], "+",
+ RowBox[{"3763863552", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"6136987648", " ",
+ SuperscriptBox["t", "3"]}], "-",
+ RowBox[{"17152983040", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"13320216576", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"2358276096", " ",
+ SuperscriptBox["t", "6"]}], "-",
+ RowBox[{"12331610112", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"8386207488", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"514122112", " ",
+ SuperscriptBox["t", "9"]}], "-",
+ RowBox[{"2178928960", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"321137520", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"93329684", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"172846", " ",
+ SuperscriptBox["t", "13"]}]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "2"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]}], "}"}]], "Output",
+ CellChangeTimes->{3.88244367343504*^9},
+ CellLabel->
+ "Out[118]=",ExpressionUUID->"5f94a70f-30d3-441b-b647-7f5bcf090079"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Timing", "[",
+ RowBox[{"RK", "[",
+ RowBox[{"24", ",", "4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}], ",", "12", ",", "7"}], "]"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.8824460975439787`*^9, 3.882446097819551*^9}},
+ CellLabel->
+ "In[125]:=",ExpressionUUID->"ac01b6d1-dbe2-49ca-b2b9-4581f0df0f41"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.88244609896916*^9},
+ CellLabel->
+ "During evaluation of \
+In[125]:=",ExpressionUUID->"d9b19905-891c-4739-b804-150d61d728a3"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.8824460989707737`*^9},
+ CellLabel->
+ "During evaluation of \
+In[125]:=",ExpressionUUID->"cda83265-84df-415b-b4bd-3586b1d9e780"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.8824460989726133`*^9},
+ CellLabel->
+ "During evaluation of \
+In[125]:=",ExpressionUUID->"7717187c-cc04-4552-83b3-d9deea1d1d89"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"219.01449`", ",",
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "24"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "12"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "7", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "40"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "6"],
+ SuperscriptBox["q", "6"], "6"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "15"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "12"],
+ SuperscriptBox["q", "12"], "25"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "30"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "21"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "3"],
+ SuperscriptBox["q", "3"], "12"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "6"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "24"],
+ SuperscriptBox["q", "24"], "47"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "6"],
+ SuperscriptBox["q", "6"], "3"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "24"],
+ SuperscriptBox["q", "24"], "3"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{"1", ",",
+ RowBox[{
+ FractionBox[
+ RowBox[{
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "6"],
+ SuperscriptBox["q", "6"], "3"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "24"],
+ SuperscriptBox["q", "24"], "3"},
+ "QPochhammerPower2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q"},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "3"],
+ SuperscriptBox["q", "3"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "12"],
+ SuperscriptBox["q", "12"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "3"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "3"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "2"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "24"],
+ SuperscriptBox["q", "24"], "4"},
+ "QPochhammerPower2"]}]]}]}], "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): \
+g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "12858163200"}], " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"39290929152", " ",
+ SuperscriptBox["t", "3"]}], "-",
+ RowBox[{"56159502336", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"44583911424", " ",
+ SuperscriptBox["t", "5"]}], "-",
+ RowBox[{"1813807104", " ",
+ SuperscriptBox["t", "6"]}], "-",
+ RowBox[{"21935038464", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"6014988288", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"926341632", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"4083136128", " ",
+ SuperscriptBox["t", "10"]}], "-",
+ RowBox[{"1313992512", " ",
+ SuperscriptBox["t", "11"]}], "-",
+ RowBox[{"1189227552", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"407184840", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"10005696", " ",
+ SuperscriptBox["t", "14"]}], "+",
+ RowBox[{"816", " ",
+ SuperscriptBox["t", "15"]}]}], ",",
+ RowBox[{
+ RowBox[{"26738688", " ", "t"}], "-",
+ RowBox[{"3001024512", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"6946947072", " ",
+ SuperscriptBox["t", "3"]}], "-",
+ RowBox[{"10833494016", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"18121605120", " ",
+ SuperscriptBox["t", "5"]}], "-",
+ RowBox[{"10701103104", " ",
+ SuperscriptBox["t", "6"]}], "-",
+ RowBox[{"10441138176", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"12020576256", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"52285824", " ",
+ SuperscriptBox["t", "9"]}], "-",
+ RowBox[{"2618644224", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"340930080", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"109451520", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"252876", " ",
+ SuperscriptBox["t", "13"]}]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "12"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]}], "}"}]], "Output",
+ CellChangeTimes->{3.8824463168133507`*^9},
+ CellLabel->
+ "Out[125]=",ExpressionUUID->"b4fb580f-0807-46bc-a7c5-e34661659688"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Timing", "[",
+ RowBox[{"RK", "[",
+ RowBox[{"24", ",", "4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}], ",", "12", ",", "9"}], "]"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.882444445917322*^9, 3.882444446331046*^9}},
+ CellLabel->
+ "In[119]:=",ExpressionUUID->"99a761f9-74d1-415c-af1b-cf356c067f79"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.8824444508584833`*^9},
+ CellLabel->
+ "During evaluation of \
+In[119]:=",ExpressionUUID->"f5f5caf4-5392-4b6c-afae-0b1e4d0afd17"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.8824444508599567`*^9},
+ CellLabel->
+ "During evaluation of \
+In[119]:=",ExpressionUUID->"d770d3b7-c04a-419a-ba28-dfc4ccd7ac03"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.882444450861527*^9},
+ CellLabel->
+ "During evaluation of \
+In[119]:=",ExpressionUUID->"4c427acf-ef5c-4b26-91b1-8cea60f18236"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"218.180998`", ",",
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "24"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "12"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "9", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "40"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "6"],
+ SuperscriptBox["q", "6"], "5"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "16"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "12"],
+ SuperscriptBox["q", "12"], "25"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "29"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "20"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "3"],
+ SuperscriptBox["q", "3"], "12"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "8"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "24"],
+ SuperscriptBox["q", "24"], "46"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "6"],
+ SuperscriptBox["q", "6"], "3"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "24"],
+ SuperscriptBox["q", "24"], "3"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{"1", ",",
+ RowBox[{
+ FractionBox[
+ RowBox[{
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "6"],
+ SuperscriptBox["q", "6"], "3"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "24"],
+ SuperscriptBox["q", "24"], "3"},
+ "QPochhammerPower2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q"},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "3"],
+ SuperscriptBox["q", "3"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "12"],
+ SuperscriptBox["q", "12"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "3"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "3"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "2"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "24"],
+ SuperscriptBox["q", "24"], "4"},
+ "QPochhammerPower2"]}]]}]}], "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): \
+g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"4294967296", "-",
+ RowBox[{"11811684352", " ", "t"}], "+",
+ RowBox[{"5426380800", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"2544238592", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"14035615744", " ",
+ SuperscriptBox["t", "4"]}], "-",
+ RowBox[{"37648809984", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"41920143360", " ",
+ SuperscriptBox["t", "6"]}], "-",
+ RowBox[{"16984061952", " ",
+ SuperscriptBox["t", "7"]}], "-",
+ RowBox[{"13024258560", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"13405766528", " ",
+ SuperscriptBox["t", "9"]}], "-",
+ RowBox[{"270386048", " ",
+ SuperscriptBox["t", "10"]}], "-",
+ RowBox[{"2098160928", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"69818344", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"146287412", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"521040", " ",
+ SuperscriptBox["t", "14"]}]}], ",",
+ RowBox[{"1073217536", "-",
+ RowBox[{"2626420736", " ", "t"}], "+",
+ RowBox[{"1038876672", " ",
+ SuperscriptBox["t", "2"]}], "-",
+ RowBox[{"2019491840", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"6575439872", " ",
+ SuperscriptBox["t", "4"]}], "-",
+ RowBox[{"1588469760", " ",
+ SuperscriptBox["t", "5"]}], "-",
+ RowBox[{"3264350208", " ",
+ SuperscriptBox["t", "6"]}], "-",
+ RowBox[{"4109905920", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"6495716736", " ",
+ SuperscriptBox["t", "8"]}], "-",
+ RowBox[{"258480320", " ",
+ SuperscriptBox["t", "9"]}], "-",
+ RowBox[{"1779368320", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"450285648", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"16136636", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"2650", " ",
+ SuperscriptBox["t", "13"]}]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "2"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]}], "}"}]], "Output",
+ CellChangeTimes->{3.88244466787817*^9},
+ CellLabel->
+ "Out[119]=",ExpressionUUID->"e4ffdba7-0592-4d14-8b63-80881e769a8a"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Timing", "[",
+ RowBox[{"RK", "[",
+ RowBox[{"24", ",", "4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}], ",", "12", ",", "10"}], "]"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.882446410595399*^9, 3.882446410968253*^9}},
+ CellLabel->
+ "In[127]:=",ExpressionUUID->"bd2a4454-49ea-4ba8-92d8-3a32a38b267e"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.882446597378273*^9},
+ CellLabel->
+ "During evaluation of \
+In[127]:=",ExpressionUUID->"cf035b98-f1ac-43a8-8ec7-7fbdf36e4ff2"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.882446597379736*^9},
+ CellLabel->
+ "During evaluation of \
+In[127]:=",ExpressionUUID->"a0bd15ac-d44d-4cf5-981a-71cd49bb18dd"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.8824465973811903`*^9},
+ CellLabel->
+ "During evaluation of \
+In[127]:=",ExpressionUUID->"0e7b3966-83d6-4462-9efd-c725494b72ee"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"217.343265`", ",",
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "24"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "12"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "10", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "40"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "6"],
+ SuperscriptBox["q", "6"], "11"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "17"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "12"],
+ SuperscriptBox["q", "12"], "24"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "31"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "20"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "3"],
+ SuperscriptBox["q", "3"], "14"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "9"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "24"],
+ SuperscriptBox["q", "24"], "49"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "6"],
+ SuperscriptBox["q", "6"], "3"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "24"],
+ SuperscriptBox["q", "24"], "3"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{"1", ",",
+ RowBox[{
+ FractionBox[
+ RowBox[{
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "6"],
+ SuperscriptBox["q", "6"], "3"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "24"],
+ SuperscriptBox["q", "24"], "3"},
+ "QPochhammerPower2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q"},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "3"],
+ SuperscriptBox["q", "3"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "12"],
+ SuperscriptBox["q", "12"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "3"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "3"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "2"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "24"],
+ SuperscriptBox["q", "24"], "4"},
+ "QPochhammerPower2"]}]]}]}], "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): \
+g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"25769803776", " ",
+ SuperscriptBox["t", "2"]}], "-",
+ RowBox[{"90998046720", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"92860710912", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"19363528704", " ",
+ SuperscriptBox["t", "5"]}], "-",
+ RowBox[{"109126434816", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"91889565696", " ",
+ SuperscriptBox["t", "7"]}], "-",
+ RowBox[{"26292436992", " ",
+ SuperscriptBox["t", "8"]}], "-",
+ RowBox[{"15596264448", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"15062678784", " ",
+ SuperscriptBox["t", "10"]}], "-",
+ RowBox[{"1720634496", " ",
+ SuperscriptBox["t", "11"]}], "-",
+ RowBox[{"1170158112", " ",
+ SuperscriptBox["t", "12"]}], "-",
+ RowBox[{"171488160", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"166705548", " ",
+ SuperscriptBox["t", "14"]}], "+",
+ RowBox[{"734076", " ",
+ SuperscriptBox["t", "15"]}]}], ",",
+ RowBox[{
+ RowBox[{"6444023808", " ",
+ SuperscriptBox["t", "2"]}], "-",
+ RowBox[{"21090926592", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"18232049664", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"7058079744", " ",
+ SuperscriptBox["t", "5"]}], "-",
+ RowBox[{"19465519104", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"13077061632", " ",
+ SuperscriptBox["t", "7"]}], "-",
+ RowBox[{"7908139008", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"3681960192", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"1645653888", " ",
+ SuperscriptBox["t", "10"]}], "-",
+ RowBox[{"2122990176", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"447638544", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"20234700", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"4584", " ",
+ SuperscriptBox["t", "14"]}]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "12"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]}], "}"}]], "Output",
+ CellChangeTimes->{3.8824468133659887`*^9},
+ CellLabel->
+ "Out[127]=",ExpressionUUID->"b2750d2b-2d98-4e71-86aa-024e48f52410"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Timing", "[",
+ RowBox[{"RK", "[",
+ RowBox[{"24", ",", "4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}], ",", "12", ",", "11"}], "]"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.8824468346575203`*^9, 3.882446835432065*^9}},
+ CellLabel->
+ "In[128]:=",ExpressionUUID->"f4c9be5b-87e3-42fb-b264-3a48df573681"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.882446836596064*^9},
+ CellLabel->
+ "During evaluation of \
+In[128]:=",ExpressionUUID->"12477760-f295-477d-9218-0be4b31888e1"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.88244683659743*^9},
+ CellLabel->
+ "During evaluation of \
+In[128]:=",ExpressionUUID->"638fbc3c-2256-4f98-a945-910d2a86b5eb"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.8824468365990133`*^9},
+ CellLabel->
+ "During evaluation of \
+In[128]:=",ExpressionUUID->"231a43ab-5ffa-477b-aaba-d8a511c44dce"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"216.585267`", ",",
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "24"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"4", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "6"}], ",", "9", ",",
+ RowBox[{"-", "3"}]}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "12"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "11", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "40"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "6"],
+ SuperscriptBox["q", "6"], "6"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "16"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "12"],
+ SuperscriptBox["q", "12"], "28"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "31"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "21"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "3"],
+ SuperscriptBox["q", "3"], "12"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "7"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "24"],
+ SuperscriptBox["q", "24"], "50"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "6"],
+ SuperscriptBox["q", "6"], "3"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "24"],
+ SuperscriptBox["q", "24"], "3"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{"1", ",",
+ RowBox[{
+ FractionBox[
+ RowBox[{
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "6"],
+ SuperscriptBox["q", "6"], "3"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "24"],
+ SuperscriptBox["q", "24"], "3"},
+ "QPochhammerPower2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q"},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "3"],
+ SuperscriptBox["q", "3"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "12"],
+ SuperscriptBox["q", "12"]},
+ "QPochhammer2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "3"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "3"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "2"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "24"],
+ SuperscriptBox["q", "24"], "4"},
+ "QPochhammerPower2"]}]]}]}], "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): \
+g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "9437184"}], " ",
+ SuperscriptBox["t", "2"]}], "-",
+ RowBox[{"19105579008", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"58538852352", " ",
+ SuperscriptBox["t", "4"]}], "-",
+ RowBox[{"50981437440", " ",
+ SuperscriptBox["t", "5"]}], "-",
+ RowBox[{"17222860800", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"62800994304", " ",
+ SuperscriptBox["t", "7"]}], "-",
+ RowBox[{"35919618048", " ",
+ SuperscriptBox["t", "8"]}], "-",
+ RowBox[{"10759910400", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"14411222784", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"210075264", " ",
+ SuperscriptBox["t", "11"]}], "-",
+ RowBox[{"2027221632", " ",
+ SuperscriptBox["t", "12"]}], "-",
+ RowBox[{"173084112", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"190214856", " ",
+ SuperscriptBox["t", "14"]}], "+",
+ RowBox[{"1022256", " ",
+ SuperscriptBox["t", "15"]}]}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "9437184"}], " ", "t"}], "+",
+ RowBox[{"226492416", " ",
+ SuperscriptBox["t", "2"]}], "-",
+ RowBox[{"4388290560", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"7987396608", " ",
+ SuperscriptBox["t", "4"]}], "-",
+ RowBox[{"4016996352", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"6188949504", " ",
+ SuperscriptBox["t", "6"]}], "-",
+ RowBox[{"5465788416", " ",
+ SuperscriptBox["t", "7"]}], "-",
+ RowBox[{"8478646272", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"9814162176", " ",
+ SuperscriptBox["t", "9"]}], "-",
+ RowBox[{"199913472", " ",
+ SuperscriptBox["t", "10"]}], "-",
+ RowBox[{"2183746176", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"477247680", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"25178904", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"7740", " ",
+ SuperscriptBox["t", "14"]}]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "36"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]}], "}"}]], "Output",
+ CellChangeTimes->{3.882447051700862*^9},
+ CellLabel->
+ "Out[128]=",ExpressionUUID->"d0c4dfcf-bb65-4815-99de-7f67ebcfa57e"]
+}, Open ]]
+},
+WindowSize->{808, 676},
+WindowMargins->{{30, Automatic}, {-62, Automatic}},
+FrontEndVersion->"12.3 for Mac OS X ARM (64-bit) (July 9, 2021)",
+StyleDefinitions->"Default.nb",
+ExpressionUUID->"ea062f94-0c84-4a0d-a613-4f1a0a70e52a"
+]
+(* End of Notebook Content *)
+
+(* Internal cache information *)
+(*CellTagsOutline
+CellTagsIndex->{}
+*)
+(*CellTagsIndex
+CellTagsIndex->{}
+*)
+(*NotebookFileOutline
+Notebook[{
+Cell[558, 20, 196, 3, 30, "Input",ExpressionUUID->"37ba1634-87ce-4891-a5ef-3e659d1f0bb9"],
+Cell[757, 25, 472, 13, 99, "Text",ExpressionUUID->"3ef5e832-f534-477e-9ec8-91e016e013fb"],
+Cell[1232, 40, 509, 14, 122, "Text",ExpressionUUID->"cf57d632-2f80-4f44-9bfc-f375cf29133d"],
+Cell[CellGroupData[{
+Cell[1766, 58, 286, 6, 30, "Input",ExpressionUUID->"114be233-9187-40db-82bc-1697bfa83b0e"],
+Cell[2055, 66, 193, 4, 34, "Output",ExpressionUUID->"8a2ad6e3-0623-43b3-8bf0-ea02c1002ad2"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2285, 75, 475, 13, 30, "Input",ExpressionUUID->"cff551ca-0ad7-43ce-8848-9c567f12e101"],
+Cell[2763, 90, 264, 7, 34, "Output",ExpressionUUID->"cb274cdd-671f-48d6-a96e-e3a9f931f81d"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[3064, 102, 399, 11, 30, "Input",ExpressionUUID->"81bb086b-75d5-4c72-a65b-ea7229a1d956"],
+Cell[CellGroupData[{
+Cell[3488, 117, 585, 10, 50, "Print",ExpressionUUID->"2b61c122-b65c-44af-8e78-f8cd2dd662da"],
+Cell[4076, 129, 1396, 21, 63, "Print",ExpressionUUID->"67ebd2e4-7177-4d58-a6fe-71c0ff8a02fd"],
+Cell[5475, 152, 244, 5, 24, "Print",ExpressionUUID->"754be9af-e92d-41f4-9624-ade13ba813c8"]
+}, Open ]],
+Cell[5734, 160, 3198, 94, 405, "Output",ExpressionUUID->"3a721f2d-861d-4bea-9524-a7b27ca2f6db"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[8969, 259, 399, 11, 30, "Input",ExpressionUUID->"5f6702b6-4a91-4eda-bb22-2ae00bc8bb18"],
+Cell[CellGroupData[{
+Cell[9393, 274, 585, 10, 50, "Print",ExpressionUUID->"124b1fd5-34e6-4cb6-b899-ed3fc5222ef9"],
+Cell[9981, 286, 1398, 21, 63, "Print",ExpressionUUID->"01da00f4-fb37-4a4e-bd7a-3f2908e6707f"],
+Cell[11382, 309, 244, 5, 24, "Print",ExpressionUUID->"1e0b429b-0810-401c-8a4b-efec309cdd00"]
+}, Open ]],
+Cell[11641, 317, 3279, 96, 448, "Output",ExpressionUUID->"aa823459-77d1-43c2-93ca-b2a312981e29"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[14957, 418, 399, 11, 30, "Input",ExpressionUUID->"892c4129-63b4-43b3-8c73-6c448dce13ab"],
+Cell[CellGroupData[{
+Cell[15381, 433, 587, 10, 50, "Print",ExpressionUUID->"8ea59352-a8ae-458b-8040-2a5be557a37c"],
+Cell[15971, 445, 1396, 21, 63, "Print",ExpressionUUID->"9831b45f-08c0-4354-806c-d2d562ef5e3e"],
+Cell[17370, 468, 244, 5, 24, "Print",ExpressionUUID->"757d9e40-3bba-45d7-8979-129e0f3b6d83"]
+}, Open ]],
+Cell[17629, 476, 3215, 94, 448, "Output",ExpressionUUID->"7e5595a6-0c5a-4883-a7e7-e31a175f3aa4"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[20881, 575, 399, 11, 30, "Input",ExpressionUUID->"9d3bdad0-bc13-452c-b6cc-219b9931239d"],
+Cell[CellGroupData[{
+Cell[21305, 590, 587, 10, 50, "Print",ExpressionUUID->"8b753bed-80ef-4d85-9ee0-428e980f0fb1"],
+Cell[21895, 602, 1396, 21, 63, "Print",ExpressionUUID->"1c19cabe-95c3-41c3-bfe6-21c195bef2f0"],
+Cell[23294, 625, 244, 5, 24, "Print",ExpressionUUID->"dd0aa726-f9fb-4de9-88d2-ab982f24f3f1"]
+}, Open ]],
+Cell[23553, 633, 3202, 94, 405, "Output",ExpressionUUID->"992461a1-c854-4068-bbbc-e837b0282466"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[26792, 732, 401, 11, 30, "Input",ExpressionUUID->"b50fe3d4-5d78-46a2-8e54-f25e78ff078c"],
+Cell[CellGroupData[{
+Cell[27218, 747, 587, 10, 50, "Print",ExpressionUUID->"5aa19910-7ea1-4501-9f08-ff24c09062c1"],
+Cell[27808, 759, 1396, 21, 63, "Print",ExpressionUUID->"de0825aa-7876-483f-94ea-e43071064f4a"],
+Cell[29207, 782, 246, 5, 24, "Print",ExpressionUUID->"884877dd-9dae-41c6-8c1c-052d0579552e"]
+}, Open ]],
+Cell[29468, 790, 3200, 94, 405, "Output",ExpressionUUID->"f363bb73-c56c-4708-8f87-f8890b91017d"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[32705, 889, 523, 13, 30, "Input",ExpressionUUID->"0ad79311-0a1b-4128-bac8-5b1bbd5e50cd"],
+Cell[33231, 904, 428, 9, 34, "Output",ExpressionUUID->"50a45cdd-e0c0-4def-ae6e-c53b7a7c3f7c"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[33696, 918, 396, 10, 30, "Input",ExpressionUUID->"26715881-ff39-49fa-a2b5-9d4ac4019daa"],
+Cell[CellGroupData[{
+Cell[34117, 932, 586, 10, 50, "Print",ExpressionUUID->"d09be5e0-eb06-4cbd-a108-9ba11155c2d5"],
+Cell[34706, 944, 1395, 21, 63, "Print",ExpressionUUID->"728c0d9a-1db8-40ed-add0-71530620ca21"],
+Cell[36104, 967, 243, 5, 24, "Print",ExpressionUUID->"9a104e72-d705-4359-b2fc-306b1ff0ba2e"]
+}, Open ]],
+Cell[36362, 975, 3748, 105, 471, "Output",ExpressionUUID->"c692cca2-81da-402c-bccf-238a4bd038dd"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[40147, 1085, 397, 10, 30, "Input",ExpressionUUID->"c84d9577-d95f-4e1c-9c9e-35dcaa3da297"],
+Cell[CellGroupData[{
+Cell[40569, 1099, 584, 10, 50, "Print",ExpressionUUID->"583fbd35-16f2-454d-a5b4-5fc355343fe5"],
+Cell[41156, 1111, 1395, 21, 63, "Print",ExpressionUUID->"5dc54993-d5b7-4dde-ab85-369c42576dca"],
+Cell[42554, 1134, 243, 5, 24, "Print",ExpressionUUID->"bedc4722-e744-4df0-b67f-d00b2bd65b0a"]
+}, Open ]],
+Cell[42812, 1142, 3727, 105, 451, "Output",ExpressionUUID->"4d20dbb6-9119-4e14-9ca9-e629c0287e65"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[46576, 1252, 397, 10, 30, "Input",ExpressionUUID->"c72d57c4-1fd5-4742-8c2b-b1af462f317c"],
+Cell[CellGroupData[{
+Cell[46998, 1266, 584, 10, 50, "Print",ExpressionUUID->"bbf88e2f-abfd-415a-bf9a-fcf0f67e9164"],
+Cell[47585, 1278, 1395, 21, 63, "Print",ExpressionUUID->"d4793d6c-0731-40ee-b888-3ba528f91dc8"],
+Cell[48983, 1301, 243, 5, 24, "Print",ExpressionUUID->"7ce25113-a13d-4f62-b244-16fd7f3f3d3f"]
+}, Open ]],
+Cell[49241, 1309, 3737, 105, 471, "Output",ExpressionUUID->"99590a57-b409-4cc1-917b-b6a81ed4323d"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[53015, 1419, 475, 12, 30, "Input",ExpressionUUID->"34399b5d-f304-4e18-a184-f7cfd38e9ddb"],
+Cell[53493, 1433, 537, 9, 56, "Output",ExpressionUUID->"9dd81663-df1e-4499-bce2-6d928270c2c5"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[54067, 1447, 397, 10, 30, "Input",ExpressionUUID->"97743571-f553-4408-af35-ce039ad48233"],
+Cell[CellGroupData[{
+Cell[54489, 1461, 586, 10, 50, "Print",ExpressionUUID->"7dd56c56-d0f0-4ca3-a64c-b09dfc9fd5dc"],
+Cell[55078, 1473, 1395, 21, 63, "Print",ExpressionUUID->"650f1066-8b9d-4398-b1e3-7a14281c255e"],
+Cell[56476, 1496, 243, 5, 24, "Print",ExpressionUUID->"60450305-ec66-4d7a-825a-c80b416063df"]
+}, Open ]],
+Cell[56734, 1504, 5035, 129, 639, "Output",ExpressionUUID->"be5d7e49-3230-46ac-8ae7-a8ca4ef844a7"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[61806, 1638, 401, 10, 30, "Input",ExpressionUUID->"4ebb06c6-2d7f-4f1a-8adf-d1cf8584914b"],
+Cell[CellGroupData[{
+Cell[62232, 1652, 584, 10, 50, "Print",ExpressionUUID->"fed5b4c9-c38b-4733-bcf5-41c2533364a6"],
+Cell[62819, 1664, 1393, 21, 63, "Print",ExpressionUUID->"dd461686-c5d9-4cab-befa-078089243a9c"],
+Cell[64215, 1687, 245, 5, 24, "Print",ExpressionUUID->"6ff7b02d-53a3-49ee-9eaa-4e98fd32cac8"]
+}, Open ]],
+Cell[64475, 1695, 5009, 129, 619, "Output",ExpressionUUID->"ad899a56-5054-4d55-b88f-cf4714c3331b"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[69521, 1829, 397, 10, 30, "Input",ExpressionUUID->"787b7ec5-d367-4e23-8a80-9184904e3221"],
+Cell[CellGroupData[{
+Cell[69943, 1843, 584, 10, 50, "Print",ExpressionUUID->"7229d920-3e91-431c-957d-1cbb153f2ea9"],
+Cell[70530, 1855, 1395, 21, 63, "Print",ExpressionUUID->"1c7d609b-2a3e-43fb-9eef-e9a629ed06e1"],
+Cell[71928, 1878, 245, 5, 24, "Print",ExpressionUUID->"ce7c96e0-abd5-415d-966a-d3a3c44ad9d8"]
+}, Open ]],
+Cell[72188, 1886, 5008, 129, 619, "Output",ExpressionUUID->"ae560d70-c8a4-4ccd-a8ff-b19f337b1660"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[77233, 2020, 397, 10, 30, "Input",ExpressionUUID->"b28d2c4f-eedc-489e-ab89-a2f9657dc270"],
+Cell[CellGroupData[{
+Cell[77655, 2034, 584, 10, 50, "Print",ExpressionUUID->"e32b220a-6b88-4a5a-9d64-de5161d4b6ce"],
+Cell[78242, 2046, 1395, 21, 63, "Print",ExpressionUUID->"f9f4feb3-a8b0-4602-b464-d6c43257aa67"],
+Cell[79640, 2069, 243, 5, 24, "Print",ExpressionUUID->"78f45ee9-13d0-4878-9488-3233165a7dd3"]
+}, Open ]],
+Cell[79898, 2077, 5022, 129, 639, "Output",ExpressionUUID->"49ad7985-db02-4c65-a249-6044c5250baf"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[84957, 2211, 484, 13, 30, "Input",ExpressionUUID->"c506b14d-219b-4ced-a94a-4894a5ab1526"],
+Cell[85444, 2226, 207, 4, 34, "Output",ExpressionUUID->"449693f2-9b78-4cc1-9fe2-5a93f5f72aae"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[85688, 2235, 432, 12, 30, "Input",ExpressionUUID->"fc9592ea-4d67-48be-a817-ede1a0d372ca"],
+Cell[CellGroupData[{
+Cell[86145, 2251, 610, 10, 50, "Print",ExpressionUUID->"b8c71257-bfff-407d-b68b-23bea07f8735"],
+Cell[86758, 2263, 1421, 21, 63, "Print",ExpressionUUID->"d06c596d-ae0c-48f7-a626-4f75bd30c138"],
+Cell[88182, 2286, 269, 5, 24, "Print",ExpressionUUID->"9d8f5408-b75d-4d5b-85ca-2b23f55ea680"]
+}, Open ]],
+Cell[88466, 2294, 3545, 102, 405, "Output",ExpressionUUID->"d989f1f9-c81e-4349-ad3f-9b6042447e38"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[92048, 2401, 401, 10, 30, "Input",ExpressionUUID->"17c4f094-c0d1-455b-9212-1c1e5906ff2e"],
+Cell[CellGroupData[{
+Cell[92474, 2415, 584, 10, 50, "Print",ExpressionUUID->"c850241d-f56b-48bd-890f-c5966d0cd0f8"],
+Cell[93061, 2427, 1394, 21, 63, "Print",ExpressionUUID->"aaca4a5c-07af-4074-955d-43e5378cb0e0"],
+Cell[94458, 2450, 245, 5, 24, "Print",ExpressionUUID->"d0015943-2118-4b9c-9b92-5190ca40a347"]
+}, Open ]],
+Cell[94718, 2458, 3476, 101, 405, "Output",ExpressionUUID->"12692e65-d43c-417e-9584-ae47dda38568"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[98231, 2564, 579, 15, 30, "Input",ExpressionUUID->"f9727676-f1a0-417b-ae85-0472cf57cd5b"],
+Cell[98813, 2581, 392, 9, 34, "Output",ExpressionUUID->"592a1203-3e96-408d-84b1-a551d2cec1f4"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[99242, 2595, 547, 13, 30, "Input",ExpressionUUID->"fd8e9c0f-26eb-4d48-a75b-d5a0e4185c7c"],
+Cell[CellGroupData[{
+Cell[99814, 2612, 654, 11, 50, "Print",ExpressionUUID->"3869b94b-9172-40e8-893c-f4dec3bddeb4"],
+Cell[100471, 2625, 1465, 22, 63, "Print",ExpressionUUID->"bd1783ed-0d76-4707-8fcc-f6c8513119e7"],
+Cell[101939, 2649, 313, 6, 24, "Print",ExpressionUUID->"bd1507d6-522f-4e52-a720-036fa5cddea9"]
+}, Open ]],
+Cell[102267, 2658, 7717, 210, 583, "Output",ExpressionUUID->"e86e80fb-fd23-4ff5-8225-af4badd7751d"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[110021, 2873, 450, 12, 30, "Input",ExpressionUUID->"4c202b58-c059-42d1-be6e-094c8a046ab7"],
+Cell[CellGroupData[{
+Cell[110496, 2889, 609, 10, 50, "Print",ExpressionUUID->"d37ae823-4b0b-42a2-acae-ae1d15fe358d"],
+Cell[111108, 2901, 1420, 21, 63, "Print",ExpressionUUID->"caa8c836-2187-425a-86e5-2a60b12368ab"],
+Cell[112531, 2924, 268, 5, 24, "Print",ExpressionUUID->"b06560e7-6dc1-46a4-84dd-0a2b8dc2452c"]
+}, Open ]],
+Cell[112814, 2932, 7604, 208, 561, "Output",ExpressionUUID->"52ecf78d-9468-4920-87d6-69569fe20c43"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[120455, 3145, 401, 11, 30, "Input",ExpressionUUID->"2554457b-a0d7-4ed6-ab0b-161adf26a0ac"],
+Cell[CellGroupData[{
+Cell[120881, 3160, 585, 10, 50, "Print",ExpressionUUID->"757408ef-4425-4ad2-b1cb-f3fb3a2e979a"],
+Cell[121469, 3172, 1396, 21, 63, "Print",ExpressionUUID->"bb2e6002-4f53-4779-a4cf-1b36bddb3ff9"],
+Cell[122868, 3195, 246, 5, 24, "Print",ExpressionUUID->"7a52fb2f-96c4-4be1-a0c9-bc8b924ba8aa"]
+}, Open ]],
+Cell[123129, 3203, 7684, 209, 583, "Output",ExpressionUUID->"5f94a70f-30d3-441b-b647-7f5bcf090079"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[130850, 3417, 403, 11, 30, "Input",ExpressionUUID->"ac01b6d1-dbe2-49ca-b2b9-4581f0df0f41"],
+Cell[CellGroupData[{
+Cell[131278, 3432, 584, 10, 50, "Print",ExpressionUUID->"d9b19905-891c-4739-b804-150d61d728a3"],
+Cell[131865, 3444, 1398, 21, 63, "Print",ExpressionUUID->"cda83265-84df-415b-b4bd-3586b1d9e780"],
+Cell[133266, 3467, 246, 5, 24, "Print",ExpressionUUID->"7717187c-cc04-4552-83b3-d9deea1d1d89"]
+}, Open ]],
+Cell[133527, 3475, 7624, 209, 561, "Output",ExpressionUUID->"b4fb580f-0807-46bc-a7c5-e34661659688"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[141188, 3689, 401, 11, 30, "Input",ExpressionUUID->"99a761f9-74d1-415c-af1b-cf356c067f79"],
+Cell[CellGroupData[{
+Cell[141614, 3704, 587, 10, 50, "Print",ExpressionUUID->"f5f5caf4-5392-4b6c-afae-0b1e4d0afd17"],
+Cell[142204, 3716, 1398, 21, 63, "Print",ExpressionUUID->"d770d3b7-c04a-419a-ba28-dfc4ccd7ac03"],
+Cell[143605, 3739, 244, 5, 24, "Print",ExpressionUUID->"4c427acf-ef5c-4b26-91b1-8cea60f18236"]
+}, Open ]],
+Cell[143864, 3747, 7598, 207, 561, "Output",ExpressionUUID->"e4ffdba7-0592-4d14-8b63-80881e769a8a"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[151499, 3959, 402, 11, 30, "Input",ExpressionUUID->"bd2a4454-49ea-4ba8-92d8-3a32a38b267e"],
+Cell[CellGroupData[{
+Cell[151926, 3974, 585, 10, 50, "Print",ExpressionUUID->"cf035b98-f1ac-43a8-8ec7-7fbdf36e4ff2"],
+Cell[152514, 3986, 1396, 21, 63, "Print",ExpressionUUID->"a0bd15ac-d44d-4cf5-981a-71cd49bb18dd"],
+Cell[153913, 4009, 246, 5, 24, "Print",ExpressionUUID->"0e7b3966-83d6-4462-9efd-c725494b72ee"]
+}, Open ]],
+Cell[154174, 4017, 7644, 209, 561, "Output",ExpressionUUID->"b2750d2b-2d98-4e71-86aa-024e48f52410"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[161855, 4231, 404, 11, 30, "Input",ExpressionUUID->"f4c9be5b-87e3-42fb-b264-3a48df573681"],
+Cell[CellGroupData[{
+Cell[162284, 4246, 585, 10, 50, "Print",ExpressionUUID->"12477760-f295-477d-9218-0be4b31888e1"],
+Cell[162872, 4258, 1395, 21, 63, "Print",ExpressionUUID->"638fbc3c-2256-4f98-a945-910d2a86b5eb"],
+Cell[164270, 4281, 246, 5, 24, "Print",ExpressionUUID->"231a43ab-5ffa-477b-aaba-d8a511c44dce"]
+}, Open ]],
+Cell[164531, 4289, 7731, 212, 561, "Output",ExpressionUUID->"d0c4dfcf-bb65-4815-99de-7f67ebcfa57e"]
+}, Open ]]
+}
+]
+*)
+
diff --git a/publ/opt-gf.nb b/publ/opt-gf.nb
new file mode 100644
index 0000000000..352e456334
--- /dev/null
+++ b/publ/opt-gf.nb
@@ -0,0 +1,274 @@
+(* Content-type: application/vnd.wolfram.mathematica *)
+
+(*** Wolfram Notebook File ***)
+(* http://www.wolfram.com/nb *)
+
+(* CreatedBy='Mathematica 12.3' *)
+
+(*CacheID: 234*)
+(* Internal cache information:
+NotebookFileLineBreakTest
+NotebookFileLineBreakTest
+NotebookDataPosition[ 158, 7]
+NotebookDataLength[ 9630, 264]
+NotebookOptionsPosition[ 8443, 236]
+NotebookOutlinePosition[ 8834, 252]
+CellTagsIndexPosition[ 8791, 249]
+WindowFrame->Normal*)
+
+(* Beginning of Notebook Content *)
+Notebook[{
+Cell[BoxData[
+ RowBox[{"<<", "RaduRK.m"}]], "Input",
+ CellChangeTimes->{{3.8711301828658323`*^9, 3.8711301848243732`*^9}},
+ CellLabel->
+ "In[853]:=",ExpressionUUID->"1ed188ae-7d2c-4836-9ff5-02b6af684ef9"],
+
+Cell["\<\
+RaduRK: Ramanujan--Kolberg Program Version 2.8
+Copyright (C) 2020, Nicolas Allen Smoot
+Research Institute for Symbolic Computation
+Johannes Kepler Universit\[ADoubleDot]t, Linz\
+\>", "Text",
+ CellFrame->0.5,
+ GeneratedCell->True,
+ CellAutoOverwrite->True,
+ CellChangeTimes->{3.871130185203405*^9},
+ ShowAutoSpellCheck->False,
+ FontColor->RGBColor[0, 0, 0],
+ Background->RGBColor[
+ 0.796887, 0.789075,
+ 0.871107],ExpressionUUID->"5756115b-3b0c-4baf-8b63-daf114ff259e"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"SetVar1", "[", "q", "]"}], ",",
+ RowBox[{"SetVar2", "[", "t", "]"}]}], "}"}]], "Input",
+ CellChangeTimes->{{3.871130185967314*^9, 3.871130193883971*^9}},
+ CellLabel->
+ "In[854]:=",ExpressionUUID->"9576bbd2-67ba-4ab5-865d-2ac597b6c595"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"q", ",", "t"}], "}"}]], "Output",
+ CellChangeTimes->{3.871130194167756*^9},
+ CellLabel->
+ "Out[854]=",ExpressionUUID->"7405d1e6-33ef-44ad-8578-fb98311c4aac"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "10"}], ",", "5"}], "}"}], ",", "8", ",", "2"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.871130195016958*^9, 3.871130208259985*^9}},
+ CellLabel->
+ "In[855]:=",ExpressionUUID->"c77dff56-6740-4864-8e59-2300d7ad21f0"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.871130209473733*^9},
+ CellLabel->
+ "During evaluation of \
+In[855]:=",ExpressionUUID->"51760280-e8a3-4813-96c4-6eca78098575"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.8711302094767237`*^9},
+ CellLabel->
+ "During evaluation of \
+In[855]:=",ExpressionUUID->"b95e936b-91de-4deb-9627-7d37f2b184ad"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.871130209480009*^9},
+ CellLabel->
+ "During evaluation of \
+In[855]:=",ExpressionUUID->"640790a5-d04b-4933-86b3-0a93159fa04e"]
+}, Open ]],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "10"}], ",", "5"}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "8"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "2", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "78"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "37"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "18"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "36"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "74"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"108233175859200", " ", "t"}], "+",
+ RowBox[{"11804889411747840", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"197872751099248640", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"1114983259617361920", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"2876431172202659840", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"4002466076578283520", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"3312253218922168320", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"1730083637585510400", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"589815659301437440", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"133018427759001600", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"19757506444656640", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"1888787877724160", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"111050710794240", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"3720107872256", " ",
+ SuperscriptBox["t", "14"]}], "+",
+ RowBox[{"62626076672", " ",
+ SuperscriptBox["t", "15"]}], "+",
+ RowBox[{"425154048", " ",
+ SuperscriptBox["t", "16"]}], "+",
+ RowBox[{"731504", " ",
+ SuperscriptBox["t", "17"]}], "+",
+ RowBox[{"60", " ",
+ SuperscriptBox["t", "18"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "4"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]], "Output",
+ CellChangeTimes->{3.8711302137826643`*^9},
+ CellLabel->
+ "Out[855]=",ExpressionUUID->"a6254638-06b0-44c7-9838-a18f582dcd79"]
+}, Open ]]
+},
+WindowSize->{808, 676},
+WindowMargins->{{44, Automatic}, {0, Automatic}},
+FrontEndVersion->"12.3 for Mac OS X ARM (64-bit) (July 9, 2021)",
+StyleDefinitions->"Default.nb",
+ExpressionUUID->"e9cabefe-8d59-451a-b9da-7e0b71efed5a"
+]
+(* End of Notebook Content *)
+
+(* Internal cache information *)
+(*CellTagsOutline
+CellTagsIndex->{}
+*)
+(*CellTagsIndex
+CellTagsIndex->{}
+*)
+(*NotebookFileOutline
+Notebook[{
+Cell[558, 20, 205, 4, 30, "Input",ExpressionUUID->"1ed188ae-7d2c-4836-9ff5-02b6af684ef9"],
+Cell[766, 26, 509, 14, 122, "Text",ExpressionUUID->"5756115b-3b0c-4baf-8b63-daf114ff259e"],
+Cell[CellGroupData[{
+Cell[1300, 44, 291, 7, 30, "Input",ExpressionUUID->"9576bbd2-67ba-4ab5-865d-2ac597b6c595"],
+Cell[1594, 53, 198, 5, 34, "Output",ExpressionUUID->"7405d1e6-33ef-44ad-8578-fb98311c4aac"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1829, 63, 331, 9, 30, "Input",ExpressionUUID->"c77dff56-6740-4864-8e59-2300d7ad21f0"],
+Cell[CellGroupData[{
+Cell[2185, 76, 585, 10, 50, "Print",ExpressionUUID->"51760280-e8a3-4813-96c4-6eca78098575"],
+Cell[2773, 88, 1398, 21, 63, "Print",ExpressionUUID->"b95e936b-91de-4deb-9627-7d37f2b184ad"],
+Cell[4174, 111, 244, 5, 24, "Print",ExpressionUUID->"640790a5-d04b-4933-86b3-0a93159fa04e"]
+}, Open ]],
+Cell[4433, 119, 3994, 114, 558, "Output",ExpressionUUID->"a6254638-06b0-44c7-9838-a18f582dcd79"]
+}, Open ]]
+}
+]
+*)
+
+(* End of internal cache information *)
+
diff --git a/publ/opt.nb b/publ/opt.nb
new file mode 100644
index 0000000000..7125e69d22
--- /dev/null
+++ b/publ/opt.nb
@@ -0,0 +1,5289 @@
+(* Content-type: application/vnd.wolfram.mathematica *)
+
+(*** Wolfram Notebook File ***)
+(* http://www.wolfram.com/nb *)
+
+(* CreatedBy='Mathematica 12.3' *)
+
+(*CacheID: 234*)
+(* Internal cache information:
+NotebookFileLineBreakTest
+NotebookFileLineBreakTest
+NotebookDataPosition[ 158, 7]
+NotebookDataLength[ 218691, 5279]
+NotebookOptionsPosition[ 203950, 5028]
+NotebookOutlinePosition[ 204342, 5044]
+CellTagsIndexPosition[ 204299, 5041]
+WindowFrame->Normal*)
+
+(* Beginning of Notebook Content *)
+Notebook[{
+Cell[BoxData[
+ RowBox[{"<<", "RaduRK.m"}]], "Input",
+ CellChangeTimes->{{3.8711249448396673`*^9, 3.8711249474936934`*^9}},
+ CellLabel->
+ "In[791]:=",ExpressionUUID->"06b5fa42-fc29-44e1-bc44-7744fc838c01"],
+
+Cell["\<\
+RaduRK: Ramanujan--Kolberg Program Version 2.8
+Copyright (C) 2020, Nicolas Allen Smoot
+Research Institute for Symbolic Computation
+Johannes Kepler Universit\[ADoubleDot]t, Linz\
+\>", "Text",
+ CellFrame->0.5,
+ GeneratedCell->True,
+ CellAutoOverwrite->True,
+ CellChangeTimes->{3.871124947964746*^9},
+ ShowAutoSpellCheck->False,
+ FontColor->RGBColor[0, 0, 0],
+ Background->RGBColor[
+ 0.796887, 0.789075,
+ 0.871107],ExpressionUUID->"700e4717-646f-4397-a967-fc351dc7897a"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"SetVar1", "[", "q", "]"}], ",",
+ RowBox[{"SetVar2", "[", "t", "]"}]}], "}"}]], "Input",
+ CellLabel->
+ "In[792]:=",ExpressionUUID->"89851553-37b9-4ff8-adf7-be3ba6489383"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"q", ",", "t"}], "}"}]], "Output",
+ CellChangeTimes->{3.8711249493431997`*^9},
+ CellLabel->
+ "Out[792]=",ExpressionUUID->"0427629f-1e88-448d-9f73-997d30e6bbc6"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"minN", "[",
+ RowBox[{"2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "10"}], ",", "5"}], "}"}], ",", "8", ",", "i"}], "]"}],
+ ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",", "7"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.871124952680545*^9, 3.871124964583589*^9}},
+ CellLabel->
+ "In[793]:=",ExpressionUUID->"ea7cae3d-2e22-4290-a8c4-48e7415cfd61"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"8", ",", "8", ",", "8", ",", "8", ",", "8", ",", "8", ",", "8"}],
+ "}"}]], "Output",
+ CellChangeTimes->{3.8711249650797157`*^9},
+ CellLabel->
+ "Out[793]=",ExpressionUUID->"4964c775-5e8d-4494-892d-5aafc9ead759"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"minN", "[",
+ RowBox[{"2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "14"}], ",", "7"}], "}"}], ",", "8", ",", "i"}], "]"}],
+ ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",", "7"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.871124968962143*^9, 3.871124970312491*^9}},
+ CellLabel->
+ "In[794]:=",ExpressionUUID->"91b3f215-243e-4097-94e9-03f6881c06cf"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"8", ",", "8", ",", "8", ",", "8", ",", "8", ",", "8", ",", "8"}],
+ "}"}]], "Output",
+ CellChangeTimes->{3.871124970790195*^9},
+ CellLabel->
+ "Out[794]=",ExpressionUUID->"57bf7bf1-0907-496f-80a1-089eece07cb0"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"minN", "[",
+ RowBox[{"2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "22"}], ",", "11"}], "}"}], ",", "8", ",", "i"}], "]"}],
+ ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",", "7"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.871124973121509*^9, 3.871124975257379*^9}},
+ CellLabel->
+ "In[795]:=",ExpressionUUID->"4c690501-eb03-4e62-8082-6b0de9ccb3fe"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"8", ",", "8", ",", "8", ",", "8", ",", "8", ",", "8", ",", "8"}],
+ "}"}]], "Output",
+ CellChangeTimes->{3.871124975770905*^9},
+ CellLabel->
+ "Out[795]=",ExpressionUUID->"a6650ac1-e564-407d-b4c0-cf39c786f6c1"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"minN", "[",
+ RowBox[{"2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "26"}], ",", "13"}], "}"}], ",", "8", ",", "i"}], "]"}],
+ ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",", "7"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.87112498010571*^9, 3.871124982649889*^9}},
+ CellLabel->
+ "In[796]:=",ExpressionUUID->"01803c06-9d43-4c80-a679-b9893190df6f"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"8", ",", "8", ",", "8", ",", "8", ",", "8", ",", "8", ",", "8"}],
+ "}"}]], "Output",
+ CellChangeTimes->{3.871124983123314*^9},
+ CellLabel->
+ "Out[796]=",ExpressionUUID->"80c38da7-1262-4abd-bd06-da7f19b9d898"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "10"}], ",", "5"}], "}"}], ",", "8", ",", "1"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.8711249855988913`*^9, 3.871125010550687*^9}},
+ CellLabel->
+ "In[797]:=",ExpressionUUID->"c2968f17-22f9-42ee-89f5-298fa3698fc8"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.871125013520217*^9},
+ CellLabel->
+ "During evaluation of \
+In[797]:=",ExpressionUUID->"9650876e-c3ba-4488-9ede-c98cdc141e06"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.8711250135230923`*^9},
+ CellLabel->
+ "During evaluation of \
+In[797]:=",ExpressionUUID->"2a15cd8a-e266-4bb8-b2c0-c38b9f68c13e"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.871125013526936*^9},
+ CellLabel->
+ "During evaluation of \
+In[797]:=",ExpressionUUID->"81fc6fe4-9123-4358-995c-16ec2014e752"]
+}, Open ]],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "10"}], ",", "5"}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "8"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "1", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "77"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "44"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "19"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "36"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "80"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"687194767360", " ", "t"}], "+",
+ RowBox[{"1226299062353920", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"56406020246732800", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"598734349621264384", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"2475884168223916032", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"5067782720663322624", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"5875585183666667520", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"4188343818182983680", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"1928933741690880000", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"589494086648463360", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"120558358855680000", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"16360718039777280", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"1434469038981120", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"77328227549184", " ",
+ SuperscriptBox["t", "14"]}], "+",
+ RowBox[{"2361187141632", " ",
+ SuperscriptBox["t", "15"]}], "+",
+ RowBox[{"35687348224", " ",
+ SuperscriptBox["t", "16"]}], "+",
+ RowBox[{"210128800", " ",
+ SuperscriptBox["t", "17"]}], "+",
+ RowBox[{"285520", " ",
+ SuperscriptBox["t", "18"]}], "+",
+ RowBox[{"10", " ",
+ SuperscriptBox["t", "19"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "2"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]], "Output",
+ CellChangeTimes->{3.871125017783999*^9},
+ CellLabel->
+ "Out[797]=",ExpressionUUID->"969ab428-2d24-4e50-be9a-79d9118f8ee6"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "10"}], ",", "5"}], "}"}], ",", "8", ",", "2"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.8711250209293833`*^9, 3.8711250210426397`*^9}},
+ CellLabel->
+ "In[798]:=",ExpressionUUID->"f70ace94-41ca-4205-9adc-45317a66e387"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.871125021500355*^9},
+ CellLabel->
+ "During evaluation of \
+In[798]:=",ExpressionUUID->"9160e3dd-f184-4a17-963f-f5afc79c82f6"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.871125021503282*^9},
+ CellLabel->
+ "During evaluation of \
+In[798]:=",ExpressionUUID->"8acdd587-f75f-43c5-8783-3e83e6e41d60"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.8711250215061607`*^9},
+ CellLabel->
+ "During evaluation of \
+In[798]:=",ExpressionUUID->"53ee491c-b625-46f9-9dac-4e1b92f43c2a"]
+}, Open ]],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "10"}], ",", "5"}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "8"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "2", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "78"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "37"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "18"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "36"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "74"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"108233175859200", " ", "t"}], "+",
+ RowBox[{"11804889411747840", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"197872751099248640", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"1114983259617361920", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"2876431172202659840", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"4002466076578283520", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"3312253218922168320", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"1730083637585510400", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"589815659301437440", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"133018427759001600", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"19757506444656640", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"1888787877724160", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"111050710794240", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"3720107872256", " ",
+ SuperscriptBox["t", "14"]}], "+",
+ RowBox[{"62626076672", " ",
+ SuperscriptBox["t", "15"]}], "+",
+ RowBox[{"425154048", " ",
+ SuperscriptBox["t", "16"]}], "+",
+ RowBox[{"731504", " ",
+ SuperscriptBox["t", "17"]}], "+",
+ RowBox[{"60", " ",
+ SuperscriptBox["t", "18"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "4"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]], "Output",
+ CellChangeTimes->{3.871125025773169*^9},
+ CellLabel->
+ "Out[798]=",ExpressionUUID->"b5013aa6-c881-4e5a-a764-2d72d9afa800"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "10"}], ",", "5"}], "}"}], ",", "8", ",", "3"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.871125028686185*^9, 3.87112502896729*^9}},
+ CellLabel->
+ "In[799]:=",ExpressionUUID->"a9fdada1-e44f-4dcf-acc6-75ccbe115c2d"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.8711250294392433`*^9},
+ CellLabel->
+ "During evaluation of \
+In[799]:=",ExpressionUUID->"281b650e-3643-4841-83f0-cd3518e65bba"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.8711250294421177`*^9},
+ CellLabel->
+ "During evaluation of \
+In[799]:=",ExpressionUUID->"53be3910-7997-4cb8-b8c4-abbd43e365a1"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.8711250294450493`*^9},
+ CellLabel->
+ "During evaluation of \
+In[799]:=",ExpressionUUID->"d9a68989-fe30-4ce8-892b-c0a3c2e88330"]
+}, Open ]],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "10"}], ",", "5"}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "8"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "3", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "79"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "42"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "18"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "40"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "76"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"4810363371520", " ", "t"}], "+",
+ RowBox[{"1933594276659200", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"56509056512163840", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"453736408327127040", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"1515145356143230976", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"2576574349108576256", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"2507931316079558656", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"1500022465244430336", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"574535654080249856", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"143633913520062464", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"23437851019444224", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"2449151675858944", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"157261617987584", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"5779820847104", " ",
+ SuperscriptBox["t", "14"]}], "+",
+ RowBox[{"108179189760", " ",
+ SuperscriptBox["t", "15"]}], "+",
+ RowBox[{"842050560", " ",
+ SuperscriptBox["t", "16"]}], "+",
+ RowBox[{"1800800", " ",
+ SuperscriptBox["t", "17"]}], "+",
+ RowBox[{"280", " ",
+ SuperscriptBox["t", "18"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "8"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]], "Output",
+ CellChangeTimes->{3.8711250336369953`*^9},
+ CellLabel->
+ "Out[799]=",ExpressionUUID->"bd996928-9583-4260-97b3-ff1f33ab1d1c"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "10"}], ",", "5"}], "}"}], ",", "8", ",", "4"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.871125036813786*^9, 3.871125037160256*^9}},
+ CellLabel->
+ "In[800]:=",ExpressionUUID->"569322c2-a633-497e-af38-cef39c0c0e52"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.871125037661192*^9},
+ CellLabel->
+ "During evaluation of \
+In[800]:=",ExpressionUUID->"362138dc-f773-48e6-bf29-1e7a4c5e1b69"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.871125037664197*^9},
+ CellLabel->
+ "During evaluation of \
+In[800]:=",ExpressionUUID->"f570c36e-7028-4b9e-8b1b-7f72121bdf2e"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.871125037667245*^9},
+ CellLabel->
+ "During evaluation of \
+In[800]:=",ExpressionUUID->"123fc60b-04d0-40ad-8a80-50644f423df6"]
+}, Open ]],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "10"}], ",", "5"}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "8"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "4", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "80"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "35"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "17"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "40"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "70"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{"34359738368", "+",
+ RowBox[{"228792907857920", " ", "t"}], "+",
+ RowBox[{"13571667158630400", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"164474076088238080", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"733741096936407040", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"1556995458017001472", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"1809274608486973440", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"1252822025471262720", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"543513231380971520", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"151529329363517440", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"27281702347079680", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"3125251737845760", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"219523206471680", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"8854631229440", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"183991106560", " ",
+ SuperscriptBox["t", "14"]}], "+",
+ RowBox[{"1634157824", " ",
+ SuperscriptBox["t", "15"]}], "+",
+ RowBox[{"4277000", " ",
+ SuperscriptBox["t", "16"]}], "+",
+ RowBox[{"1110", " ",
+ SuperscriptBox["t", "17"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "2"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]], "Output",
+ CellChangeTimes->{3.871125041805901*^9},
+ CellLabel->
+ "Out[800]=",ExpressionUUID->"cd7363cc-5d7d-45c9-99ae-6c8236413c2f"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "10"}], ",", "5"}], "}"}], ",", "8", ",", "5"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.871125045137491*^9, 3.8711250454427557`*^9}},
+ CellLabel->
+ "In[801]:=",ExpressionUUID->"e3b33822-a4e2-4720-95c3-4d33d3b4b715"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.871125045903541*^9},
+ CellLabel->
+ "During evaluation of \
+In[801]:=",ExpressionUUID->"9ca7a36a-df72-4b1e-a0ee-feb01cf9852d"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.871125045906519*^9},
+ CellLabel->
+ "During evaluation of \
+In[801]:=",ExpressionUUID->"e7c1ad5a-a8c9-4fa1-81b3-c4a8d4f7dddb"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.8711250459094954`*^9},
+ CellLabel->
+ "During evaluation of \
+In[801]:=",ExpressionUUID->"ec957984-0922-4559-9ddd-ead5dee17982"]
+}, Open ]],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "10"}], ",", "5"}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "8"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "5", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "77"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "38"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "18"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "34"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "76"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"67207648247808", " ", "t"}], "+",
+ RowBox[{"10574312561967104", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"211359326365810688", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"1344780287879413760", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"3829083463881850880", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"5823244700944957440", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"5252173709275299840", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"2995488782674821120", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"1121398891153981440", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"280349722788495360", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"46804512229294080", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"5129075887964160", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"355422650204160", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"14606794219520", " ",
+ SuperscriptBox["t", "14"]}], "+",
+ RowBox[{"320620605440", " ",
+ SuperscriptBox["t", "15"]}], "+",
+ RowBox[{"3149499392", " ",
+ SuperscriptBox["t", "16"]}], "+",
+ RowBox[{"9848096", " ",
+ SuperscriptBox["t", "17"]}], "+",
+ RowBox[{"3912", " ",
+ SuperscriptBox["t", "18"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "8"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]], "Output",
+ CellChangeTimes->{3.871125050081828*^9},
+ CellLabel->
+ "Out[801]=",ExpressionUUID->"390828bf-5120-49ff-bab1-49cd78f54c8a"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "10"}], ",", "5"}], "}"}], ",", "8", ",", "6"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.871125053797208*^9, 3.8711250539702883`*^9}},
+ CellLabel->
+ "In[802]:=",ExpressionUUID->"fd6c0d64-a21f-4681-a283-0b87168afd87"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.871125054415807*^9},
+ CellLabel->
+ "During evaluation of \
+In[802]:=",ExpressionUUID->"82f607ad-103d-4ee7-bbab-e481a81638d3"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.8711250544186974`*^9},
+ CellLabel->
+ "During evaluation of \
+In[802]:=",ExpressionUUID->"680706aa-a46b-4cbc-aa94-7678874cd16a"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.871125054421625*^9},
+ CellLabel->
+ "During evaluation of \
+In[802]:=",ExpressionUUID->"f9b41551-0557-4329-8b04-0ef8b0a4eb86"]
+}, Open ]],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "10"}], ",", "5"}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "8"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "6", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "78"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "43"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "18"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "38"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "78"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"2061584302080", " ", "t"}], "+",
+ RowBox[{"1570892878446592", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"57063210372562944", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"525345607779352576", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"1950407916129353728", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"3638909691305656320", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"3868237573579079680", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"2528960824916049920", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"1064147422072012800", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"294907829650718720", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"54065113674547200", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"6469244568207360", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"488582284738560", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"21945428254720", " ",
+ SuperscriptBox["t", "14"]}], "+",
+ RowBox[{"531665448960", " ",
+ SuperscriptBox["t", "15"]}], "+",
+ RowBox[{"5897067520", " ",
+ SuperscriptBox["t", "16"]}], "+",
+ RowBox[{"21988320", " ",
+ SuperscriptBox["t", "17"]}], "+",
+ RowBox[{"12600", " ",
+ SuperscriptBox["t", "18"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "8"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]], "Output",
+ CellChangeTimes->{3.871125058614769*^9},
+ CellLabel->
+ "Out[802]=",ExpressionUUID->"26402225-4b38-41ba-a237-fc6a36fe6204"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "10"}], ",", "5"}], "}"}], ",", "8", ",", "7"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.871125061193363*^9, 3.871125061510591*^9}},
+ CellLabel->
+ "In[803]:=",ExpressionUUID->"07652d7a-1ee4-46d0-bf7c-164956aa0ddf"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.8711250619610367`*^9},
+ CellLabel->
+ "During evaluation of \
+In[803]:=",ExpressionUUID->"4972781a-ce96-4ac9-b67c-3c625ceeef53"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.871125061964224*^9},
+ CellLabel->
+ "During evaluation of \
+In[803]:=",ExpressionUUID->"f62338f5-1ba1-472d-a7ee-5502c69769cf"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.871125061967451*^9},
+ CellLabel->
+ "During evaluation of \
+In[803]:=",ExpressionUUID->"5ce5fd23-d9d0-445a-8f31-606644cf93f8"]
+}, Open ]],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "10"}], ",", "5"}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "8"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "7", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "79"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "36"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "17"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "38"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "72"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"162177965096960", " ", "t"}], "+",
+ RowBox[{"12820855335682048", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"181969724152741888", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"911076328575336448", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"2131168862538825728", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"2711338639077408768", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"2054802074125729792", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"979900817664376832", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"302871878945472512", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"61243801104023552", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"8026570602053632", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"661947909931008", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"32519056130048", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"868870094848", " ",
+ SuperscriptBox["t", "14"]}], "+",
+ RowBox[{"10846240768", " ",
+ SuperscriptBox["t", "15"]}], "+",
+ RowBox[{"47761408", " ",
+ SuperscriptBox["t", "16"]}], "+",
+ RowBox[{"37760", " ",
+ SuperscriptBox["t", "17"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "128"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]], "Output",
+ CellChangeTimes->{3.8711250660910187`*^9},
+ CellLabel->
+ "Out[803]=",ExpressionUUID->"209932bc-1b2f-47de-abb0-4ce92c046f2d"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "14"}], ",", "7"}], "}"}], ",", "8", ",", "1"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.871125071021047*^9, 3.8711250724105377`*^9}},
+ CellLabel->
+ "In[804]:=",ExpressionUUID->"fd5aeac3-0f78-4f05-92e7-f868de758ebd"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.871125076002035*^9},
+ CellLabel->
+ "During evaluation of \
+In[804]:=",ExpressionUUID->"b9e7e103-0f2c-4470-a67f-a25980483727"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.871125076005087*^9},
+ CellLabel->
+ "During evaluation of \
+In[804]:=",ExpressionUUID->"fd4f7f09-b7fa-42d8-a3dc-7a729120b21f"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.871125076008575*^9},
+ CellLabel->
+ "During evaluation of \
+In[804]:=",ExpressionUUID->"1d79d2e8-406f-47d7-9cec-b2ce5ae0d5c3"]
+}, Open ]],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "14"}], ",", "7"}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "8"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "1", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "109"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "58"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "26"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "52"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "108"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"15762598695796736", " ", "t"}], "+",
+ RowBox[{"155391638592838172672", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"24067309029211921973248", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"755830717944773484740608", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"8766201818211973370740736", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"49086225940898439470514176", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"154290260597099070673125376", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"299559312915935997429022720", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"383305685017497692431974400", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"338229414913892257665908736", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"212461588542559391303335936", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"97081984128704485278089216", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"32706445133598713991659520", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"8176611283399678497914880", " ",
+ SuperscriptBox["t", "14"]}], "+",
+ RowBox[{"1516906002011007582470144", " ",
+ SuperscriptBox["t", "15"]}], "+",
+ RowBox[{"207482020061093155569664", " ",
+ SuperscriptBox["t", "16"]}], "+",
+ RowBox[{"20643885187615494242304", " ",
+ SuperscriptBox["t", "17"]}], "+",
+ RowBox[{"1462195148534765977600", " ",
+ SuperscriptBox["t", "18"]}], "+",
+ RowBox[{"71420505742057799680", " ",
+ SuperscriptBox["t", "19"]}], "+",
+ RowBox[{"2299104043798134784", " ",
+ SuperscriptBox["t", "20"]}], "+",
+ RowBox[{"45715110321434624", " ",
+ SuperscriptBox["t", "21"]}], "+",
+ RowBox[{"510260102933504", " ",
+ SuperscriptBox["t", "22"]}], "+",
+ RowBox[{"2749696133632", " ",
+ SuperscriptBox["t", "23"]}], "+",
+ RowBox[{"5472272512", " ",
+ SuperscriptBox["t", "24"]}], "+",
+ RowBox[{"2208248", " ",
+ SuperscriptBox["t", "25"]}], "+",
+ RowBox[{"14", " ",
+ SuperscriptBox["t", "26"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "2"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]], "Output",
+ CellChangeTimes->{3.871125080677421*^9},
+ CellLabel->
+ "Out[804]=",ExpressionUUID->"7197aafe-2e47-49d6-ada0-944e19326c24"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "14"}], ",", "7"}], "}"}], ",", "8", ",", "2"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.871125083408387*^9, 3.8711250835461683`*^9}},
+ CellLabel->
+ "In[805]:=",ExpressionUUID->"964fa990-1180-47c6-87ce-c8b0271cf923"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.8711250840751343`*^9},
+ CellLabel->
+ "During evaluation of \
+In[805]:=",ExpressionUUID->"6eda7023-1dff-47d5-856b-0f8ab15d2341"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.871125084078079*^9},
+ CellLabel->
+ "During evaluation of \
+In[805]:=",ExpressionUUID->"a45b92a9-4f8c-4c9b-9b9e-14f39896c2bd"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.87112508408111*^9},
+ CellLabel->
+ "During evaluation of \
+In[805]:=",ExpressionUUID->"438521a3-a3b5-4af5-ad54-c7aea29d2392"]
+}, Open ]],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "14"}], ",", "7"}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "8"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "2", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "110"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "51"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "25"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "52"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "102"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"8038925334856335360", " ", "t"}], "+",
+ RowBox[{"3269354372492406292480", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"168172243534616178196480", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"2711545039495694951383040", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"19424727336893059839295488", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"74257513772940905488056320", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"169420786302722933816033280", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"248475217692055566823718912", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"246619154949808667030978560", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"171733624091930025483304960", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"86006635084976737505771520", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"31475183138060992606371840", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"8488444812309760019791872", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"1689778876573731751198720", " ",
+ SuperscriptBox["t", "14"]}], "+",
+ RowBox[{"247061001200354587574272", " ",
+ SuperscriptBox["t", "15"]}], "+",
+ RowBox[{"26213074534578929008640", " ",
+ SuperscriptBox["t", "16"]}], "+",
+ RowBox[{"1978026492968047738880", " ",
+ SuperscriptBox["t", "17"]}], "+",
+ RowBox[{"103015568723986087936", " ",
+ SuperscriptBox["t", "18"]}], "+",
+ RowBox[{"3546685054928158720", " ",
+ SuperscriptBox["t", "19"]}], "+",
+ RowBox[{"75899798365044736", " ",
+ SuperscriptBox["t", "20"]}], "+",
+ RowBox[{"922288076308480", " ",
+ SuperscriptBox["t", "21"]}], "+",
+ RowBox[{"5525361981440", " ",
+ SuperscriptBox["t", "22"]}], "+",
+ RowBox[{"12754176512", " ",
+ SuperscriptBox["t", "23"]}], "+",
+ RowBox[{"6670720", " ",
+ SuperscriptBox["t", "24"]}], "+",
+ RowBox[{"112", " ",
+ SuperscriptBox["t", "25"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "16"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]], "Output",
+ CellChangeTimes->{3.871125088696306*^9},
+ CellLabel->
+ "Out[805]=",ExpressionUUID->"a9d00af6-76be-4e2f-a234-64a17c0c80ba"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "14"}], ",", "7"}], "}"}], ",", "8", ",", "3"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.871125091159981*^9, 3.871125091979567*^9}},
+ CellLabel->
+ "In[806]:=",ExpressionUUID->"a77554f3-ab06-43d7-a958-d9573bc6c07c"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.8711250924388533`*^9},
+ CellLabel->
+ "During evaluation of \
+In[806]:=",ExpressionUUID->"9c21a561-3b4a-4abc-85f5-5c3ba98aa59f"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.87112509244167*^9},
+ CellLabel->
+ "During evaluation of \
+In[806]:=",ExpressionUUID->"450ae754-579d-43fe-b3d4-fa2a24da3e72"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.871125092444611*^9},
+ CellLabel->
+ "During evaluation of \
+In[806]:=",ExpressionUUID->"774acf10-a955-42d3-be2a-d7323d6bac48"]
+}, Open ]],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "14"}], ",", "7"}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "8"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "3", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "111"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "56"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "25"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "56"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "104"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"189151184349560832", " ", "t"}], "+",
+ RowBox[{"339021972749196197888", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"31959693424643109027840", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"751424733698588755886080", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"7073383616924209066803200", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"33466706313008675419062272", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"90862014394714085662916608", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"154209691733692656994222080", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"173462125452240100549197824", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"134713398238271825265033216", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"74305033053124109663207424", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"29655475180690633786392576", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"8654928985636320627916800", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"1853467198793164611649536", " ",
+ SuperscriptBox["t", "14"]}], "+",
+ RowBox[{"290254035363766053371904", " ",
+ SuperscriptBox["t", "15"]}], "+",
+ RowBox[{"32889013241765582340096", " ",
+ SuperscriptBox["t", "16"]}], "+",
+ RowBox[{"2646821982608644112384", " ",
+ SuperscriptBox["t", "17"]}], "+",
+ RowBox[{"147065822347347886080", " ",
+ SuperscriptBox["t", "18"]}], "+",
+ RowBox[{"5415798091573362688", " ",
+ SuperscriptBox["t", "19"]}], "+",
+ RowBox[{"124673196349325312", " ",
+ SuperscriptBox["t", "20"]}], "+",
+ RowBox[{"1646900460339200", " ",
+ SuperscriptBox["t", "21"]}], "+",
+ RowBox[{"10934669025280", " ",
+ SuperscriptBox["t", "22"]}], "+",
+ RowBox[{"29067171840", " ",
+ SuperscriptBox["t", "23"]}], "+",
+ RowBox[{"19271168", " ",
+ SuperscriptBox["t", "24"]}], "+",
+ RowBox[{"672", " ",
+ SuperscriptBox["t", "25"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "32"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]], "Output",
+ CellChangeTimes->{3.8711250970475082`*^9},
+ CellLabel->
+ "Out[806]=",ExpressionUUID->"8568d28c-dfa2-454c-9e32-b602e03c1ad9"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "14"}], ",", "7"}], "}"}], ",", "8", ",", "4"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.8711251001361637`*^9, 3.8711251004305573`*^9}},
+ CellLabel->
+ "In[807]:=",ExpressionUUID->"d773b94b-95ee-48d1-8390-a9a3e8d68213"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.8711251010163307`*^9},
+ CellLabel->
+ "During evaluation of \
+In[807]:=",ExpressionUUID->"2ee17ca4-0a9e-486b-bfc5-e1f09ffe6e79"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.871125101019396*^9},
+ CellLabel->
+ "During evaluation of \
+In[807]:=",ExpressionUUID->"ee4e30f5-15c5-4b32-8dc0-b57a757cc676"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.871125101022513*^9},
+ CellLabel->
+ "During evaluation of \
+In[807]:=",ExpressionUUID->"aca97a07-b8da-4d1c-94f9-f92fa4ace052"]
+}, Open ]],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "14"}], ",", "7"}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "8"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "4", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "112"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "49"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "24"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "56"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "98"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{"562949953421312", "+",
+ RowBox[{"24447790577180737536", " ", "t"}], "+",
+ RowBox[{"5035185809299358089216", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"183857327399526520061952", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"2349181196335800880463872", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"14036988095883821455507456", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"45995476389554354844073984", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"91296716104951984864362496", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"117352487080896284004974592", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"102317331545933996288376832", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"62489566926665495070375936", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"27316419757617380071571456", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"8657647842924803980787712", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"2000130446285440227999744", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"336224958484253916528640", " ",
+ SuperscriptBox["t", "14"]}], "+",
+ RowBox[{"40756096284723972669440", " ",
+ SuperscriptBox["t", "15"]}], "+",
+ RowBox[{"3502251953140247953408", " ",
+ SuperscriptBox["t", "16"]}], "+",
+ RowBox[{"207761982097484939264", " ",
+ SuperscriptBox["t", "17"]}], "+",
+ RowBox[{"8185455470765375488", " ",
+ SuperscriptBox["t", "18"]}], "+",
+ RowBox[{"202616057722437632", " ",
+ SuperscriptBox["t", "19"]}], "+",
+ RowBox[{"2905905589974016", " ",
+ SuperscriptBox["t", "20"]}], "+",
+ RowBox[{"21322434086912", " ",
+ SuperscriptBox["t", "21"]}], "+",
+ RowBox[{"64859562880", " ",
+ SuperscriptBox["t", "22"]}], "+",
+ RowBox[{"53500160", " ",
+ SuperscriptBox["t", "23"]}], "+",
+ RowBox[{"3346", " ",
+ SuperscriptBox["t", "24"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "2"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]], "Output",
+ CellChangeTimes->{3.871125105553507*^9},
+ CellLabel->
+ "Out[807]=",ExpressionUUID->"356af1a9-5a05-48eb-9527-0eb380b5fcb7"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "14"}], ",", "7"}], "}"}], ",", "8", ",", "7"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.871125108402433*^9, 3.8711251088343287`*^9}},
+ CellLabel->
+ "In[808]:=",ExpressionUUID->"1fad8fc6-1219-474d-9e8e-25bd5fc55434"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.871125109350698*^9},
+ CellLabel->
+ "During evaluation of \
+In[808]:=",ExpressionUUID->"8c99829d-ed8b-4d48-80c1-9a4a7fed7c7b"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.8711251093536873`*^9},
+ CellLabel->
+ "During evaluation of \
+In[808]:=",ExpressionUUID->"a17e7ba0-37f2-4055-be4f-2762b751e092"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.871125109356834*^9},
+ CellLabel->
+ "During evaluation of \
+In[808]:=",ExpressionUUID->"7d698d13-d1ea-4c36-908f-acf74adf4605"]
+}, Open ]],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "14"}], ",", "7"}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "8"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "7", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "111"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "50"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "24"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "54"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "100"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"14510597999387738112", " ", "t"}], "+",
+ RowBox[{"4113680223432572141568", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"177364504705245078618112", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"2540440557975743231950848", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"16605011502233609736028160", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"58746416874405995600674816", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"125011423229841490768297984", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"171684378971272088240783360", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"159786641313361695866880000", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"104278857341921708505825280", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"48838669019633268855668736", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"16653745224045147658911744", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"4163436306011286914727936", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"763104203431769825869824", " ",
+ SuperscriptBox["t", "14"]}], "+",
+ RowBox[{"101834821622970418462720", " ",
+ SuperscriptBox["t", "15"]}], "+",
+ RowBox[{"9752602619223736320000", " ",
+ SuperscriptBox["t", "16"]}], "+",
+ RowBox[{"654923931012237885440", " ",
+ SuperscriptBox["t", "17"]}], "+",
+ RowBox[{"29805045897922871296", " ",
+ SuperscriptBox["t", "18"]}], "+",
+ RowBox[{"875389827406495744", " ",
+ SuperscriptBox["t", "19"]}], "+",
+ RowBox[{"15464622063779840", " ",
+ SuperscriptBox["t", "20"]}], "+",
+ RowBox[{"147873102569472", " ",
+ SuperscriptBox["t", "21"]}], "+",
+ RowBox[{"645248309248", " ",
+ SuperscriptBox["t", "22"]}], "+",
+ RowBox[{"935342592", " ",
+ SuperscriptBox["t", "23"]}], "+",
+ RowBox[{"206208", " ",
+ SuperscriptBox["t", "24"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "128"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]], "Output",
+ CellChangeTimes->{3.87112511394736*^9},
+ CellLabel->
+ "Out[808]=",ExpressionUUID->"dded9fe1-a047-4619-b4e2-cf780595ebc9"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "22"}], ",", "11"}], "}"}], ",", "8", ",", "1"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.871125117527732*^9, 3.871125119036319*^9}},
+ CellLabel->
+ "In[809]:=",ExpressionUUID->"4c671ae7-9c29-4ff6-8354-4d5a179bb809"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.871125124725379*^9},
+ CellLabel->
+ "During evaluation of \
+In[809]:=",ExpressionUUID->"6d711d44-cc48-46a7-a477-8d3bfc6c8580"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.8711251247283583`*^9},
+ CellLabel->
+ "During evaluation of \
+In[809]:=",ExpressionUUID->"9ea63665-5b61-499f-b1ad-a81423720f52"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.8711251247316236`*^9},
+ CellLabel->
+ "During evaluation of \
+In[809]:=",ExpressionUUID->"254747cc-5a9d-4eb2-ba52-9ad9d9296401"]
+}, Open ]],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "22"}], ",", "11"}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "8"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "1", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "173"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "86"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "40"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "84"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "164"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"6649092007880460460883968", " ", "t"}], "+",
+ RowBox[{"835396906689106962650807402496", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"811961025380891159048830442274816", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"126040577468365983659225195569217536", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"6459879133357248907635313385515515904", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"150446094361026177051984497839817359360", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"1899904778043847916426943275087301705728", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"14539848725903919817766269585798954221568", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"72750377022759419335028217342857951838208", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"251402730416075165801295948370628248076288", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"625247405855028472049854712164573411016704", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"1155291918152146514823739206475955059032064", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"1626101918868501209754973555968894732075008", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"1778467018513580207586297782197185394245632", " ",
+ SuperscriptBox["t", "14"]}], "+",
+ RowBox[{"1535534969877586044412571157614293346680832", " ",
+ SuperscriptBox["t", "15"]}], "+",
+ RowBox[{"1059844936738760500975494037631525900517376", " ",
+ SuperscriptBox["t", "16"]}], "+",
+ RowBox[{"590553277440447512258687947844840654372864", " ",
+ SuperscriptBox["t", "17"]}], "+",
+ RowBox[{"267642059103805996215870524539672161419264", " ",
+ SuperscriptBox["t", "18"]}], "+",
+ RowBox[{"99190357277976171490437559892069197021184", " ",
+ SuperscriptBox["t", "19"]}], "+",
+ RowBox[{"30166390888833570714535302467114193911808", " ",
+ SuperscriptBox["t", "20"]}], "+",
+ RowBox[{"7541597722208392678633825616778548477952", " ",
+ SuperscriptBox["t", "21"]}], "+",
+ RowBox[{"1549849332468377679538086873313581203456", " ",
+ SuperscriptBox["t", "22"]}], "+",
+ RowBox[{"261369198343560543179561059120773595136", " ",
+ SuperscriptBox["t", "23"]}], "+",
+ RowBox[{"36044511562527313980632809316701700096", " ",
+ SuperscriptBox["t", "24"]}], "+",
+ RowBox[{"4042987582163850788022972250486472704", " ",
+ SuperscriptBox["t", "25"]}], "+",
+ RowBox[{"366100065678974639037268437770436608", " ",
+ SuperscriptBox["t", "26"]}], "+",
+ RowBox[{"26501223720812502616439726683455488", " ",
+ SuperscriptBox["t", "27"]}], "+",
+ RowBox[{"1514425425667782509471265185595392", " ",
+ SuperscriptBox["t", "28"]}], "+",
+ RowBox[{"67246840227869485669288505245696", " ",
+ SuperscriptBox["t", "29"]}], "+",
+ RowBox[{"2274636811689664580807783612416", " ",
+ SuperscriptBox["t", "30"]}], "+",
+ RowBox[{"57162362831167039485375414272", " ",
+ SuperscriptBox["t", "31"]}], "+",
+ RowBox[{"1033845038346604203170332672", " ",
+ SuperscriptBox["t", "32"]}], "+",
+ RowBox[{"12913979864052222817042432", " ",
+ SuperscriptBox["t", "33"]}], "+",
+ RowBox[{"105465901458981376827392", " ",
+ SuperscriptBox["t", "34"]}], "+",
+ RowBox[{"521964743514188093440", " ",
+ SuperscriptBox["t", "35"]}], "+",
+ RowBox[{"1400762998075941376", " ",
+ SuperscriptBox["t", "36"]}], "+",
+ RowBox[{"1708168348906624", " ",
+ SuperscriptBox["t", "37"]}], "+",
+ RowBox[{"687757740384", " ",
+ SuperscriptBox["t", "38"]}], "+",
+ RowBox[{"44225544", " ",
+ SuperscriptBox["t", "39"]}], "+",
+ RowBox[{"22", " ",
+ SuperscriptBox["t", "40"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "2"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]], "Output",
+ CellChangeTimes->{3.871125130724453*^9},
+ CellLabel->
+ "Out[809]=",ExpressionUUID->"299678f1-a181-4b53-a021-f409b2bcbb3e"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "22"}], ",", "11"}], "}"}], ",", "8", ",", "2"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.8711251344661627`*^9, 3.871125134573971*^9}},
+ CellLabel->
+ "In[810]:=",ExpressionUUID->"279b0ec8-e17e-4fa4-b24a-258a93a1c65c"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.871125135085659*^9},
+ CellLabel->
+ "During evaluation of \
+In[810]:=",ExpressionUUID->"bc592111-65b9-4a3e-8ced-ba8c513bff18"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.8711251350885763`*^9},
+ CellLabel->
+ "During evaluation of \
+In[810]:=",ExpressionUUID->"28777864-380e-451a-a0d2-c56c2bf15c51"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.87112513509167*^9},
+ CellLabel->
+ "During evaluation of \
+In[810]:=",ExpressionUUID->"2e190fb5-977e-4ed7-b862-f6b263d9a5fa"]
+}, Open ]],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "22"}], ",", "11"}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "8"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "2", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "174"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "79"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "39"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "84"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "158"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"19102841338640562904119640064", " ", "t"}], "+",
+ RowBox[{"57648305915708396002831012724736", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"15687734001093825131111681162739712", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"1158443899289144562188017102856650752", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"35297098178130312993803289454849294336", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"550985233561085349710460706986225827840", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"5021246734742392118466558861205594701824", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"29137203802863848311946368217012731117568", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"114487054953643663250207072831123266469888", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"318807514777170442881927024108198743244800", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"651477608974815838509850248832673153810432", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"1003906142257940119696576652505047275405312", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"1191976126024518322837527512432572077441024", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"1109354913909509041799955953395351750180864", " ",
+ SuperscriptBox["t", "14"]}], "+",
+ RowBox[{"820383448038236673532959387542379523211264", " ",
+ SuperscriptBox["t", "15"]}], "+",
+ RowBox[{"487250813483477739996545409422283088330752", " ",
+ SuperscriptBox["t", "16"]}], "+",
+ RowBox[{"234337263820653788059592759277067087904768", " ",
+ SuperscriptBox["t", "17"]}], "+",
+ RowBox[{"91811571916505468847206865094137016745984", " ",
+ SuperscriptBox["t", "18"]}], "+",
+ RowBox[{"29422326015464565492105397531563937234944", " ",
+ SuperscriptBox["t", "19"]}], "+",
+ RowBox[{"7729251917880313715156305125491641155584", " ",
+ SuperscriptBox["t", "20"]}], "+",
+ RowBox[{"1665208934905657977831425973538546253824", " ",
+ SuperscriptBox["t", "21"]}], "+",
+ RowBox[{"293832263827022355450184199168600309760", " ",
+ SuperscriptBox["t", "22"]}], "+",
+ RowBox[{"42332945588734407916408014477318946816", " ",
+ SuperscriptBox["t", "23"]}], "+",
+ RowBox[{"4954842127177920760923080217094782976", " ",
+ SuperscriptBox["t", "24"]}], "+",
+ RowBox[{"467819426796147162291830090530553856", " ",
+ SuperscriptBox["t", "25"]}], "+",
+ RowBox[{"35297058010968036370228446761058304", " ",
+ SuperscriptBox["t", "26"]}], "+",
+ RowBox[{"2102605040050777873429103695101952", " ",
+ SuperscriptBox["t", "27"]}], "+",
+ RowBox[{"97385324500783881849046206251008", " ",
+ SuperscriptBox["t", "28"]}], "+",
+ RowBox[{"3440324679671814373479439925248", " ",
+ SuperscriptBox["t", "29"]}], "+",
+ RowBox[{"90483318303900484903838416896", " ",
+ SuperscriptBox["t", "30"]}], "+",
+ RowBox[{"1718112626292667345444798464", " ",
+ SuperscriptBox["t", "31"]}], "+",
+ RowBox[{"22635881757260549820776448", " ",
+ SuperscriptBox["t", "32"]}], "+",
+ RowBox[{"196300831709665736097792", " ",
+ SuperscriptBox["t", "33"]}], "+",
+ RowBox[{"1042093876433747771392", " ",
+ SuperscriptBox["t", "34"]}], "+",
+ RowBox[{"3047543919941081088", " ",
+ SuperscriptBox["t", "35"]}], "+",
+ RowBox[{"4160051831721984", " ",
+ SuperscriptBox["t", "36"]}], "+",
+ RowBox[{"1976217586816", " ",
+ SuperscriptBox["t", "37"]}], "+",
+ RowBox[{"171815424", " ",
+ SuperscriptBox["t", "38"]}], "+",
+ RowBox[{"264", " ",
+ SuperscriptBox["t", "39"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "8"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]], "Output",
+ CellChangeTimes->{3.8711251409351*^9},
+ CellLabel->
+ "Out[810]=",ExpressionUUID->"671925ed-c843-4f0f-9930-9c6b63fc6dba"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "22"}], ",", "11"}], "}"}], ",", "8", ",", "3"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.8711251451104097`*^9, 3.871125145278371*^9}},
+ CellLabel->
+ "In[811]:=",ExpressionUUID->"c18d8980-a9d5-4cba-8e3c-ad032ec70b9a"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.871125145777507*^9},
+ CellLabel->
+ "During evaluation of \
+In[811]:=",ExpressionUUID->"6b8d374e-c267-446b-acca-005df37ac242"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.871125145780552*^9},
+ CellLabel->
+ "During evaluation of \
+In[811]:=",ExpressionUUID->"b2b7977c-ce73-45ec-8b2b-d8b12e330bfe"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.871125145783804*^9},
+ CellLabel->
+ "During evaluation of \
+In[811]:=",ExpressionUUID->"eca4db47-8681-42f6-b851-02e1bc01d510"]
+}, Open ]],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "22"}], ",", "11"}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "8"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "3", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "175"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "84"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "39"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "88"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "160"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"172876392204891971982983168", " ", "t"}], "+",
+ RowBox[{"2990738011091148630036702035968", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"1634117936940702324957321585754112", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"183871809602751304162569140515635200", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"7552623972075581096664990809419939840", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"148465470127860816973093596458664329216", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"1631805691915065878780250259053900464128", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"11084618380067383732484144595122190811136", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"49880819658677438016741019267176373157888", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"156425116759878178340289864194883531571200", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"355205046244213059437089229816568821579776", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"601663024776165197276178178041380280991744", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"778202870484376306576225754787144938815488", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"783013345058422121164650355304443745927168", " ",
+ SuperscriptBox["t", "14"]}], "+",
+ RowBox[{"622006401463014447508691227259676886302720", " ",
+ SuperscriptBox["t", "15"]}], "+",
+ RowBox[{"394659546253617811969120759541758081105920", " ",
+ SuperscriptBox["t", "16"]}], "+",
+ RowBox[{"201816128607770530255421649053113074581504", " ",
+ SuperscriptBox["t", "17"]}], "+",
+ RowBox[{"83733198852151284443461189599642790133760", " ",
+ SuperscriptBox["t", "18"]}], "+",
+ RowBox[{"28317463820780214828625297405756953329664", " ",
+ SuperscriptBox["t", "19"]}], "+",
+ RowBox[{"7827152208331112750012580943149934837760", " ",
+ SuperscriptBox["t", "20"]}], "+",
+ RowBox[{"1769841488798763426789081087859809583104", " ",
+ SuperscriptBox["t", "21"]}], "+",
+ RowBox[{"327082808016215954857270271873604648960", " ",
+ SuperscriptBox["t", "22"]}], "+",
+ RowBox[{"49271515773381477113140051038357684224", " ",
+ SuperscriptBox["t", "23"]}], "+",
+ RowBox[{"6022026767785916320329601433437470720", " ",
+ SuperscriptBox["t", "24"]}], "+",
+ RowBox[{"593191529715551803120318629512478720", " ",
+ SuperscriptBox["t", "25"]}], "+",
+ RowBox[{"46671232286597616741934439856078848", " ",
+ SuperscriptBox["t", "26"]}], "+",
+ RowBox[{"2899031603650660464824087004315648", " ",
+ SuperscriptBox["t", "27"]}], "+",
+ RowBox[{"140085589321368652693037450788864", " ",
+ SuperscriptBox["t", "28"]}], "+",
+ RowBox[{"5168913721633915839441604182016", " ",
+ SuperscriptBox["t", "29"]}], "+",
+ RowBox[{"142267814917320882468893491200", " ",
+ SuperscriptBox["t", "30"]}], "+",
+ RowBox[{"2835396324978628286813831168", " ",
+ SuperscriptBox["t", "31"]}], "+",
+ RowBox[{"39380475343148844062867456", " ",
+ SuperscriptBox["t", "32"]}], "+",
+ RowBox[{"362333650175698158419968", " ",
+ SuperscriptBox["t", "33"]}], "+",
+ RowBox[{"2060372291221868281856", " ",
+ SuperscriptBox["t", "34"]}], "+",
+ RowBox[{"6550857054792355840", " ",
+ SuperscriptBox["t", "35"]}], "+",
+ RowBox[{"9967710771507200", " ",
+ SuperscriptBox["t", "36"]}], "+",
+ RowBox[{"5536606929152", " ",
+ SuperscriptBox["t", "37"]}], "+",
+ RowBox[{"633313408", " ",
+ SuperscriptBox["t", "38"]}], "+",
+ RowBox[{"2288", " ",
+ SuperscriptBox["t", "39"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "16"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]], "Output",
+ CellChangeTimes->{3.871125151587574*^9},
+ CellLabel->
+ "Out[811]=",ExpressionUUID->"29a2da31-abf5-41f8-910f-9acf6fcd5f01"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "22"}], ",", "11"}], "}"}], ",", "8", ",", "4"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.871125156077755*^9, 3.8711251561951113`*^9}},
+ CellLabel->
+ "In[812]:=",ExpressionUUID->"3c640233-1f97-4e77-846d-ac91e71f4216"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.871125156676855*^9},
+ CellLabel->
+ "During evaluation of \
+In[812]:=",ExpressionUUID->"0701f199-4d20-465e-b316-d92cd567fe34"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.871125156680031*^9},
+ CellLabel->
+ "During evaluation of \
+In[812]:=",ExpressionUUID->"e0e54785-5c6f-47fa-b163-283ea9f03e4f"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.871125156683237*^9},
+ CellLabel->
+ "During evaluation of \
+In[812]:=",ExpressionUUID->"18b232ac-61f3-412b-bc4e-1788624e061c"]
+}, Open ]],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "22"}], ",", "11"}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "8"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "4", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "176"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "77"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "38"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "88"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "154"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{"151115727451828646838272", "+",
+ RowBox[{"101263177870516457646590001152", " ", "t"}], "+",
+ RowBox[{"137479023456497304018365265739776", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"25405401699836591756051984949444608", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"1459890469516280644275100787249512448", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"36939890092550184089023305897090220032", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"496840581918717862708376308379996389376", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"3992130362677261248158068623019694096384", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"20737270849641825725631727980085711470592", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"73695658681003391730604301608633900204032", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"186912244790185157533391808770490752827392", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"349503940445834045240482810927431190315008", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"494241800185061606178029440994814875140096", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"539327145016946667705272685610105959350272", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"461466707871491230926360511786464588070912", " ",
+ SuperscriptBox["t", "14"]}], "+",
+ RowBox[{"313539455146486048422438581506091174068224", " ",
+ SuperscriptBox["t", "15"]}], "+",
+ RowBox[{"170833349014240492605241859025292939493376", " ",
+ SuperscriptBox["t", "16"]}], "+",
+ RowBox[{"75195297884490745398565557667430781681664", " ",
+ SuperscriptBox["t", "17"]}], "+",
+ RowBox[{"26879196451415475056093387108936788738048", " ",
+ SuperscriptBox["t", "18"]}], "+",
+ RowBox[{"7828145999926384156517071049139366658048", " ",
+ SuperscriptBox["t", "19"]}], "+",
+ RowBox[{"1860006773805062417526033216163192766464", " ",
+ SuperscriptBox["t", "20"]}], "+",
+ RowBox[{"360400179316933575258184748178742444032", " ",
+ SuperscriptBox["t", "21"]}], "+",
+ RowBox[{"56816140006524663536031782362756939776", " ",
+ SuperscriptBox["t", "22"]}], "+",
+ RowBox[{"7256758793607300829785648634047496192", " ",
+ SuperscriptBox["t", "23"]}], "+",
+ RowBox[{"746226072335203027159757582994767872", " ",
+ SuperscriptBox["t", "24"]}], "+",
+ RowBox[{"61254137530063376001483460795432960", " ",
+ SuperscriptBox["t", "25"]}], "+",
+ RowBox[{"3969043041970394899077121099956224", " ",
+ SuperscriptBox["t", "26"]}], "+",
+ RowBox[{"200141710065798049355709991092224", " ",
+ SuperscriptBox["t", "27"]}], "+",
+ RowBox[{"7714194703968294408990979260416", " ",
+ SuperscriptBox["t", "28"]}], "+",
+ RowBox[{"222186073047834612792832294912", " ",
+ SuperscriptBox["t", "29"]}], "+",
+ RowBox[{"4646743346911664250313768960", " ",
+ SuperscriptBox["t", "30"]}], "+",
+ RowBox[{"68004127251275530284040192", " ",
+ SuperscriptBox["t", "31"]}], "+",
+ RowBox[{"663316007762015860105216", " ",
+ SuperscriptBox["t", "32"]}], "+",
+ RowBox[{"4035006431519773650944", " ",
+ SuperscriptBox["t", "33"]}], "+",
+ RowBox[{"13917558175989974528", " ",
+ SuperscriptBox["t", "34"]}], "+",
+ RowBox[{"23513598155536896", " ",
+ SuperscriptBox["t", "35"]}], "+",
+ RowBox[{"15148308298464", " ",
+ SuperscriptBox["t", "36"]}], "+",
+ RowBox[{"2227918704", " ",
+ SuperscriptBox["t", "37"]}], "+",
+ RowBox[{"15994", " ",
+ SuperscriptBox["t", "38"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "2"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]], "Output",
+ CellChangeTimes->{3.871125162504486*^9},
+ CellLabel->
+ "Out[812]=",ExpressionUUID->"45b928e9-a3ee-4e3a-be2b-e78184b56dab"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "22"}], ",", "11"}], "}"}], ",", "8", ",", "7"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.8711251662700768`*^9, 3.871125166749329*^9}},
+ CellLabel->
+ "In[813]:=",ExpressionUUID->"662b61b7-4101-4e9a-a569-4b1508cf29c4"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.871125167247388*^9},
+ CellLabel->
+ "During evaluation of \
+In[813]:=",ExpressionUUID->"0f0c8c9f-4e90-47a5-9cb7-bb47bd30bd3b"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.8711251672507687`*^9},
+ CellLabel->
+ "During evaluation of \
+In[813]:=",ExpressionUUID->"25cd885d-dd92-4ea4-9cca-bb3bbc13714d"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.871125167253982*^9},
+ CellLabel->
+ "During evaluation of \
+In[813]:=",ExpressionUUID->"391f7560-6f7b-41c5-9e9b-59f33905eccc"]
+}, Open ]],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "22"}], ",", "11"}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "8"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "7", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "175"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "78"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "38"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "86"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "156"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"45812243934296372575490539520", " ", "t"}], "+",
+ RowBox[{"90447548715007844545951160074240", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"20152493620982152939928123286224896", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"1309167716265891845947619647024005120", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"36298769697343136002244184721175085056", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"525520880019544312983549923118232371200", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"4494675497227412615690128452610278031360", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"24669277621823034037423129786699405590528", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"92168471844654408385938201444439811948544", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"244927632652679931161616704974202599374848", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"478782187034514856673878216272300740706304", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"706833756723797749709740931933572327014400", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"804689346142851472803287799161139379568640", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"718238191130676691983867403911358379458560", " ",
+ SuperscriptBox["t", "14"]}], "+",
+ RowBox[{"509260006662635385788820723307447073112064", " ",
+ SuperscriptBox["t", "15"]}], "+",
+ RowBox[{"289799460531634634450358293511676427763712", " ",
+ SuperscriptBox["t", "16"]}], "+",
+ RowBox[{"133392143512147888105764984263406434385920", " ",
+ SuperscriptBox["t", "17"]}], "+",
+ RowBox[{"49943815378071628694948294411086687371264", " ",
+ SuperscriptBox["t", "18"]}], "+",
+ RowBox[{"15266429110452890335380806046684435972096", " ",
+ SuperscriptBox["t", "19"]}], "+",
+ RowBox[{"3816607277613222583845201511671108993024", " ",
+ SuperscriptBox["t", "20"]}], "+",
+ RowBox[{"780372115282369198358567100173229490176", " ",
+ SuperscriptBox["t", "21"]}], "+",
+ RowBox[{"130265765148581921978286117444732846080", " ",
+ SuperscriptBox["t", "22"]}], "+",
+ RowBox[{"17687955354714027981589251312968531968", " ",
+ SuperscriptBox["t", "23"]}], "+",
+ RowBox[{"1942672754908124488024981396894253056", " ",
+ SuperscriptBox["t", "24"]}], "+",
+ RowBox[{"171241328985852406497923708894576640", " ",
+ SuperscriptBox["t", "25"]}], "+",
+ RowBox[{"11990805657846502554465648519413760", " ",
+ SuperscriptBox["t", "26"]}], "+",
+ RowBox[{"658290234137138118697089079705600", " ",
+ SuperscriptBox["t", "27"]}], "+",
+ RowBox[{"27868791194313372058903228973056", " ",
+ SuperscriptBox["t", "28"]}], "+",
+ RowBox[{"891041536861593817453892206592", " ",
+ SuperscriptBox["t", "29"]}], "+",
+ RowBox[{"20956684203305123534377844736", " ",
+ SuperscriptBox["t", "30"]}], "+",
+ RowBox[{"350571520212711135932055552", " ",
+ SuperscriptBox["t", "31"]}], "+",
+ RowBox[{"3992073780192317947248640", " ",
+ SuperscriptBox["t", "32"]}], "+",
+ RowBox[{"29172269045948624076800", " ",
+ SuperscriptBox["t", "33"]}], "+",
+ RowBox[{"125936655886113357824", " ",
+ SuperscriptBox["t", "34"]}], "+",
+ RowBox[{"283880496424673280", " ",
+ SuperscriptBox["t", "35"]}], "+",
+ RowBox[{"273117217060864", " ",
+ SuperscriptBox["t", "36"]}], "+",
+ RowBox[{"76612053760", " ",
+ SuperscriptBox["t", "37"]}], "+",
+ RowBox[{"2425280", " ",
+ SuperscriptBox["t", "38"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "64"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]], "Output",
+ CellChangeTimes->{3.871125173060821*^9},
+ CellLabel->
+ "Out[813]=",ExpressionUUID->"680f4199-cfca-443b-851f-568ca753a1d5"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "26"}], ",", "13"}], "}"}], ",", "8", ",", "1"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.871125178354731*^9, 3.871125179918042*^9}},
+ CellLabel->
+ "In[814]:=",ExpressionUUID->"f38d4490-65ed-4cd4-b7e3-3901cc8b3bf3"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.871125183636258*^9},
+ CellLabel->
+ "During evaluation of \
+In[814]:=",ExpressionUUID->"6ad4bc8d-2490-4787-acb2-54c1af8222c5"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.871125183639526*^9},
+ CellLabel->
+ "During evaluation of \
+In[814]:=",ExpressionUUID->"178f7951-d10e-4a1d-bb7f-c35eb8273b33"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.8711251836430197`*^9},
+ CellLabel->
+ "During evaluation of \
+In[814]:=",ExpressionUUID->"8b57d8c8-a8ee-4d55-b342-cd114bcf6dac"]
+}, Open ]],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "26"}], ",", "13"}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "8"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "1", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "205"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "100"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "47"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "100"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "192"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"128745764085679548589508919296", " ", "t"}], "+",
+ RowBox[{"44370618270078385427016880173875200", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"91090724900994546286164473515243208704", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"26892877412247595733182979738143291342848", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"2483533244798046509537256033420009478815744", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"100978912713781628047701892029213651167608832", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"2182680416878094746583047613145816712773369856", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"28225718600750698449455643254374476167822442496", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"236649227582443113872232564622704624416449363968", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"1363132207051474767842220738250764565818231488512", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"5634621357362764405576206078990803079049643032576", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"17288608380709502443794871707842253480270457995264", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"40445629687065127543362271241571531136623053897728", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"73722796722372228816095630355051501590167844552704", " ",
+ SuperscriptBox["t", "14"]}], "+",
+ RowBox[{"106568633487916046171476212607322035824077987381248", " ",
+ SuperscriptBox["t", "15"]}], "+",
+ RowBox[{"123956633598104189559083266154583549780869066522624", " ",
+ SuperscriptBox["t", "16"]}], "+",
+ RowBox[{"117416957549459919383327157397012294053003524046848", " ",
+ SuperscriptBox["t", "17"]}], "+",
+ RowBox[{"91474267336944507348313777247247128758091757125632", " ",
+ SuperscriptBox["t", "18"]}], "+",
+ RowBox[{"59084915765202416020580879356957654213435288715264", " ",
+ SuperscriptBox["t", "19"]}], "+",
+ RowBox[{"31848236468493812352873898781753858149062367248384", " ",
+ SuperscriptBox["t", "20"]}], "+",
+ RowBox[{"14399352440871056644053269731061239035989141225472", " ",
+ SuperscriptBox["t", "21"]}], "+",
+ RowBox[{"5481766750153474631773640610488758238172116156416", " ",
+ SuperscriptBox["t", "22"]}], "+",
+ RowBox[{"1761912028508805076570185212852661616998579437568", " ",
+ SuperscriptBox["t", "23"]}], "+",
+ RowBox[{"478875734096020247669966886291249140902450429952", " ",
+ SuperscriptBox["t", "24"]}], "+",
+ RowBox[{"110119501781800317285636575803291351062411214848", " ",
+ SuperscriptBox["t", "25"]}], "+",
+ RowBox[{"21413151367787010280365783634721711867859828736", " ",
+ SuperscriptBox["t", "26"]}], "+",
+ RowBox[{"3515466904509535313489567805434872811520786432", " ",
+ SuperscriptBox["t", "27"]}], "+",
+ RowBox[{"485965522285367009778959637172757845292089344", " ",
+ SuperscriptBox["t", "28"]}], "+",
+ RowBox[{"56347766652300277729588393551786092961726464", " ",
+ SuperscriptBox["t", "29"]}], "+",
+ RowBox[{"5452291210707694730062113836243577525501952", " ",
+ SuperscriptBox["t", "30"]}], "+",
+ RowBox[{"437412252833917436686631878454283975262208", " ",
+ SuperscriptBox["t", "31"]}], "+",
+ RowBox[{"28860902785813480047295630479833006342144", " ",
+ SuperscriptBox["t", "32"]}], "+",
+ RowBox[{"1550777720519051161994520409022836768768", " ",
+ SuperscriptBox["t", "33"]}], "+",
+ RowBox[{"67050493018880141622590263391477039104", " ",
+ SuperscriptBox["t", "34"]}], "+",
+ RowBox[{"2299067869390974439247785951554961408", " ",
+ SuperscriptBox["t", "35"]}], "+",
+ RowBox[{"61421475481571627752667807370706944", " ",
+ SuperscriptBox["t", "36"]}], "+",
+ RowBox[{"1251137273197758671544878268153856", " ",
+ SuperscriptBox["t", "37"]}], "+",
+ RowBox[{"18917259523458168188922722516992", " ",
+ SuperscriptBox["t", "38"]}], "+",
+ RowBox[{"205260485329521105937946247168", " ",
+ SuperscriptBox["t", "39"]}], "+",
+ RowBox[{"1530119271344920981156397056", " ",
+ SuperscriptBox["t", "40"]}], "+",
+ RowBox[{"7395208905689990012133376", " ",
+ SuperscriptBox["t", "41"]}], "+",
+ RowBox[{"21383116511622297915392", " ",
+ SuperscriptBox["t", "42"]}], "+",
+ RowBox[{"32869288811645704704", " ",
+ SuperscriptBox["t", "43"]}], "+",
+ RowBox[{"22245266811176448", " ",
+ SuperscriptBox["t", "44"]}], "+",
+ RowBox[{"4709280101344", " ",
+ SuperscriptBox["t", "45"]}], "+",
+ RowBox[{"143369200", " ",
+ SuperscriptBox["t", "46"]}], "+",
+ RowBox[{"26", " ",
+ SuperscriptBox["t", "47"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "2"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]], "Output",
+ CellChangeTimes->{3.8711251907294703`*^9},
+ CellLabel->
+ "Out[814]=",ExpressionUUID->"70384869-9f3d-4a64-ad02-525000db9373"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "26"}], ",", "13"}], "}"}], ",", "8", ",", "2"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.871125193834998*^9, 3.8711251939373503`*^9}},
+ CellLabel->
+ "In[815]:=",ExpressionUUID->"8777fb7d-3927-4651-a30b-631e2b650b30"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.871125194382359*^9},
+ CellLabel->
+ "During evaluation of \
+In[815]:=",ExpressionUUID->"8a01a45b-04ef-4862-a955-70329784371f"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.8711251943854628`*^9},
+ CellLabel->
+ "During evaluation of \
+In[815]:=",ExpressionUUID->"5c00ccff-c387-4af4-988f-757b2ca67d1a"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.871125194388618*^9},
+ CellLabel->
+ "During evaluation of \
+In[815]:=",ExpressionUUID->"e1554dbb-e7ab-417f-8c7c-121d63b7f4e0"]
+}, Open ]],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "26"}], ",", "13"}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "8"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "2", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "206"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "93"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "46"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "100"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "186"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"728636651842903405242325728755712", " ", "t"}], "+",
+ RowBox[{"4968693818858722005694955351045046272", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"2651970524839384058025487237047455318016", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"358906178289585973424056761251932078604288", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"19294882945967452442509161934304391039287296", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"519253988485331668122138971871549517914439680", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"8038649897912661019235874241976434109068607488", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"78493061875808661382700447941236873168613801984", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"515922346823988685560717173659386326827803869184", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"2395415835513570383845155751937847274607522873344", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"8152363907984585756326207153719734427412603076608", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"20938101554329081794983705603485638738210874982400", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"41542072951785835325390897549847958562238317461504", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"64891424742147184721489112750910398509489374363648", " ",
+ SuperscriptBox["t", "14"]}], "+",
+ RowBox[{"81059325734065368626742652698434384064832841187328", " ",
+ SuperscriptBox["t", "15"]}], "+",
+ RowBox[{"82018141754831894857364672783247514151466259447808", " ",
+ SuperscriptBox["t", "16"]}], "+",
+ RowBox[{"67935651000622044825489838901187826173757639098368", " ",
+ SuperscriptBox["t", "17"]}], "+",
+ RowBox[{"46464788071300064866995260701307295751576498470912", " ",
+ SuperscriptBox["t", "18"]}], "+",
+ RowBox[{"26425783355966179211710032783119835811050915102720", " ",
+ SuperscriptBox["t", "19"]}], "+",
+ RowBox[{"12566538801026464240030852617375555837303850008576", " ",
+ SuperscriptBox["t", "20"]}], "+",
+ RowBox[{"5017921289041166281275801657197170933726739169280", " ",
+ SuperscriptBox["t", "21"]}], "+",
+ RowBox[{"1687583095533315570096292546950808089063849984000", " ",
+ SuperscriptBox["t", "22"]}], "+",
+ RowBox[{"478917322698840441419653262369840674213510250496", " ",
+ SuperscriptBox["t", "23"]}], "+",
+ RowBox[{"114777935864652565967218292069545683769379258368", " ",
+ SuperscriptBox["t", "24"]}], "+",
+ RowBox[{"23224311132753082259574226479949322235169210368", " ",
+ SuperscriptBox["t", "25"]}], "+",
+ RowBox[{"3962149666678319568149478295556184182574022656", " ",
+ SuperscriptBox["t", "26"]}], "+",
+ RowBox[{"568537132155537711291204109339210743392763904", " ",
+ SuperscriptBox["t", "27"]}], "+",
+ RowBox[{"68368633007704636347755908131712469758377984", " ",
+ SuperscriptBox["t", "28"]}], "+",
+ RowBox[{"6856626288351823744231114762837714517622784", " ",
+ SuperscriptBox["t", "29"]}], "+",
+ RowBox[{"569909620860992295696527362790865051320320", " ",
+ SuperscriptBox["t", "30"]}], "+",
+ RowBox[{"38954466406690326624965479186621574152192", " ",
+ SuperscriptBox["t", "31"]}], "+",
+ RowBox[{"2168738066273137611654443849775690285056", " ",
+ SuperscriptBox["t", "32"]}], "+",
+ RowBox[{"97206535673323205594282095758278656000", " ",
+ SuperscriptBox["t", "33"]}], "+",
+ RowBox[{"3458447824422930653263036181387411456", " ",
+ SuperscriptBox["t", "34"]}], "+",
+ RowBox[{"96005760385811178235302808320475136", " ",
+ SuperscriptBox["t", "35"]}], "+",
+ RowBox[{"2036134610614709406831279679209472", " ",
+ SuperscriptBox["t", "36"]}], "+",
+ RowBox[{"32144355743043861382129280614400", " ",
+ SuperscriptBox["t", "37"]}], "+",
+ RowBox[{"365577720589410738188409110528", " ",
+ SuperscriptBox["t", "38"]}], "+",
+ RowBox[{"2871841748154221800315420672", " ",
+ SuperscriptBox["t", "39"]}], "+",
+ RowBox[{"14738158918171196299083776", " ",
+ SuperscriptBox["t", "40"]}], "+",
+ RowBox[{"45755625032185510514688", " ",
+ SuperscriptBox["t", "41"]}], "+",
+ RowBox[{"76825172597600134144", " ",
+ SuperscriptBox["t", "42"]}], "+",
+ RowBox[{"58463080177684992", " ",
+ SuperscriptBox["t", "43"]}], "+",
+ RowBox[{"14726789171328", " ",
+ SuperscriptBox["t", "44"]}], "+",
+ RowBox[{"617118320", " ",
+ SuperscriptBox["t", "45"]}], "+",
+ RowBox[{"364", " ",
+ SuperscriptBox["t", "46"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "4"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]], "Output",
+ CellChangeTimes->{3.871125201341951*^9},
+ CellLabel->
+ "Out[815]=",ExpressionUUID->"5e4a24ed-12d8-49bd-ad44-1bda70867d25"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "26"}], ",", "13"}], "}"}], ",", "8", ",", "3"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.8711252059658833`*^9, 3.871125206123458*^9}},
+ CellLabel->
+ "In[816]:=",ExpressionUUID->"5d465532-76fb-4474-bc27-c73218926da7"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.871125206680914*^9},
+ CellLabel->
+ "During evaluation of \
+In[816]:=",ExpressionUUID->"5b412195-b679-4980-8e32-69ff009afb5e"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.8711252066839237`*^9},
+ CellLabel->
+ "During evaluation of \
+In[816]:=",ExpressionUUID->"1d57f541-ce34-4c58-9ba1-d001ac586643"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.871125206687113*^9},
+ CellLabel->
+ "During evaluation of \
+In[816]:=",ExpressionUUID->"cc4a32e6-67ea-4263-b03c-942f51c035d5"]
+}, Open ]],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "26"}], ",", "13"}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "8"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "3", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "207"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "98"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "46"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "104"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "188"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"4506101742998784200632812175360", " ", "t"}], "+",
+ RowBox[{"194380322430117961040553418975870976", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"216835067755176310453430309344094715904", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"45655735093629717443891178558347376852992", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"3350109024232627197701904578546195916390400", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"114460168503257314066802572070702352428957696", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"2149499770547953896546645084418026072531009536", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"24678602908358182041425664295278971636697530368", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"186445432834565895422295330933232259510168453120", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"977956807908292951236195574947747773182363303936", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"3709139297165683319302130872818733186289158324224", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"10499749025733312979172762307977297960522949328896", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"22751389682730248719888023665526936106636893224960", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"38515783345667780342791264394600126189363257147392", " ",
+ SuperscriptBox["t", "14"]}], "+",
+ RowBox[{"51800131220364590699019968782435180063539356237824", " ",
+ SuperscriptBox["t", "15"]}], "+",
+ RowBox[{"56111715420095246111383141557758675387569248665600", " ",
+ SuperscriptBox["t", "16"]}], "+",
+ RowBox[{"49513106950471067824554010071661529806402461106176", " ",
+ SuperscriptBox["t", "17"]}], "+",
+ RowBox[{"35921876393080338962933702223065817788659858931712", " ",
+ SuperscriptBox["t", "18"]}], "+",
+ RowBox[{"21589342698617428649050285871323504056286194958336", " ",
+ SuperscriptBox["t", "19"]}], "+",
+ RowBox[{"10813492506178663391633865055911735197074571919360", " ",
+ SuperscriptBox["t", "20"]}], "+",
+ RowBox[{"4534699493492998235030380391274973041801274851328", " ",
+ SuperscriptBox["t", "21"]}], "+",
+ RowBox[{"1597545531487436755016415486901158080317092790272", " ",
+ SuperscriptBox["t", "22"]}], "+",
+ RowBox[{"473847669727360332502259309106755897902390837248", " ",
+ SuperscriptBox["t", "23"]}], "+",
+ RowBox[{"118461917431840083125564827276688974475597709312", " ",
+ SuperscriptBox["t", "24"]}], "+",
+ RowBox[{"24961648929491199297131491982830595004954574848", " ",
+ SuperscriptBox["t", "25"]}], "+",
+ RowBox[{"4428417474114256088896855850854465861134057472", " ",
+ SuperscriptBox["t", "26"]}], "+",
+ RowBox[{"660003204722818810524527896478987743962071040", " ",
+ SuperscriptBox["t", "27"]}], "+",
+ RowBox[{"82356806559056963535500663266462341523308544", " ",
+ SuperscriptBox["t", "28"]}], "+",
+ RowBox[{"8564442728300175419553208881155447432675328", " ",
+ SuperscriptBox["t", "29"]}], "+",
+ RowBox[{"737802787877188143500000388498031047081984", " ",
+ SuperscriptBox["t", "30"]}], "+",
+ RowBox[{"52258107271134151249549483468531328614400", " ",
+ SuperscriptBox["t", "31"]}], "+",
+ RowBox[{"3015164473348098731309872166162541838336", " ",
+ SuperscriptBox["t", "32"]}], "+",
+ RowBox[{"140119603550075336325940095392434618368", " ",
+ SuperscriptBox["t", "33"]}], "+",
+ RowBox[{"5173067093603605990185320403162890240", " ",
+ SuperscriptBox["t", "34"]}], "+",
+ RowBox[{"149210407950779895417849194074865664", " ",
+ SuperscriptBox["t", "35"]}], "+",
+ RowBox[{"3294377479404249803797926852427776", " ",
+ SuperscriptBox["t", "36"]}], "+",
+ RowBox[{"54287508261435410485751006101504", " ",
+ SuperscriptBox["t", "37"]}], "+",
+ RowBox[{"646862538653556943473913364480", " ",
+ SuperscriptBox["t", "38"]}], "+",
+ RowBox[{"5351318977429805812080443392", " ",
+ SuperscriptBox["t", "39"]}], "+",
+ RowBox[{"29131154012314811428634624", " ",
+ SuperscriptBox["t", "40"]}], "+",
+ RowBox[{"96951533870537881493504", " ",
+ SuperscriptBox["t", "41"]}], "+",
+ RowBox[{"177353295026186905600", " ",
+ SuperscriptBox["t", "42"]}], "+",
+ RowBox[{"151062155685229568", " ",
+ SuperscriptBox["t", "43"]}], "+",
+ RowBox[{"44840441042176", " ",
+ SuperscriptBox["t", "44"]}], "+",
+ RowBox[{"2512306784", " ",
+ SuperscriptBox["t", "45"]}], "+",
+ RowBox[{"3640", " ",
+ SuperscriptBox["t", "46"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "8"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]], "Output",
+ CellChangeTimes->{3.87112521360494*^9},
+ CellLabel->
+ "Out[816]=",ExpressionUUID->"2d7ef33f-ad8f-4e6a-ad70-d7ba730d8c27"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "26"}], ",", "13"}], "}"}], ",", "8", ",", "4"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.871125216949398*^9, 3.871125217136449*^9}},
+ CellLabel->
+ "In[817]:=",ExpressionUUID->"ae596c0d-5fab-4e11-b28f-65c4c167a0ee"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.871125217673078*^9},
+ CellLabel->
+ "During evaluation of \
+In[817]:=",ExpressionUUID->"88929490-b50d-4f13-8cc0-99bc67140feb"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.8711252176763067`*^9},
+ CellLabel->
+ "During evaluation of \
+In[817]:=",ExpressionUUID->"60e9e936-a556-49c0-a8da-17fe6cc91bbd"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.87112521767946*^9},
+ CellLabel->
+ "During evaluation of \
+In[817]:=",ExpressionUUID->"bd1657c0-10a6-492e-8801-af0e740f8228"]
+}, Open ]],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "26"}], ",", "13"}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "8"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "4", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "208"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "91"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "45"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "104"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "182"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{"2475880078570760549798248448", "+",
+ RowBox[{"4837002496529746705423210630873088", " ", "t"}], "+",
+ RowBox[{"14151521068636721392979265273003507712", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"5022631958014153173266834337053603266560", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"523268251500342147210213226664118986997760", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"23228342036298750975256053301022100222377984", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"537222537470051608453824744129203891850969088", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"7330256043638514128897403609545377677574144000", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"64166040935958843322149088112947534085322964992", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"382614737045353619817684839682704129557610364928", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"1625409616060227825270879270789936744245208547328", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"5092658814673195449889352857195513589551897509888", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"12094772869356926098781748627329486972338078482432", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"22258275829677266609393136531212063338023027212288", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"32316211168055151859179823985519879926582186344448", " ",
+ SuperscriptBox["t", "14"]}], "+",
+ RowBox[{"37564640435396353391235406494876772739879662518272", " ",
+ SuperscriptBox["t", "15"]}], "+",
+ RowBox[{"35385698418772378526712791923379286729166115831808", " ",
+ SuperscriptBox["t", "16"]}], "+",
+ RowBox[{"27282372548193034851297262994959983115964703047680", " ",
+ SuperscriptBox["t", "17"]}], "+",
+ RowBox[{"17356215484724297226058613039762973035514992525312", " ",
+ SuperscriptBox["t", "18"]}], "+",
+ RowBox[{"9169802158233345933667941708296047267026646859776", " ",
+ SuperscriptBox["t", "19"]}], "+",
+ RowBox[{"4043790346907786328607577594260589128103195836416", " ",
+ SuperscriptBox["t", "20"]}], "+",
+ RowBox[{"1494059078599027610925565850838162966021842927616", " ",
+ SuperscriptBox["t", "21"]}], "+",
+ RowBox[{"463659872983589588081900781523912525538261991424", " ",
+ SuperscriptBox["t", "22"]}], "+",
+ RowBox[{"121028555858113118372680213615514189423175532544", " ",
+ SuperscriptBox["t", "23"]}], "+",
+ RowBox[{"26579872109199582805283896120285305556407681024", " ",
+ SuperscriptBox["t", "24"]}], "+",
+ RowBox[{"4907198494081595017443021143256484917687615488", " ",
+ SuperscriptBox["t", "25"]}], "+",
+ RowBox[{"760115382205035591272471882658074739995574272", " ",
+ SuperscriptBox["t", "26"]}], "+",
+ RowBox[{"98475970417549412055687368544892015651848192", " ",
+ SuperscriptBox["t", "27"]}], "+",
+ RowBox[{"10623867534580178953180719291959514467663872", " ",
+ SuperscriptBox["t", "28"]}], "+",
+ RowBox[{"948947815033308335618117913875994451640320", " ",
+ SuperscriptBox["t", "29"]}], "+",
+ RowBox[{"69671857322268172298763729760252923478016", " ",
+ SuperscriptBox["t", "30"]}], "+",
+ RowBox[{"4167047363850954648384834624125526867968", " ",
+ SuperscriptBox["t", "31"]}], "+",
+ RowBox[{"200811141551033122868387139661860962304", " ",
+ SuperscriptBox["t", "32"]}], "+",
+ RowBox[{"7693713556835103970470808551405125632", " ",
+ SuperscriptBox["t", "33"]}], "+",
+ RowBox[{"230577735813709033791034595687268352", " ",
+ SuperscriptBox["t", "34"]}], "+",
+ RowBox[{"5299144967874371507005059772710912", " ",
+ SuperscriptBox["t", "35"]}], "+",
+ RowBox[{"91128395459735631578578739003392", " ",
+ SuperscriptBox["t", "36"]}], "+",
+ RowBox[{"1137166673045638905875405078528", " ",
+ SuperscriptBox["t", "37"]}], "+",
+ RowBox[{"9900662983569675284295843840", " ",
+ SuperscriptBox["t", "38"]}], "+",
+ RowBox[{"57115687981054038251765760", " ",
+ SuperscriptBox["t", "39"]}], "+",
+ RowBox[{"203470590422053359122432", " ",
+ SuperscriptBox["t", "40"]}], "+",
+ RowBox[{"404546412134306730496", " ",
+ SuperscriptBox["t", "41"]}], "+",
+ RowBox[{"384046882954538752", " ",
+ SuperscriptBox["t", "42"]}], "+",
+ RowBox[{"133166542380352", " ",
+ SuperscriptBox["t", "43"]}], "+",
+ RowBox[{"9733676264", " ",
+ SuperscriptBox["t", "44"]}], "+",
+ RowBox[{"29094", " ",
+ SuperscriptBox["t", "45"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "2"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]], "Output",
+ CellChangeTimes->{3.871125224441516*^9},
+ CellLabel->
+ "Out[817]=",ExpressionUUID->"eae2c675-fd17-4993-9e4a-f3d33165bd2c"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "26"}], ",", "13"}], "}"}], ",", "8", ",", "5"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.871125228476192*^9, 3.871125228830208*^9}},
+ CellLabel->
+ "In[818]:=",ExpressionUUID->"0f17ed81-0616-4dcb-93d4-3b01da0e2f9f"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.871125229375608*^9},
+ CellLabel->
+ "During evaluation of \
+In[818]:=",ExpressionUUID->"26a3e8b1-0818-433e-ad7c-c06b82dab897"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.871125229378886*^9},
+ CellLabel->
+ "During evaluation of \
+In[818]:=",ExpressionUUID->"63c1dd75-94d6-4205-9b73-2538a4397f8a"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.871125229382044*^9},
+ CellLabel->
+ "During evaluation of \
+In[818]:=",ExpressionUUID->"f3409b15-01da-40c9-804e-9795703ebc8f"]
+}, Open ]],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "26"}], ",", "13"}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "8"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "5", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "205"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "94"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "46"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "98"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "188"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"244230714470534103674298419904512", " ", "t"}], "+",
+ RowBox[{"2791173683795678358438376330131144704", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"1868847850672877495409610691641868288000", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"291005794294195065354570777480938536304640", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"17302009665489088711972772379791149452230656", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"503742337791867318027366759992714351872049152", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"8322219043680035666057259407078990072751587328", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"85930810475488077808534442717158669502793121792", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"593470853770673108342575292387304110487137943552", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"2882139215222473905795092901913759425392329883648", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"10225937660754026096473753934479521947465476472832", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"27315276258611850340995266268106595970845778116608", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"56268960489445065460192415649698476841550886207488", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"91154930837262378146693676618452754743845529321472", " ",
+ SuperscriptBox["t", "14"]}], "+",
+ RowBox[{"118004615793170741007621289658819974915167598149632", " ",
+ SuperscriptBox["t", "15"]}], "+",
+ RowBox[{"123697244608760810410369986721722271761559831183360", " ",
+ SuperscriptBox["t", "16"]}], "+",
+ RowBox[{"106142807103401617794805803833655475489727357911040", " ",
+ SuperscriptBox["t", "17"]}], "+",
+ RowBox[{"75226402311135954459441285376504866082022796296192", " ",
+ SuperscriptBox["t", "18"]}], "+",
+ RowBox[{"44355769432065247057021831381974574373612516540416", " ",
+ SuperscriptBox["t", "19"]}], "+",
+ RowBox[{"21884738943003622645806097645797565502101431255040", " ",
+ SuperscriptBox["t", "20"]}], "+",
+ RowBox[{"9075747917739940858473367442612953529660043427840", " ",
+ SuperscriptBox["t", "21"]}], "+",
+ RowBox[{"3173859026168565004249791361821239284637286531072", " ",
+ SuperscriptBox["t", "22"]}], "+",
+ RowBox[{"937954402016207954871434737420378577790646091776", " ",
+ SuperscriptBox["t", "23"]}], "+",
+ RowBox[{"234488600504051988717858684355094644447661522944", " ",
+ SuperscriptBox["t", "24"]}], "+",
+ RowBox[{"49591547283883828191402990028456863822457602048", " ",
+ SuperscriptBox["t", "25"]}], "+",
+ RowBox[{"8863035075917910994602897893176712431308636160", " ",
+ SuperscriptBox["t", "26"]}], "+",
+ RowBox[{"1335738460876685952502813577014011566290370560", " ",
+ SuperscriptBox["t", "27"]}], "+",
+ RowBox[{"169203832367192257145011258628748223776292864", " ",
+ SuperscriptBox["t", "28"]}], "+",
+ RowBox[{"17935371949943531622753449768186775703912448", " ",
+ SuperscriptBox["t", "29"]}], "+",
+ RowBox[{"1581651078215265539211121258641115955855360", " ",
+ SuperscriptBox["t", "30"]}], "+",
+ RowBox[{"115202036321871737400414409788066774384640", " ",
+ SuperscriptBox["t", "31"]}], "+",
+ RowBox[{"6868772662312883243874023299362741813248", " ",
+ SuperscriptBox["t", "32"]}], "+",
+ RowBox[{"331619706547871385361554263430490226688", " ",
+ SuperscriptBox["t", "33"]}], "+",
+ RowBox[{"12794080359855130486765214220599427072", " ",
+ SuperscriptBox["t", "34"]}], "+",
+ RowBox[{"388173422416739560119868688561078272", " ",
+ SuperscriptBox["t", "35"]}], "+",
+ RowBox[{"9082457151480506226869374883463168", " ",
+ SuperscriptBox["t", "36"]}], "+",
+ RowBox[{"159990865845753499663034086326272", " ",
+ SuperscriptBox["t", "37"]}], "+",
+ RowBox[{"2059015644687970895765958033408", " ",
+ SuperscriptBox["t", "38"]}], "+",
+ RowBox[{"18633274280192863244764315648", " ",
+ SuperscriptBox["t", "39"]}], "+",
+ RowBox[{"112787099588226647358308352", " ",
+ SuperscriptBox["t", "40"]}], "+",
+ RowBox[{"426686357036616694325248", " ",
+ SuperscriptBox["t", "41"]}], "+",
+ RowBox[{"915960765023850870784", " ",
+ SuperscriptBox["t", "42"]}], "+",
+ RowBox[{"962857404723010560", " ",
+ SuperscriptBox["t", "43"]}], "+",
+ RowBox[{"386468677472000", " ",
+ SuperscriptBox["t", "44"]}], "+",
+ RowBox[{"36075074336", " ",
+ SuperscriptBox["t", "45"]}], "+",
+ RowBox[{"197288", " ",
+ SuperscriptBox["t", "46"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "8"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]], "Output",
+ CellChangeTimes->{3.871125236376876*^9},
+ CellLabel->
+ "Out[818]=",ExpressionUUID->"a68e702f-61ba-4836-b400-734fea9385cf"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "26"}], ",", "13"}], "}"}], ",", "8", ",", "6"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.871125239751399*^9, 3.871125240172594*^9}},
+ CellLabel->
+ "In[819]:=",ExpressionUUID->"52cb7b1a-c478-49dd-ba75-dad2a69e6504"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.871125240773987*^9},
+ CellLabel->
+ "During evaluation of \
+In[819]:=",ExpressionUUID->"633793da-7679-4304-89e9-e3f5e90a7e60"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.871125240777191*^9},
+ CellLabel->
+ "During evaluation of \
+In[819]:=",ExpressionUUID->"3fbc8d9f-d0dd-4989-afa2-b64149685277"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.871125240780467*^9},
+ CellLabel->
+ "During evaluation of \
+In[819]:=",ExpressionUUID->"dd1d69a0-9888-4a3b-8792-99f0de324ca4"]
+}, Open ]],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "26"}], ",", "13"}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "8"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "6", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "206"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "99"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "46"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "102"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "190"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"901220348599756840126562435072", " ", "t"}], "+",
+ RowBox[{"95494434663065984475860713823272960", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"142428765353916383936617425543389773824", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"35338763560501804598999985986356742455296", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"2902372960924659126089611307859337168289792", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"108037415027372093184765097528538350353383424", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"2174968365449312734453570914857022084641456128", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"26488064874197784819097484453676956551768702976", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"210741207836342464489293855584403890543383281664", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"1158122468371495977524575288859388326234501939200", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"4584967536820287627006524895806909775047668269056", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"13511609584342510893526304502362845881996157124608", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"30420828776076978643436863661514047712493041614848", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"53439858134320704981161708272658835043178774528000", " ",
+ SuperscriptBox["t", "14"]}], "+",
+ RowBox[{"74517272545867253162907078302839413681123500228608", " ",
+ SuperscriptBox["t", "15"]}], "+",
+ RowBox[{"83654079624932794226892395117754170855851783356416", " ",
+ SuperscriptBox["t", "16"]}], "+",
+ RowBox[{"76491974477303789753892080123621646342816750632960", " ",
+ SuperscriptBox["t", "17"]}], "+",
+ RowBox[{"57517550135478415475447083148458554704246626844672", " ",
+ SuperscriptBox["t", "18"]}], "+",
+ RowBox[{"35844853862343448381492249562559267344680476475392", " ",
+ SuperscriptBox["t", "19"]}], "+",
+ RowBox[{"18629824746472659723590176254827257639494087606272", " ",
+ SuperscriptBox["t", "20"]}], "+",
+ RowBox[{"8114482517357198475570131549299065205911598399488", " ",
+ SuperscriptBox["t", "21"]}], "+",
+ RowBox[{"2972711824992394529225500989433513246101658927104", " ",
+ SuperscriptBox["t", "22"]}], "+",
+ RowBox[{"918223486917220527737746336556365470155034066944", " ",
+ SuperscriptBox["t", "23"]}], "+",
+ RowBox[{"239458661349420220709826631184920337106755125248", " ",
+ SuperscriptBox["t", "24"]}], "+",
+ RowBox[{"52736971735416111565509142092212752783245312000", " ",
+ SuperscriptBox["t", "25"]}], "+",
+ RowBox[{"9800627517658527893116800111713224479935037440", " ",
+ SuperscriptBox["t", "26"]}], "+",
+ RowBox[{"1534001318484675810550641188644477030920880128", " ",
+ SuperscriptBox["t", "27"]}], "+",
+ RowBox[{"201612727020005639737777960076292692650229760", " ",
+ SuperscriptBox["t", "28"]}], "+",
+ RowBox[{"22156137500429184373376493788388870120800256", " ",
+ SuperscriptBox["t", "29"]}], "+",
+ RowBox[{"2024640172738493824764783349668616836481024", " ",
+ SuperscriptBox["t", "30"]}], "+",
+ RowBox[{"152770693888574642794885994462757397725184", " ",
+ SuperscriptBox["t", "31"]}], "+",
+ RowBox[{"9436547492405559009260341140724996112384", " ",
+ SuperscriptBox["t", "32"]}], "+",
+ RowBox[{"472147255947836563584053603342256963584", " ",
+ SuperscriptBox["t", "33"]}], "+",
+ RowBox[{"18891147625156843480631731631478013952", " ",
+ SuperscriptBox["t", "34"]}], "+",
+ RowBox[{"595096638401431670075217698566963200", " ",
+ SuperscriptBox["t", "35"]}], "+",
+ RowBox[{"14481507385228173057225488580214784", " ",
+ SuperscriptBox["t", "36"]}], "+",
+ RowBox[{"265944581413887258119505635704832", " ",
+ SuperscriptBox["t", "37"]}], "+",
+ RowBox[{"3579930427266485898079564726272", " ",
+ SuperscriptBox["t", "38"]}], "+",
+ RowBox[{"34040939284316349802825121792", " ",
+ SuperscriptBox["t", "39"]}], "+",
+ RowBox[{"217888042079182137805635584", " ",
+ SuperscriptBox["t", "40"]}], "+",
+ RowBox[{"879650472480562028912640", " ",
+ SuperscriptBox["t", "41"]}], "+",
+ RowBox[{"2042925196081193535488", " ",
+ SuperscriptBox["t", "42"]}], "+",
+ RowBox[{"2375041859253167104", " ",
+ SuperscriptBox["t", "43"]}], "+",
+ RowBox[{"1096829301604608", " ",
+ SuperscriptBox["t", "44"]}], "+",
+ RowBox[{"128437724896", " ",
+ SuperscriptBox["t", "45"]}], "+",
+ RowBox[{"1177176", " ",
+ SuperscriptBox["t", "46"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "8"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]], "Output",
+ CellChangeTimes->{3.871125247745797*^9},
+ CellLabel->
+ "Out[819]=",ExpressionUUID->"b0d775ed-9aa4-4b50-a9ae-a634b2eeff10"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"RK", "[",
+ RowBox[{"8", ",", "2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "26"}], ",", "13"}], "}"}], ",", "8", ",", "7"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.8711252526361437`*^9, 3.871125252873261*^9}},
+ CellLabel->
+ "In[820]:=",ExpressionUUID->"4554a030-8db1-4921-af58-fbd6c1285385"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["\<\"\\!\\(\\*UnderscriptBox[\\(\[Product]\\), \\(\[Delta] | \
+M\\)]\\)(\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\);\\!\\(\\*SuperscriptBox[\\(q\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubsuperscriptBox[\\()\\), \\(\[Infinity]\\), \
+SubscriptBox[\\(r\\), \\(\[Delta]\\)]]\\) = \\!\\(\\*UnderoverscriptBox[\\(\
+\[Sum]\\), \\(n = 0\\), \\(\[Infinity]\\)]\\)a(n)\\!\\(\\*SuperscriptBox[\\(q\
+\\), \\(n\\)]\\)\"\>"], "Print",
+ CellChangeTimes->{3.8711252534462547`*^9},
+ CellLabel->
+ "During evaluation of \
+In[820]:=",ExpressionUUID->"208da55f-bad8-4f22-9925-b5bc47f33128"],
+
+Cell[BoxData["\<\"\\!\\(\\*FrameBox[\\n RowBox[{\\n RowBox[{\\n \
+SubscriptBox[\\\"f\\\", \\\"1\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \
+\\\"q\\\", \\\")\\\"}], \\\"\[CenterDot]\\\", \\n RowBox[{\\n \
+UnderscriptBox[\\\"\[Product]\\\", \\n RowBox[{\\n RowBox[{\\\"j\\\
+\", \\\"'\\\"}], \\\"\[Element]\\\", \\n RowBox[{\\n \
+SubscriptBox[\\\"P\\\", \\n RowBox[{\\\"m\\\", \\\",\\\", \
+\\\"r\\\"}]], \\n RowBox[{\\\"(\\\", \\\"j\\\", \\\")\\\"}]}]}]], \\n \
+ RowBox[{\\n UnderoverscriptBox[\\n RowBox[{\\\" \\\", \\\"\
+\[Sum]\\\"}], \\n RowBox[{\\\" \\\", \\n RowBox[{\\\"n\\\", \\\
+\"=\\\", \\\"0\\\"}]}], \\\"\[Infinity]\\\"], \\\"a\\\", \\n \
+RowBox[{\\\"(\\\", \\n RowBox[{\\\"mn\\\", \\\"+\\\", \\n \
+RowBox[{\\\"j\\\", \\\"'\\\"}]}], \\\")\\\"}], \\n \
+SuperscriptBox[\\\"q\\\", \\\"n\\\"]}]}]}]}], \\\" \\\", \\\"=\\\", \\\" \
+\\\", \\n RowBox[{\\n UnderscriptBox[\\\"\[Sum]\\\", \\n \
+RowBox[{\\\"g\\\", \\\"\[Element]\\\", \\\"AB\\\"}]], \\n RowBox[{\\n \
+RowBox[{\\\"g\\\", \\\"\[CenterDot]\\\", \\n SubscriptBox[\\\"p\\\", \
+\\\"g\\\"]}], \\n RowBox[{\\\"(\\\", \\\"t\\\", \
+\\\")\\\"}]}]}]}]]\\)\"\>"], "Print",
+ CellChangeTimes->{3.8711252534492683`*^9},
+ CellLabel->
+ "During evaluation of \
+In[820]:=",ExpressionUUID->"66cf5dbc-9920-4bd1-aa2d-0a9a474c3cf1"],
+
+Cell[BoxData["\<\"Modular Curve: \\!\\(\\*SubscriptBox[\\(X\\), \
+\\(0\\)]\\)(N)\"\>"], "Print",
+ CellChangeTimes->{3.871125253452299*^9},
+ CellLabel->
+ "During evaluation of \
+In[820]:=",ExpressionUUID->"6016573d-d7d8-444c-ab12-75f08e606f97"]
+}, Open ]],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+ {"\<\"N:\"\>", "8"},
+ {"\<\"{M,(\\!\\(\\*SubscriptBox[\\(r\\), \
+\\(\[Delta]\\)]\\)\\!\\(\\*SubscriptBox[\\()\\), \\(\[Delta] | \
+M\\)]\\)}:\"\>",
+ RowBox[{"{",
+ RowBox[{"2", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "26"}], ",", "13"}], "}"}]}], "}"}]},
+ {"\<\"m:\"\>", "8"},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(m, r\\)]\\)(j):\"\>",
+ RowBox[{"{", "7", "}"}]},
+ {"\<\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(q):\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ RowBox[{
+ TemplateBox[{"q", "q", "207"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "92"},
+ "QPochhammerPower2"]}],
+ RowBox[{
+ SuperscriptBox["q", "45"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "102"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "184"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"t:\"\>",
+ TagBox[
+ FormBox[
+ FractionBox[
+ TemplateBox[{
+ SuperscriptBox["q", "4"],
+ SuperscriptBox["q", "4"], "12"},
+ "QPochhammerPower2"],
+ RowBox[{"q", " ",
+ TemplateBox[{
+ SuperscriptBox["q", "2"],
+ SuperscriptBox["q", "2"], "4"},
+ "QPochhammerPower2"], " ",
+ TemplateBox[{
+ SuperscriptBox["q", "8"],
+ SuperscriptBox["q", "8"], "8"},
+ "QPochhammerPower2"]}]],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"AB:\"\>",
+ TagBox[
+ FormBox[
+ RowBox[{"{", "1", "}"}],
+ TraditionalForm],
+ TraditionalForm,
+ Editable->True]},
+ {"\<\"{\\!\\(\\*SubscriptBox[\\(p\\), \\(g\\)]\\)(t): g\[Element]AB}\"\>",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"1960025512440385447726683787362304", " ", "t"}], "+",
+ RowBox[{"8527229522314053081529220128516866048", " ",
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{"3685771072962588481717463722393153306624", " ",
+ SuperscriptBox["t", "3"]}], "+",
+ RowBox[{"436359787591288778007538446342764254724096", " ",
+ SuperscriptBox["t", "4"]}], "+",
+ RowBox[{"21283326967080976377946412685956362241310720", " ",
+ SuperscriptBox["t", "5"]}], "+",
+ RowBox[{"530479997929714423107320527889134843867430912", " ",
+ SuperscriptBox["t", "6"]}], "+",
+ RowBox[{"7705371923012827488684878499575033337158303744", " ",
+ SuperscriptBox["t", "7"]}], "+",
+ RowBox[{"71209885381612845204542986514251522207496798208", " ",
+ SuperscriptBox["t", "8"]}], "+",
+ RowBox[{"445690367803519411419248436655957870792348270592", " ",
+ SuperscriptBox["t", "9"]}], "+",
+ RowBox[{"1979073445981320991135381690682140936694564651008", " ",
+ SuperscriptBox["t", "10"]}], "+",
+ RowBox[{"6461977277055286411500454261444331115849273311232", " ",
+ SuperscriptBox["t", "11"]}], "+",
+ RowBox[{"15958992906530933901316041822403724085118692753408", " ",
+ SuperscriptBox["t", "12"]}], "+",
+ RowBox[{"30495506453162103743203815475406657476734056660992", " ",
+ SuperscriptBox["t", "13"]}], "+",
+ RowBox[{"45927936312439505054916173001734964102410411180032", " ",
+ SuperscriptBox["t", "14"]}], "+",
+ RowBox[{"55348875909128540849584193946893234741963896389632", " ",
+ SuperscriptBox["t", "15"]}], "+",
+ RowBox[{"54044066396976157553380225390595083002784170115072", " ",
+ SuperscriptBox["t", "16"]}], "+",
+ RowBox[{"43196363386241438582391518610024464058882115764224", " ",
+ SuperscriptBox["t", "17"]}], "+",
+ RowBox[{"28499784493488574281439670634414162619438309834752", " ",
+ SuperscriptBox["t", "18"]}], "+",
+ RowBox[{"15626368474568679815458734017867460700156123414528", " ",
+ SuperscriptBox["t", "19"]}], "+",
+ RowBox[{"7158076927439095900473424571683113990830931574784", " ",
+ SuperscriptBox["t", "20"]}], "+",
+ RowBox[{"2750357328768328579530461597709472533123317104640", " ",
+ SuperscriptBox["t", "21"]}], "+",
+ RowBox[{"888884051439281561697613432743630512293251383296", " ",
+ SuperscriptBox["t", "22"]}], "+",
+ RowBox[{"242035121692965238526494376845193694875918270464", " ",
+ SuperscriptBox["t", "23"]}], "+",
+ RowBox[{"55555253214955097606100839546476907018328211456", " ",
+ SuperscriptBox["t", "24"]}], "+",
+ RowBox[{"10743583315501283513790865616052627082512957440", " ",
+ SuperscriptBox["t", "25"]}], "+",
+ RowBox[{"1747577374863060522576519670821072751667707904", " ",
+ SuperscriptBox["t", "26"]}], "+",
+ RowBox[{"238439460366343380973186249051932688906190848", " ",
+ SuperscriptBox["t", "27"]}], "+",
+ RowBox[{"27179512494553159982146902689375078792036352", " ",
+ SuperscriptBox["t", "28"]}], "+",
+ RowBox[{"2574703895225610648536176598669556621246464", " ",
+ SuperscriptBox["t", "29"]}], "+",
+ RowBox[{"201329836238086810534373765403759043674112", " ",
+ SuperscriptBox["t", "30"]}], "+",
+ RowBox[{"12886914403440556686740413761440020692992", " ",
+ SuperscriptBox["t", "31"]}], "+",
+ RowBox[{"668339435832451345848911631062728179712", " ",
+ SuperscriptBox["t", "32"]}], "+",
+ RowBox[{"27735501547033076115625422494673928192", " ",
+ SuperscriptBox["t", "33"]}], "+",
+ RowBox[{"907163718382601808873234962357157888", " ",
+ SuperscriptBox["t", "34"]}], "+",
+ RowBox[{"22957555064292330412102864519299072", " ",
+ SuperscriptBox["t", "35"]}], "+",
+ RowBox[{"439442581430542709405391674933248", " ",
+ SuperscriptBox["t", "36"]}], "+",
+ RowBox[{"6185196352364022590309528502272", " ",
+ SuperscriptBox["t", "37"]}], "+",
+ RowBox[{"61764729946550728585440657408", " ",
+ SuperscriptBox["t", "38"]}], "+",
+ RowBox[{"417709048936965829069635584", " ",
+ SuperscriptBox["t", "39"]}], "+",
+ RowBox[{"1797336144423444600061952", " ",
+ SuperscriptBox["t", "40"]}], "+",
+ RowBox[{"4506919792075882168320", " ",
+ SuperscriptBox["t", "41"]}], "+",
+ RowBox[{"5775173702292340736", " ",
+ SuperscriptBox["t", "42"]}], "+",
+ RowBox[{"3048798373863424", " ",
+ SuperscriptBox["t", "43"]}], "+",
+ RowBox[{"440847433728", " ",
+ SuperscriptBox["t", "44"]}], "+",
+ RowBox[{"6333184", " ",
+ SuperscriptBox["t", "45"]}]}], "}"}]},
+ {"\<\"Common Factor:\"\>", "256"}
+ },
+ AutoDelete->False,
+ GridBoxDividers->{
+ "Columns" -> {False, True},
+ "Rows" -> {False, True, True, True, True, True, True, True, True}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}],
+ "Grid"]], "Output",
+ CellChangeTimes->{3.871125260236768*^9},
+ CellLabel->
+ "Out[820]=",ExpressionUUID->"8ea4a5c0-afa1-44cf-80b8-a75415507ca1"]
+}, Open ]]
+},
+WindowSize->{808, 676},
+WindowMargins->{{11, Automatic}, {23, Automatic}},
+FrontEndVersion->"12.3 for Mac OS X ARM (64-bit) (July 9, 2021)",
+StyleDefinitions->"Default.nb",
+ExpressionUUID->"01f75a0d-0380-4487-b148-55be9fc4db1b"
+]
+(* End of Notebook Content *)
+
+(* Internal cache information *)
+(*CellTagsOutline
+CellTagsIndex->{}
+*)
+(*CellTagsIndex
+CellTagsIndex->{}
+*)
+(*NotebookFileOutline
+Notebook[{
+Cell[558, 20, 205, 4, 30, "Input",ExpressionUUID->"06b5fa42-fc29-44e1-bc44-7744fc838c01"],
+Cell[766, 26, 509, 14, 122, "Text",ExpressionUUID->"700e4717-646f-4397-a967-fc351dc7897a"],
+Cell[CellGroupData[{
+Cell[1300, 44, 225, 6, 30, "Input",ExpressionUUID->"89851553-37b9-4ff8-adf7-be3ba6489383"],
+Cell[1528, 52, 200, 5, 34, "Output",ExpressionUUID->"0427629f-1e88-448d-9f73-997d30e6bbc6"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1765, 62, 447, 13, 30, "Input",ExpressionUUID->"ea7cae3d-2e22-4290-a8c4-48e7415cfd61"],
+Cell[2215, 77, 253, 6, 34, "Output",ExpressionUUID->"4964c775-5e8d-4494-892d-5aafc9ead759"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2505, 88, 447, 13, 30, "Input",ExpressionUUID->"91b3f215-243e-4097-94e9-03f6881c06cf"],
+Cell[2955, 103, 251, 6, 34, "Output",ExpressionUUID->"57bf7bf1-0907-496f-80a1-089eece07cb0"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[3243, 114, 448, 13, 30, "Input",ExpressionUUID->"4c690501-eb03-4e62-8082-6b0de9ccb3fe"],
+Cell[3694, 129, 251, 6, 34, "Output",ExpressionUUID->"a6650ac1-e564-407d-b4c0-cf39c786f6c1"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[3982, 140, 447, 13, 30, "Input",ExpressionUUID->"01803c06-9d43-4c80-a679-b9893190df6f"],
+Cell[4432, 155, 251, 6, 34, "Output",ExpressionUUID->"80c38da7-1262-4abd-bd06-da7f19b9d898"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[4720, 166, 333, 9, 30, "Input",ExpressionUUID->"c2968f17-22f9-42ee-89f5-298fa3698fc8"],
+Cell[CellGroupData[{
+Cell[5078, 179, 585, 10, 50, "Print",ExpressionUUID->"9650876e-c3ba-4488-9ede-c98cdc141e06"],
+Cell[5666, 191, 1398, 21, 63, "Print",ExpressionUUID->"2a15cd8a-e266-4bb8-b2c0-c38b9f68c13e"],
+Cell[7067, 214, 244, 5, 24, "Print",ExpressionUUID->"81fc6fe4-9123-4358-995c-16ec2014e752"]
+}, Open ]],
+Cell[7326, 222, 4072, 116, 535, "Output",ExpressionUUID->"969ab428-2d24-4e50-be9a-79d9118f8ee6"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[11435, 343, 335, 9, 30, "Input",ExpressionUUID->"f70ace94-41ca-4205-9adc-45317a66e387"],
+Cell[CellGroupData[{
+Cell[11795, 356, 585, 10, 50, "Print",ExpressionUUID->"9160e3dd-f184-4a17-963f-f5afc79c82f6"],
+Cell[12383, 368, 1396, 21, 63, "Print",ExpressionUUID->"8acdd587-f75f-43c5-8783-3e83e6e41d60"],
+Cell[13782, 391, 246, 5, 24, "Print",ExpressionUUID->"53ee491c-b625-46f9-9dac-4e1b92f43c2a"]
+}, Open ]],
+Cell[14043, 399, 3992, 114, 535, "Output",ExpressionUUID->"b5013aa6-c881-4e5a-a764-2d72d9afa800"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[18072, 518, 330, 9, 30, "Input",ExpressionUUID->"a9fdada1-e44f-4dcf-acc6-75ccbe115c2d"],
+Cell[CellGroupData[{
+Cell[18427, 531, 587, 10, 50, "Print",ExpressionUUID->"281b650e-3643-4841-83f0-cd3518e65bba"],
+Cell[19017, 543, 1398, 21, 63, "Print",ExpressionUUID->"53be3910-7997-4cb8-b8c4-abbd43e365a1"],
+Cell[20418, 566, 246, 5, 24, "Print",ExpressionUUID->"d9a68989-fe30-4ce8-892b-c0a3c2e88330"]
+}, Open ]],
+Cell[20679, 574, 3992, 114, 535, "Output",ExpressionUUID->"bd996928-9583-4260-97b3-ff1f33ab1d1c"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[24708, 693, 331, 9, 30, "Input",ExpressionUUID->"569322c2-a633-497e-af38-cef39c0c0e52"],
+Cell[CellGroupData[{
+Cell[25064, 706, 585, 10, 50, "Print",ExpressionUUID->"362138dc-f773-48e6-bf29-1e7a4c5e1b69"],
+Cell[25652, 718, 1396, 21, 63, "Print",ExpressionUUID->"f570c36e-7028-4b9e-8b1b-7f72121bdf2e"],
+Cell[27051, 741, 244, 5, 24, "Print",ExpressionUUID->"123fc60b-04d0-40ad-8a80-50644f423df6"]
+}, Open ]],
+Cell[27310, 749, 3929, 112, 535, "Output",ExpressionUUID->"cd7363cc-5d7d-45c9-99ae-6c8236413c2f"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[31276, 866, 333, 9, 30, "Input",ExpressionUUID->"e3b33822-a4e2-4720-95c3-4d33d3b4b715"],
+Cell[CellGroupData[{
+Cell[31634, 879, 585, 10, 50, "Print",ExpressionUUID->"9ca7a36a-df72-4b1e-a0ee-feb01cf9852d"],
+Cell[32222, 891, 1396, 21, 63, "Print",ExpressionUUID->"e7c1ad5a-a8c9-4fa1-81b3-c4a8d4f7dddb"],
+Cell[33621, 914, 246, 5, 24, "Print",ExpressionUUID->"ec957984-0922-4559-9ddd-ead5dee17982"]
+}, Open ]],
+Cell[33882, 922, 3998, 114, 535, "Output",ExpressionUUID->"390828bf-5120-49ff-bab1-49cd78f54c8a"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[37917, 1041, 333, 9, 30, "Input",ExpressionUUID->"fd6c0d64-a21f-4681-a283-0b87168afd87"],
+Cell[CellGroupData[{
+Cell[38275, 1054, 585, 10, 50, "Print",ExpressionUUID->"82f607ad-103d-4ee7-bbab-e481a81638d3"],
+Cell[38863, 1066, 1398, 21, 63, "Print",ExpressionUUID->"680706aa-a46b-4cbc-aa94-7678874cd16a"],
+Cell[40264, 1089, 244, 5, 24, "Print",ExpressionUUID->"f9b41551-0557-4329-8b04-0ef8b0a4eb86"]
+}, Open ]],
+Cell[40523, 1097, 3996, 114, 535, "Output",ExpressionUUID->"26402225-4b38-41ba-a237-fc6a36fe6204"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[44556, 1216, 331, 9, 30, "Input",ExpressionUUID->"07652d7a-1ee4-46d0-bf7c-164956aa0ddf"],
+Cell[CellGroupData[{
+Cell[44912, 1229, 587, 10, 50, "Print",ExpressionUUID->"4972781a-ce96-4ac9-b67c-3c625ceeef53"],
+Cell[45502, 1241, 1396, 21, 63, "Print",ExpressionUUID->"f62338f5-1ba1-472d-a7ee-5502c69769cf"],
+Cell[46901, 1264, 244, 5, 24, "Print",ExpressionUUID->"5ce5fd23-d9d0-445a-8f31-606644cf93f8"]
+}, Open ]],
+Cell[47160, 1272, 3917, 112, 513, "Output",ExpressionUUID->"209932bc-1b2f-47de-abb0-4ce92c046f2d"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[51114, 1389, 333, 9, 30, "Input",ExpressionUUID->"fd5aeac3-0f78-4f05-92e7-f868de758ebd"],
+Cell[CellGroupData[{
+Cell[51472, 1402, 585, 10, 50, "Print",ExpressionUUID->"b9e7e103-0f2c-4470-a67f-a25980483727"],
+Cell[52060, 1414, 1396, 21, 63, "Print",ExpressionUUID->"fd4f7f09-b7fa-42d8-a3dc-7a729120b21f"],
+Cell[53459, 1437, 244, 5, 24, "Print",ExpressionUUID->"1d79d2e8-406f-47d7-9cec-b2ce5ae0d5c3"]
+}, Open ]],
+Cell[53718, 1445, 4813, 130, 639, "Output",ExpressionUUID->"7197aafe-2e47-49d6-ada0-944e19326c24"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[58568, 1580, 333, 9, 30, "Input",ExpressionUUID->"964fa990-1180-47c6-87ce-c8b0271cf923"],
+Cell[CellGroupData[{
+Cell[58926, 1593, 587, 10, 50, "Print",ExpressionUUID->"6eda7023-1dff-47d5-856b-0f8ab15d2341"],
+Cell[59516, 1605, 1396, 21, 63, "Print",ExpressionUUID->"a45b92a9-4f8c-4c9b-9b9e-14f39896c2bd"],
+Cell[60915, 1628, 243, 5, 24, "Print",ExpressionUUID->"438521a3-a3b5-4af5-ad54-c7aea29d2392"]
+}, Open ]],
+Cell[61173, 1636, 4728, 128, 619, "Output",ExpressionUUID->"a9d00af6-76be-4e2f-a234-64a17c0c80ba"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[65938, 1769, 331, 9, 30, "Input",ExpressionUUID->"a77554f3-ab06-43d7-a958-d9573bc6c07c"],
+Cell[CellGroupData[{
+Cell[66294, 1782, 587, 10, 50, "Print",ExpressionUUID->"9c21a561-3b4a-4abc-85f5-5c3ba98aa59f"],
+Cell[66884, 1794, 1395, 21, 63, "Print",ExpressionUUID->"450ae754-579d-43fe-b3d4-fa2a24da3e72"],
+Cell[68282, 1817, 244, 5, 24, "Print",ExpressionUUID->"774acf10-a955-42d3-be2a-d7323d6bac48"]
+}, Open ]],
+Cell[68541, 1825, 4728, 128, 639, "Output",ExpressionUUID->"8568d28c-dfa2-454c-9e32-b602e03c1ad9"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[73306, 1958, 335, 9, 30, "Input",ExpressionUUID->"d773b94b-95ee-48d1-8390-a9a3e8d68213"],
+Cell[CellGroupData[{
+Cell[73666, 1971, 587, 10, 50, "Print",ExpressionUUID->"2ee17ca4-0a9e-486b-bfc5-e1f09ffe6e79"],
+Cell[74256, 1983, 1396, 21, 63, "Print",ExpressionUUID->"ee4e30f5-15c5-4b32-8dc0-b57a757cc676"],
+Cell[75655, 2006, 244, 5, 24, "Print",ExpressionUUID->"aca97a07-b8da-4d1c-94f9-f92fa4ace052"]
+}, Open ]],
+Cell[75914, 2014, 4660, 126, 619, "Output",ExpressionUUID->"356af1a9-5a05-48eb-9527-0eb380b5fcb7"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[80611, 2145, 333, 9, 30, "Input",ExpressionUUID->"1fad8fc6-1219-474d-9e8e-25bd5fc55434"],
+Cell[CellGroupData[{
+Cell[80969, 2158, 585, 10, 50, "Print",ExpressionUUID->"8c99829d-ed8b-4d48-80c1-9a4a7fed7c7b"],
+Cell[81557, 2170, 1398, 21, 63, "Print",ExpressionUUID->"a17e7ba0-37f2-4055-be4f-2762b751e092"],
+Cell[82958, 2193, 244, 5, 24, "Print",ExpressionUUID->"7d698d13-d1ea-4c36-908f-acf74adf4605"]
+}, Open ]],
+Cell[83217, 2201, 4649, 126, 619, "Output",ExpressionUUID->"dded9fe1-a047-4619-b4e2-cf780595ebc9"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[87903, 2332, 332, 9, 30, "Input",ExpressionUUID->"4c671ae7-9c29-4ff6-8354-4d5a179bb809"],
+Cell[CellGroupData[{
+Cell[88260, 2345, 585, 10, 50, "Print",ExpressionUUID->"6d711d44-cc48-46a7-a477-8d3bfc6c8580"],
+Cell[88848, 2357, 1398, 21, 63, "Print",ExpressionUUID->"9ea63665-5b61-499f-b1ad-a81423720f52"],
+Cell[90249, 2380, 246, 5, 24, "Print",ExpressionUUID->"254747cc-5a9d-4eb2-ba52-9ad9d9296401"]
+}, Open ]],
+Cell[90510, 2388, 6555, 158, 1101, "Output",ExpressionUUID->"299678f1-a181-4b53-a021-f409b2bcbb3e"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[97102, 2551, 334, 9, 30, "Input",ExpressionUUID->"279b0ec8-e17e-4fa4-b24a-258a93a1c65c"],
+Cell[CellGroupData[{
+Cell[97461, 2564, 585, 10, 50, "Print",ExpressionUUID->"bc592111-65b9-4a3e-8ced-ba8c513bff18"],
+Cell[98049, 2576, 1398, 21, 63, "Print",ExpressionUUID->"28777864-380e-451a-a0d2-c56c2bf15c51"],
+Cell[99450, 2599, 243, 5, 24, "Print",ExpressionUUID->"2e190fb5-977e-4ed7-b862-f6b263d9a5fa"]
+}, Open ]],
+Cell[99708, 2607, 6456, 156, 1101, "Output",ExpressionUUID->"671925ed-c843-4f0f-9930-9c6b63fc6dba"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[106201, 2768, 334, 9, 30, "Input",ExpressionUUID->"c18d8980-a9d5-4cba-8e3c-ad032ec70b9a"],
+Cell[CellGroupData[{
+Cell[106560, 2781, 585, 10, 50, "Print",ExpressionUUID->"6b8d374e-c267-446b-acca-005df37ac242"],
+Cell[107148, 2793, 1396, 21, 63, "Print",ExpressionUUID->"b2b7977c-ce73-45ec-8b2b-d8b12e330bfe"],
+Cell[108547, 2816, 244, 5, 24, "Print",ExpressionUUID->"eca4db47-8681-42f6-b851-02e1bc01d510"]
+}, Open ]],
+Cell[108806, 2824, 6452, 156, 1081, "Output",ExpressionUUID->"29a2da31-abf5-41f8-910f-9acf6fcd5f01"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[115295, 2985, 334, 9, 30, "Input",ExpressionUUID->"3c640233-1f97-4e77-846d-ac91e71f4216"],
+Cell[CellGroupData[{
+Cell[115654, 2998, 585, 10, 50, "Print",ExpressionUUID->"0701f199-4d20-465e-b316-d92cd567fe34"],
+Cell[116242, 3010, 1396, 21, 63, "Print",ExpressionUUID->"e0e54785-5c6f-47fa-b163-283ea9f03e4f"],
+Cell[117641, 3033, 244, 5, 24, "Print",ExpressionUUID->"18b232ac-61f3-412b-bc4e-1788624e061c"]
+}, Open ]],
+Cell[117900, 3041, 6387, 154, 1081, "Output",ExpressionUUID->"45b928e9-a3ee-4e3a-be2b-e78184b56dab"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[124324, 3200, 334, 9, 30, "Input",ExpressionUUID->"662b61b7-4101-4e9a-a569-4b1508cf29c4"],
+Cell[CellGroupData[{
+Cell[124683, 3213, 585, 10, 50, "Print",ExpressionUUID->"0f0c8c9f-4e90-47a5-9cb7-bb47bd30bd3b"],
+Cell[125271, 3225, 1398, 21, 63, "Print",ExpressionUUID->"25cd885d-dd92-4ea4-9cca-bb3bbc13714d"],
+Cell[126672, 3248, 244, 5, 24, "Print",ExpressionUUID->"391f7560-6f7b-41c5-9e9b-59f33905eccc"]
+}, Open ]],
+Cell[126931, 3256, 6371, 154, 1081, "Output",ExpressionUUID->"680f4199-cfca-443b-851f-568ca753a1d5"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[133339, 3415, 332, 9, 30, "Input",ExpressionUUID->"f38d4490-65ed-4cd4-b7e3-3901cc8b3bf3"],
+Cell[CellGroupData[{
+Cell[133696, 3428, 585, 10, 50, "Print",ExpressionUUID->"6ad4bc8d-2490-4787-acb2-54c1af8222c5"],
+Cell[134284, 3440, 1396, 21, 63, "Print",ExpressionUUID->"178f7951-d10e-4a1d-bb7f-c35eb8273b33"],
+Cell[135683, 3463, 246, 5, 24, "Print",ExpressionUUID->"8b57d8c8-a8ee-4d55-b342-cd114bcf6dac"]
+}, Open ]],
+Cell[135944, 3471, 7560, 172, 1269, "Output",ExpressionUUID->"70384869-9f3d-4a64-ad02-525000db9373"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[143541, 3648, 334, 9, 30, "Input",ExpressionUUID->"8777fb7d-3927-4651-a30b-631e2b650b30"],
+Cell[CellGroupData[{
+Cell[143900, 3661, 585, 10, 50, "Print",ExpressionUUID->"8a01a45b-04ef-4862-a955-70329784371f"],
+Cell[144488, 3673, 1398, 21, 63, "Print",ExpressionUUID->"5c00ccff-c387-4af4-988f-757b2ca67d1a"],
+Cell[145889, 3696, 244, 5, 24, "Print",ExpressionUUID->"e1554dbb-e7ab-417f-8c7c-121d63b7f4e0"]
+}, Open ]],
+Cell[146148, 3704, 7448, 170, 1249, "Output",ExpressionUUID->"5e4a24ed-12d8-49bd-ad44-1bda70867d25"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[153633, 3879, 334, 9, 30, "Input",ExpressionUUID->"5d465532-76fb-4474-bc27-c73218926da7"],
+Cell[CellGroupData[{
+Cell[153992, 3892, 585, 10, 50, "Print",ExpressionUUID->"5b412195-b679-4980-8e32-69ff009afb5e"],
+Cell[154580, 3904, 1398, 21, 63, "Print",ExpressionUUID->"1d57f541-ce34-4c58-9ba1-d001ac586643"],
+Cell[155981, 3927, 244, 5, 24, "Print",ExpressionUUID->"cc4a32e6-67ea-4263-b03c-942f51c035d5"]
+}, Open ]],
+Cell[156240, 3935, 7446, 170, 1249, "Output",ExpressionUUID->"2d7ef33f-ad8f-4e6a-ad70-d7ba730d8c27"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[163723, 4110, 332, 9, 30, "Input",ExpressionUUID->"ae596c0d-5fab-4e11-b28f-65c4c167a0ee"],
+Cell[CellGroupData[{
+Cell[164080, 4123, 585, 10, 50, "Print",ExpressionUUID->"88929490-b50d-4f13-8cc0-99bc67140feb"],
+Cell[164668, 4135, 1398, 21, 63, "Print",ExpressionUUID->"60e9e936-a556-49c0-a8da-17fe6cc91bbd"],
+Cell[166069, 4158, 243, 5, 24, "Print",ExpressionUUID->"bd1657c0-10a6-492e-8801-af0e740f8228"]
+}, Open ]],
+Cell[166327, 4166, 7379, 168, 1249, "Output",ExpressionUUID->"eae2c675-fd17-4993-9e4a-f3d33165bd2c"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[173743, 4339, 332, 9, 30, "Input",ExpressionUUID->"0f17ed81-0616-4dcb-93d4-3b01da0e2f9f"],
+Cell[CellGroupData[{
+Cell[174100, 4352, 585, 10, 50, "Print",ExpressionUUID->"26a3e8b1-0818-433e-ad7c-c06b82dab897"],
+Cell[174688, 4364, 1396, 21, 63, "Print",ExpressionUUID->"63c1dd75-94d6-4205-9b73-2538a4397f8a"],
+Cell[176087, 4387, 244, 5, 24, "Print",ExpressionUUID->"f3409b15-01da-40c9-804e-9795703ebc8f"]
+}, Open ]],
+Cell[176346, 4395, 7472, 170, 1269, "Output",ExpressionUUID->"a68e702f-61ba-4836-b400-734fea9385cf"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[183855, 4570, 332, 9, 30, "Input",ExpressionUUID->"52cb7b1a-c478-49dd-ba75-dad2a69e6504"],
+Cell[CellGroupData[{
+Cell[184212, 4583, 585, 10, 50, "Print",ExpressionUUID->"633793da-7679-4304-89e9-e3f5e90a7e60"],
+Cell[184800, 4595, 1396, 21, 63, "Print",ExpressionUUID->"3fbc8d9f-d0dd-4989-afa2-b64149685277"],
+Cell[186199, 4618, 244, 5, 24, "Print",ExpressionUUID->"dd1d69a0-9888-4a3b-8792-99f0de324ca4"]
+}, Open ]],
+Cell[186458, 4626, 7467, 170, 1269, "Output",ExpressionUUID->"b0d775ed-9aa4-4b50-a9ae-a634b2eeff10"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[193962, 4801, 334, 9, 30, "Input",ExpressionUUID->"4554a030-8db1-4921-af58-fbd6c1285385"],
+Cell[CellGroupData[{
+Cell[194321, 4814, 587, 10, 50, "Print",ExpressionUUID->"208da55f-bad8-4f22-9925-b5bc47f33128"],
+Cell[194911, 4826, 1398, 21, 63, "Print",ExpressionUUID->"66cf5dbc-9920-4bd1-aa2d-0a9a474c3cf1"],
+Cell[196312, 4849, 244, 5, 24, "Print",ExpressionUUID->"6016573d-d7d8-444c-ab12-75f08e606f97"]
+}, Open ]],
+Cell[196571, 4857, 7363, 168, 1272, "Output",ExpressionUUID->"8ea4a5c0-afa1-44cf-80b8-a75415507ca1"]
+}, Open ]]
+}
+]
+*)
+
+(* End of internal cache information *)
+
diff --git a/publ/papers/Conjecture.pdf b/publ/papers/Conjecture.pdf
new file mode 100644
index 0000000000..ff6e9a9203
Binary files /dev/null and b/publ/papers/Conjecture.pdf differ
diff --git a/publ/papers/FPSAC2022.pdf b/publ/papers/FPSAC2022.pdf
new file mode 100644
index 0000000000..89bb40ef23
Binary files /dev/null and b/publ/papers/FPSAC2022.pdf differ
diff --git a/publ/papers/Gibonacci_Pankaj.pdf b/publ/papers/Gibonacci_Pankaj.pdf
new file mode 100644
index 0000000000..d59df3cd2f
Binary files /dev/null and b/publ/papers/Gibonacci_Pankaj.pdf differ
diff --git a/publ/papers/Lucas_Pankaj.pdf b/publ/papers/Lucas_Pankaj.pdf
new file mode 100644
index 0000000000..4e31ab7564
Binary files /dev/null and b/publ/papers/Lucas_Pankaj.pdf differ
diff --git a/publ/papers/NNcong.pdf b/publ/papers/NNcong.pdf
new file mode 100644
index 0000000000..0f9d789e6d
Binary files /dev/null and b/publ/papers/NNcong.pdf differ
diff --git a/publ/papers/PJM_MY.pdf b/publ/papers/PJM_MY.pdf
new file mode 100644
index 0000000000..e64d05035f
Binary files /dev/null and b/publ/papers/PJM_MY.pdf differ
diff --git a/publ/papers/Partition_Vladeta.pdf b/publ/papers/Partition_Vladeta.pdf
new file mode 100644
index 0000000000..aa8cc7788b
Binary files /dev/null and b/publ/papers/Partition_Vladeta.pdf differ
diff --git a/publ/papers/Tinisukia_Education.pdf b/publ/papers/Tinisukia_Education.pdf
new file mode 100644
index 0000000000..5a5d58b4b1
Binary files /dev/null and b/publ/papers/Tinisukia_Education.pdf differ
diff --git a/publ/papers/Zumkeller_Numbers.pdf b/publ/papers/Zumkeller_Numbers.pdf
new file mode 100644
index 0000000000..577477ffe3
Binary files /dev/null and b/publ/papers/Zumkeller_Numbers.pdf differ
diff --git a/publ/papers/bias-new.pdf b/publ/papers/bias-new.pdf
new file mode 100644
index 0000000000..1fde1e8a47
Binary files /dev/null and b/publ/papers/bias-new.pdf differ
diff --git a/publ/papers/borah_mahanta_saikia.pdf b/publ/papers/borah_mahanta_saikia.pdf
new file mode 100644
index 0000000000..961f6751fd
Binary files /dev/null and b/publ/papers/borah_mahanta_saikia.pdf differ
diff --git a/publ/papers/gonit-sora-apmn.pdf b/publ/papers/gonit-sora-apmn.pdf
new file mode 100644
index 0000000000..e1fb9b93ea
Binary files /dev/null and b/publ/papers/gonit-sora-apmn.pdf differ
diff --git a/publ/papers/index.md b/publ/papers/index.md
new file mode 100644
index 0000000000..1419a519e2
--- /dev/null
+++ b/publ/papers/index.md
@@ -0,0 +1,2 @@
+
+Nothing here! Click on the menu items.
diff --git a/publ/papers/k_perfect_Numbers.pdf b/publ/papers/k_perfect_Numbers.pdf
new file mode 100644
index 0000000000..779fa68857
Binary files /dev/null and b/publ/papers/k_perfect_Numbers.pdf differ
diff --git a/publ/papers/paper_22.pdf b/publ/papers/paper_22.pdf
new file mode 100644
index 0000000000..e8c17a71df
Binary files /dev/null and b/publ/papers/paper_22.pdf differ
diff --git a/publ/papers/parity_Final.pdf b/publ/papers/parity_Final.pdf
new file mode 100644
index 0000000000..b6ebd00744
Binary files /dev/null and b/publ/papers/parity_Final.pdf differ
diff --git a/publ/papers/saikia_deficient_7.pdf b/publ/papers/saikia_deficient_7.pdf
new file mode 100644
index 0000000000..60b84f73af
Binary files /dev/null and b/publ/papers/saikia_deficient_7.pdf differ
diff --git a/publ/papers/tcs.pdf b/publ/papers/tcs.pdf
new file mode 100644
index 0000000000..32ee77c18e
Binary files /dev/null and b/publ/papers/tcs.pdf differ
diff --git a/publ/pg-1.txt b/publ/pg-1.txt
new file mode 100644
index 0000000000..7185a99a7b
--- /dev/null
+++ b/publ/pg-1.txt
@@ -0,0 +1,40 @@
+\left\{524124899584
+ t^{21}+12524446254505472 t^{20}+5190555645362438144 t^{19}+601286896038878720000
+ t^{18}+34664948734079978086400 t^{17}+1232013761958313066496000
+ t^{16}+30074529650250940145664000 t^{15}+537138581790977735311360000
+ t^{14}+7305643245602579298713600000 t^{13}+77689573839960754520064000000
+ t^{12}+657304764186021263048704000000 t^{11}+4473528751687849200844800000000
+ t^{10}+24636983799844182091366400000000 t^9+109955394905459366756352000000000
+ t^8+396523420246789492572160000000000 t^7+1146468753553168990208000000000000
+ t^6+2621056715058187730944000000000000 t^5+4633359602100831518720000000000000
+ t^4+6110483977735766016000000000000000 t^3+5661024731445329920000000000000000
+ t^2+3287627727959490560000000000000000 t+900719925474099200000000000000000,9710687744
+ t^{20}+1514874659755520 t^{19}+383688927162597376 t^{18}-13515595172768870400
+ t^{17}-3161614790891508940800 t^{16}-169314162332929517568000
+ t^{15}-5043204005309673594880000 t^{14}-100160756042279430635520000
+ t^{13}-1437212192061894644531200000 t^{12}-15572222760119982489600000000
+ t^{11}-130795410480182252535808000000 t^{10}-864889177687628608962560000000
+ t^9-4537822608375642049740800000000 t^8-18919428685821155278848000000000
+ t^7-62395308974935006248960000000000 t^6-160915246614508037734400000000000
+ t^5-317922611902510006272000000000000 t^4-464940370486827417600000000000000
+ t^3-474454222090665984000000000000000 t^2-301741174934732800000000000000000
+ t-90071992536924160000000000000000,68089344 t^{20}+233566450479360
+ t^{19}+498339036504175616 t^{18}+89473761052395960320 t^{17}+6155995846109582438400
+ t^{16}+236963159924113397760000 t^{15}+5967210045339104010240000
+ t^{14}+106750347229678756454400000 t^{13}+1424751426518618107084800000
+ t^{12}+14630273520947692593152000000 t^{11}+117864664038704476815360000000
+ t^{10}+753690330501233918607360000000 t^9+3846490111385406092083200000000
+ t^8+15667518892488249475072000000000 t^7+50648607194113802895360000000000
+ t^6+128372966433789188505600000000000 t^5+249787648459218157568000000000000
+ t^4+360383671092747960320000000000000 t^3+363327899780382720000000000000000
+ t^2+228557681079091200000000000000000 t+67553994410557440000000000000000,83456
+ t^{20}+13893081929472 t^{19}+77345512813248512 t^{18}+18050211213328148480
+ t^{17}+1396677526581240115200 t^{16}+57818123397827508224000
+ t^{15}+1533254765180626821120000 t^{14}+28540921546271579381760000
+ t^{13}+393344628808881521459200000 t^{12}+4148986740268464185344000000
+ t^{11}+34204195111691731042304000000 t^{10}+223179495565037843251200000000
+ t^9+1159657428935838977228800000000 t^8+4800703520491807277056000000000
+ t^7+15750422979826649661440000000000 t^6+40467600423450096435200000000000
+ t^5+79741860138142466048000000000000 t^4+116412420275444121600000000000000
+ t^3+118669849962610688000000000000000 t^2+75435293757931520000000000000000
+ t+22517998136852480000000000000000\right\}
\ No newline at end of file
diff --git a/publ/pg-2.txt b/publ/pg-2.txt
new file mode 100644
index 0000000000..67d31edc1a
--- /dev/null
+++ b/publ/pg-2.txt
@@ -0,0 +1,40 @@
+\left\{523569447424
+ t^{21}+12524102354563072 t^{20}+5190490424877850624 t^{19}+601283434710662062080
+ t^{18}+34664852606379525734400 t^{17}+1232012062106099757056000
+ t^{16}+30074508697495086628864000 t^{15}+537138393006412767887360000
+ t^{14}+7305641971662497307033600000 t^{13}+77689567347079618166784000000
+ t^{12}+657304739339785035055104000000 t^{11}+4473528681941890944204800000000
+ t^{10}+24636983663346595096166400000000 t^9+109955394737639078756352000000000
+ t^8+396523420136698318684160000000000 t^7+1146468753441580515328000000000000
+ t^6+2621056714606084358144000000000000 t^5+4633359601216816414720000000000000
+ t^4+6110483977042395136000000000000000 t^3+5661024731314257920000000000000000
+ t^2+3287627727959490560000000000000000 t+900719925474099200000000000000000,9762767104
+ t^{20}+1514954783319040 t^{19}+383708866120196096 t^{18}-13514553438481305600
+ t^{17}-3161587653169078272000 t^{16}-169313726461840887808000
+ t^{15}-5043199316031713607680000 t^{14}-100160721574749893099520000
+ t^{13}-1437212028565638394675200000 t^{12}-15572222420351852216320000000
+ t^{11}-130795412062262226321408000000 t^{10}-864889195967996360130560000000
+ t^9-4537822698605898648780800000000 t^8-18919428969567028379648000000000
+ t^7-62395309571542768680960000000000 t^6-160915247415717095014400000000000
+ t^5-317922612478197891072000000000000 t^4-464940370551937433600000000000000
+ t^3-474454221953040384000000000000000 t^2-301741174921625600000000000000000
+ t-90071992536924160000000000000000,65740544 t^{20}+233557382899200
+ t^{19}+498336780572286976 t^{18}+89473695719449067520 t^{17}+6155995938360844288000
+ t^{16}+236963199093947115520000 t^{15}+5967211041391556976640000
+ t^{14}+106750361487952739942400000 t^{13}+1424751565620948364492800000
+ t^{12}+14630274512603144978432000000 t^{11}+117864669375562000629760000000
+ t^{10}+753690352505713312399360000000 t^9+3846490181111423218483200000000
+ t^8+15667519061159544553472000000000 t^7+50648607500476072591360000000000
+ t^6+128372966840295725465600000000000 t^5+249787648838787923968000000000000
+ t^4+360383671332937400320000000000000 t^3+363327899881963520000000000000000
+ t^2+228557681105305600000000000000000 t+67553994410557440000000000000000,129536
+ t^{20}+13896491602432 t^{19}+77346699862044672 t^{18}+18050332527403642880
+ t^{17}+1396682591253988147200 t^{16}+57818243406002018304000
+ t^{15}+1533256631261942661120000 t^{14}+28540942065669923061760000
+ t^{13}+393344795084404953907200000 t^{12}+4148987755236015079424000000
+ t^{11}+34204199818348892258304000000 t^{10}+223179512091450290995200000000
+ t^9+1159657472153464065228800000000 t^8+4800703601683078905856000000000
+ t^7+15750423081606384189440000000000 t^6+40467600494434595635200000000000
+ t^5+79741860147532136448000000000000 t^4+116412420259060121600000000000000
+ t^3+118669849959333888000000000000000 t^2+75435293757931520000000000000000
+ t+22517998136852480000000000000000\right\
\ No newline at end of file
diff --git a/publ/pg-3.txt b/publ/pg-3.txt
new file mode 100644
index 0000000000..3503dbb611
--- /dev/null
+++ b/publ/pg-3.txt
@@ -0,0 +1,160 @@
+\left\{920606666275180544 t^{42}+139716889871836877684662272
+ t^{41}+33108379018212526911212683761664 t^{40}+211949503456919387868163795840491520
+ t^{39}+188447937416017016153372875942033817600
+ t^{38}+56797651496750162410567510031536529408000
+ t^{37}+8737773721514162982154071833042536693760000
+ t^{36}+835892739740793510291117366138756175953920000
+ t^{35}+55533760400246875104925239611179689363046400000
+ t^{34}+2744989680440716723469354760127477739683840000000
+ t^{33}+105736553693498557262600536633360671158042624000000
+ t^{32}+3280181983247960491157041144198768041649111040000000
+ t^{31}+83968336741590713827007433890929419040967884800000000
+ t^{30}+1806816166497051174041882127055684345761890304000000000
+ t^{29}+33154993025112544573857561123059757839556280320000000000
+ t^{28}+524772680878066157096214746843548727406913126400000000000
+ t^{27}+7230090673280560806688724265328424215326490624000000000000
+ t^{26}+87349429203217033870441607319666387589959516160000000000000
+ t^{25}+930890185458113033230890569533842221329652121600000000000000
+ t^{24}+8792907223453590284059182798920844451772366848000000000000000
+ t^{23}+73894390009224435412312849962822852716129157120000000000000000
+ t^{22}+554139012631318913310129364091818391688445952000000000000000000
+ t^{21}+3716324536035282998718045889563727520409321472000000000000000000
+ t^{20}+22323419093630390275433002495304421455261859840000000000000000000
+ t^{19}+120212120187849888243205087658781249590683238400000000000000000000
+ t^{18}+580494028589260035239238801046208345989447680000000000000000000000
+ t^{17}+2512839621220759460004812255394240356186849280000000000000000000000
+ t^{16}+9741619140749682362354876802424520001244364800000000000000000000000
+ t^{15}+33766635765899867140279702647172572049833984000000000000000000000000
+ t^{14}+104401416138603318734083186500424673829847040000000000000000000000000
+ t^{13}+287010131140851148508696447909223021622067200000000000000000000000000
+ t^{12}+698632465595536852968429409483846525648896000000000000000000000000000
+ t^{11}+1497758706905881108276921909210004387266560000000000000000000000000000
+ t^{10}+2808842392753899554640392189909313939046400000000000000000000000000000
+ t^9+4568236803400092019969103224408832475136000000000000000000000000000000
+ t^8+6372009445405835551991662491269553192960000000000000000000000000000000
+ t^7+7512752817457522379744356509427957760000000000000000000000000000000000
+ t^6+7342687105595856981299075944080736256000000000000000000000000000000000
+ t^5+5789905777141233790236563701602713600000000000000000000000000000000000
+ t^4+3539589465671021968607651869753344000000000000000000000000000000000000
+ t^3+1574263589158432369967837080453120000000000000000000000000000000000000
+ t^2+453185089581592011035068711567360000000000000000000000000000000000000
+ t+63382530011411470074835160268800000000000000000000000000000000000000,145486131594854
+ 4 t^{41}+2676959721837972423173120 t^{40}+2124196487270090938800264103936
+ t^{39}+22888481533828585806891311065354240
+ t^{38}+19405239275323644456912598896535142400
+ t^{37}+3556800769950807214696881396903165952000
+ t^{36}+143685614527226008994049480952565891072000
+ t^{35}-21438121370011388041447973809970688983040000
+ t^{34}-3419018493382138878660925844929688015667200000
+ t^{33}-251066405181300031813296124053161256108032000000
+ t^{32}-12270282205338294428265001471290333377527808000000
+ t^{31}-446370708091093888017642095657081075243417600000000
+ t^{30}-12784747485861040688708507138649477448623718400000000
+ t^{29}-298399343125056737106364723076760044071813120000000000
+ t^{28}-5810228411464630450771005823634953392506798080000000000
+ t^{27}-95994299338224535579964165182118315919487795200000000000
+ t^{26}-1362989294393986477248731898413650910841405440000000000000
+ t^{25}-16795631918951631768167041832318929098778869760000000000000
+ t^{24}-181000918538309713067277522747946003781910528000000000000000
+ t^{23}-1716121099382873528262078912472044289751252992000000000000000
+ t^{22}-14382145895106156166670800081370033757943234560000000000000000
+ t^{21}-106919477640528131807286514862253820243397836800000000000000000
+ t^{20}-706947517461912435960294934643641145530253312000000000000000000
+ t^{19}-4164775438492160410220205528551787062645227520000000000000000000
+ t^{18}-21883312789981667985989436081007100098615705600000000000000000000
+ t^{17}-102583144518083970867582072620133302333865984000000000000000000000
+ t^{16}-428833975724856072613919346448936270152335360000000000000000000000
+ t^{15}-1596749169814812744395298512805718481122099200000000000000000000000
+ t^{14}-5285133140729812222062748694555992189304832000000000000000000000000
+ t^{13}-15506018645993651436039443231716242578472960000000000000000000000000
+ t^{12}-40168226598224282985822992679575629489766400000000000000000000000000
+ t^{11}-91409763826248925157617411427535668903936000000000000000000000000000
+ t^{10}-181541743018839558976079204561111220224000000000000000000000000000000
+ t^9-312005347308676292218658835329251173990400000000000000000000000000000
+ t^8-458981135164994047033816321274207535104000000000000000000000000000000
+ t^7-569678470676137954857668954256824074240000000000000000000000000000000
+ t^6-585146756474990417874855654827910758400000000000000000000000000000000
+ t^5-484150624618667028938690877078896640000000000000000000000000000000000
+ t^4-310119627403084311664667983767142400000000000000000000000000000000000
+ t^3-144322020835983915577584662872064000000000000000000000000000000000000
+ t^2-43417033057816857000539188101120000000000000000000000000000000000000
+ t-6338253001141147007482173849600000000000000000000000000000000000000,767721322496
+ t^{41}+34340487238384943200256 t^{40}+137087317512446222048668955648
+ t^{39}+4800757118965892537530593424343040
+ t^{38}+10994378457078505752440066843001651200
+ t^{37}+5398855204028431606491965968184717312000
+ t^{36}+1087276127537028009870875080674052816896000
+ t^{35}+122517171060256436179616943466255176335360000
+ t^{34}+9048099655314756159807724884611713876787200000
+ t^{33}+479942670882985353071820884651078670860288000000
+ t^{32}+19384108476030359479885267638902350014251008000000
+ t^{31}+620347717830362525502985735489565826535587840000000
+ t^{30}+16187285604531046697466513951186707232338739200000000
+ t^{29}+351803880500765735745044632222146263379476480000000000
+ t^{28}+6472569142507461240259894349983474802634260480000000000
+ t^{27}+102095748486550858016866794384179206818994585600000000000
+ t^{26}+1394583426548313738721567056278577397284470784000000000000
+ t^{25}+16628527903975395682201590056469710070853140480000000000000
+ t^{24}+174182399154106447408227835771889473863811072000000000000000
+ t^{23}+1611010080478344169999722454778120007195820032000000000000000
+ t^{22}+13208871290455139483911411007057539256863948800000000000000000
+ t^{21}+96301109043059374384103026281894594828933529600000000000000000
+ t^{20}+625693706110010047642557546716600000529301504000000000000000000
+ t^{19}+3628258116806961714130474772826001434602373120000000000000000000
+ t^{18}+18792092610953238276129454162615267269122457600000000000000000000
+ t^{17}+86942002418620802393820881784230087919403008000000000000000000000
+ t^{16}+359086434789350479852674795800237400685281280000000000000000000000
+ t^{15}+1322234106880728656941846094880657025427046400000000000000000000000
+ t^{14}+4331576306989360858641361166180048764403712000000000000000000000000
+ t^{13}+12587050726143948531813921138866709394882560000000000000000000000000
+ t^{12}+32316200996206342082311789026097867679334400000000000000000000000000
+ t^{11}+72928069452540943804702971683069700866048000000000000000000000000000
+ t^{10}+143703743835511761362386798546521748930560000000000000000000000000000
+ t^9+245157944979291258174702400686006888038400000000000000000000000000000
+ t^8+358141692220516240880451211779662413824000000000000000000000000000000
+ t^7+441604027336488522819946360681560801280000000000000000000000000000000
+ t^6+450778951578603020805747974650147635200000000000000000000000000000000
+ t^5+370778461547101057831181256952381440000000000000000000000000000000000
+ t^4+236171031568364416479110532536729600000000000000000000000000000000000
+ t^3+109322980045307682708604745416704000000000000000000000000000000000000
+ t^2+32721231118391175929742472773632000000000000000000000000000000000000
+ t+4753689750855860255612637020160000000000000000000000000000000000000,12257280
+ t^{41}+245062741736822851584 t^{40}+5028383144019628231640206336
+ t^{39}+413641615170494907648137750609920 t^{38}+1467442183221556656043349658038272000
+ t^{37}+901958159763874405813310189974343680000
+ t^{36}+206358837375347139701515462740570456064000
+ t^{35}+25280543803448074399079036667540334673920000
+ t^{34}+1983208335919313488612801521105194197811200000
+ t^{33}+110202045948139717580202276522568840396800000000
+ t^{32}+4620562907608896829783577519182863847718912000000
+ t^{31}+152541970586224352510074184256741950437785600000000
+ t^{30}+4087235183661398204025500329994949395126681600000000
+ t^{29}+90894885871725991057476069539495527525777408000000000
+ t^{28}+1706531299021858081325537793320292504021237760000000000
+ t^{27}+27409283313170607164368151547798541012094156800000000000
+ t^{26}+380553824872958669354502137043137790652973056000000000000
+ t^{25}+4605412817450229884662292578894951398443581440000000000000
+ t^{24}+48901942327867508297671061516167759484105523200000000000000
+ t^{23}+458006433712121524680829530413375140327849984000000000000000
+ t^{22}+3799262237875776924041036224360178500019159040000000000000000
+ t^{21}+28001806675448931599241026667872040755658752000000000000000000
+ t^{20}+183798335683203667814034978740608511451856896000000000000000000
+ t^{19}+1076074642513006444000262917763222443875368960000000000000000000
+ t^{18}+5624100198618098961229588178792267197395763200000000000000000000
+ t^{17}+26244343766027126366225547951346915095871488000000000000000000000
+ t^{16}+109282158290440996496264100821651284390051840000000000000000000000
+ t^{15}+405543361891174556657849485102046644902297600000000000000000000000
+ t^{14}+1338455857288913836438270131590490243465216000000000000000000000000
+ t^{13}+3917198305754969891594570477347094942187520000000000000000000000000
+ t^{12}+10126091723904796319995128805908439420108800000000000000000000000000
+ t^{11}+23002413298709274474024285202173436887040000000000000000000000000000
+ t^{10}+45614240613674646248585638546998097346560000000000000000000000000000
+ t^9+78295517873384656288588758549822596710400000000000000000000000000000
+ t^8+115057956946044027986386301301479702528000000000000000000000000000000
+ t^7+142687043641263095738967275309660897280000000000000000000000000000000
+ t^6+146463591245538110464794621922141798400000000000000000000000000000000
+ t^5+121122598648402717572324070250250240000000000000000000000000000000000
+ t^4+77556250214807216262444491368038400000000000000000000000000000000000
+ t^3+36084466617121729486459485814784000000000000000000000000000000000000
+ t^2+10854258264454218753915081457664000000000000000000000000000000000000
+ t+1584563250285286751870879006720000000000000000000000000000000000000\right\}
\ No newline at end of file
diff --git a/publ/pg-4.txt b/publ/pg-4.txt
new file mode 100644
index 0000000000..83d675b879
--- /dev/null
+++ b/publ/pg-4.txt
@@ -0,0 +1,160 @@
+\left\{919357240373433344 t^{42}+139716762526322681191580672
+ t^{41}+33108378690019448762016667787264 t^{40}+211949503322132723485229746291793920
+ t^{39}+188447937389684524041591324930545254400
+ t^{38}+56797651494138070948734038822482132992000
+ t^{37}+8737773721352855519805164394070830612480000
+ t^{36}+835892739733389084037452219479523962552320000
+ t^{35}+55533760399963290924484502961580124218982400000
+ t^{34}+2744989680431279642517229505313494793093120000000
+ t^{33}+105736553693228521835549199266434508744884224000000
+ t^{32}+3280181983241442410003110843460242444035031040000000
+ t^{31}+83968336741459099742183681497556650947169484800000000
+ t^{30}+1806816166494824342636868433580559099832827904000000000
+ t^{29}+33154993025080768144962479142758880788160184320000000000
+ t^{28}+524772680877680727974485523791598402918311526400000000000
+ t^{27}+7230090673276557805682467336697529396545716224000000000000
+ t^{26}+87349429203181217977826928256747207381389148160000000000000
+ t^{25}+930890185457835700410503833649149395171121561600000000000000
+ t^{24}+8792907223451726381947324933156155668559822848000000000000000
+ t^{23}+73894390009213551121576176665495497173232517120000000000000000
+ t^{22}+554139012631263751190643048797459880305754112000000000000000000
+ t^{21}+3716324536035041343266094042383513674340892672000000000000000000
+ t^{20}+22323419093629482863212191813676743945711779840000000000000000000
+ t^{19}+120212120187847015024556391780137710920296038400000000000000000000
+ t^{18}+580494028589252618092418750567044383642746880000000000000000000000
+ t^{17}+2512839621220745125303133237376065996094177280000000000000000000000
+ t^{16}+9741619140749668004807796600693545096760524800000000000000000000000
+ t^{15}+33766635765899895080568564259581620685635584000000000000000000000000
+ t^{14}+104401416138603514321462110371627402306519040000000000000000000000000
+ t^{13}+287010131140851765547597879358101732406067200000000000000000000000000
+ t^{12}+698632465595538247743869835541420594692096000000000000000000000000000
+ t^{11}+1497758706905883566316072666611747190210560000000000000000000000000000
+ t^{10}+2808842392753903006381072981087157118566400000000000000000000000000000
+ t^9+4568236803400095875883416515203181838336000000000000000000000000000000
+ t^8+6372009445405838920778684468355357736960000000000000000000000000000000
+ t^7+7512752817457524605787377501753835520000000000000000000000000000000000
+ t^6+7342687105595858029771098861869203456000000000000000000000000000000000
+ t^5+5789905777141234104402658224347545600000000000000000000000000000000000
+ t^4+3539589465671022013682158565064704000000000000000000000000000000000000
+ t^3+1574263589158432369969343674449920000000000000000000000000000000000000
+ t^2+453185089581592011035068711567360000000000000000000000000000000000000
+ t+63382530011411470074835160268800000000000000000000000000000000000000,147686529353318
+ 4 t^{41}+2676971460648634633318400 t^{40}+2124196545868095058455508934656
+ t^{39}+22888481564983841464524733698457600
+ t^{38}+19405239281995989258473735084732006400
+ t^{37}+3556800770663173294753421932439429120000
+ t^{36}+143685614572708869781710466679198154752000
+ t^{35}-21438121367901885082190508937199612067840000
+ t^{34}-3419018493301119628302669562872456196915200000
+ t^{33}-251066405178599545925546318678418631688192000000
+ t^{32}-12270282205261103934913898187700672289374208000000
+ t^{31}-446370708089242317241263756318000095664537600000000
+ t^{30}-12784747485824109198383559279552771582486118400000000
+ t^{29}-298399343124442980818476109787086393515704320000000000
+ t^{28}-5810228411456071385935471730423068045952942080000000000
+ t^{27}-95994299338123543150757111932008067222942515200000000000
+ t^{26}-1362989294392970493263249546585536512710410240000000000000
+ t^{25}-16795631918942863827246969420296354293360885760000000000000
+ t^{24}-181000918538244513735848814743191053630701568000000000000000
+ t^{23}-1716121099382454721017644527424062962523963392000000000000000
+ t^{22}-14382145895103831497301705949178958398944706560000000000000000
+ t^{21}-106919477640517007515564266796083051869555916800000000000000000
+ t^{20}-706947517461866821694644686162333845696806912000000000000000000
+ t^{19}-4164775438492002102372670810439596885168619520000000000000000000
+ t^{18}-21883312789981214299152844888147750379166105600000000000000000000
+ t^{17}-102583144518082956160461943676584976170614784000000000000000000000
+ t^{16}-428833975724854596075346553795915577410191360000000000000000000000
+ t^{15}-1596749169814812893025088469667890026722099200000000000000000000000
+ t^{14}-5285133140729821579948711809382698065068032000000000000000000000000
+ t^{13}-15506018645993687475852147296119582317608960000000000000000000000000
+ t^{12}-40168226598224373486273372963660152333926400000000000000000000000000
+ t^{11}-91409763826249097346566843270814431707136000000000000000000000000000
+ t^{10}-181541743018839816618967929263910551552000000000000000000000000000000
+ t^9-312005347308676596592653818353544488550400000000000000000000000000000
+ t^8-458981135164994326884229970864377954304000000000000000000000000000000
+ t^7-569678470676138148790924799136487178240000000000000000000000000000000
+ t^6-585146756474990513426627932337890918400000000000000000000000000000000
+ t^5-484150624618667058845777839301591040000000000000000000000000000000000
+ t^4-310119627403084316165226413581926400000000000000000000000000000000000
+ t^3-144322020835983915596551389446144000000000000000000000000000000000000
+ t^2-43417033057816857001255575224320000000000000000000000000000000000000
+ t-6338253001141147007482173849600000000000000000000000000000000000000,656081504256
+ t^{41}+34339831806969838217216 t^{40}+137087312038256045938220290048
+ t^{39}+4800757115794290353984294700113920
+ t^{38}+10994378456436536572260939200058163200
+ t^{37}+5398855203969153658459049111690600448000
+ t^{36}+1087276127534033412398292398404062560256000
+ t^{35}+122517171060150840763901922225117584424960000
+ t^{34}+9048099655311662008174785776998379320115200000
+ t^{33}+479942670882911904570977530527885896613888000000
+ t^{32}+19384108476029359476798698256868276450295808000000
+ t^{31}+620347717830373795528006099337562623422627840000000
+ t^{30}+16187285604532143240706691927513306809938739200000000
+ t^{29}+351803880500800906470491678554169266836602880000000000
+ t^{28}+6472569142508219637589586624975944942595604480000000000
+ t^{27}+102095748486563339981207162744779263290218905600000000000
+ t^{26}+1394583426548478864226154402045311778615721984000000000000
+ t^{25}+16628527903977201322752525615457594579070484480000000000000
+ t^{24}+174182399154123049256933419065873836007227392000000000000000
+ t^{23}+1611010080478473917670253041392168185502892032000000000000000
+ t^{22}+13208871290456007056202399097764599956294860800000000000000000
+ t^{21}+96301109043064352884257903735524640245258649600000000000000000
+ t^{20}+625693706110034555580082436494873998240251904000000000000000000
+ t^{19}+3628258116807064741150922016493069597272965120000000000000000000
+ t^{18}+18792092610953604149665595977867854251399577600000000000000000000
+ t^{17}+86942002418621875395556149317658798570078208000000000000000000000
+ t^{16}+359086434789352947099275911930382773418721280000000000000000000000
+ t^{15}+1322234106880732442151166908582094224909926400000000000000000000000
+ t^{14}+4331576306989361276545868005694266840973312000000000000000000000000
+ t^{13}+12587050726143927709386556918734697067970560000000000000000000000000
+ t^{12}+32316200996206257810515857354278299919974400000000000000000000000000
+ t^{11}+72928069452540727603249658501133288603648000000000000000000000000000
+ t^{10}+143703743835511344294389624836597544386560000000000000000000000000000
+ t^9+245157944979290627667890274873417033318400000000000000000000000000000
+ t^8+358141692220515489911287190719482036224000000000000000000000000000000
+ t^7+441604027336487827783606236064545505280000000000000000000000000000000
+ t^6+450778951578602536584149794789995315200000000000000000000000000000000
+ t^5+370778461547100818267523202144010240000000000000000000000000000000000
+ t^4+236171031568364341314250711079321600000000000000000000000000000000000
+ t^3+109322980045307671449481190047744000000000000000000000000000000000000
+ t^2+32721231118391175929724017836032000000000000000000000000000000000000
+ t+4753689750855860255612637020160000000000000000000000000000000000000,46397440
+ t^{41}+245099739466059945984 t^{40}+5028384174455798353401593856
+ t^{39}+413641616518183485602370824253440 t^{38}+1467442183627719378351515667533414400
+ t^{37}+901958159828559039702855234834685952000
+ t^{36}+206358837380757985560032064597830221824000
+ t^{35}+25280543803744004417837067503683703275520000
+ t^{34}+1983208335931867078479268798579543012147200000
+ t^{33}+110202045948594760468350370798958539489280000000
+ t^{32}+4620562907623258954020440535128814399782912000000
+ t^{31}+152541970586611175090633396517234763012505600000000
+ t^{30}+4087235183670128673944496154180919769373081600000000
+ t^{29}+90894885871890291154820296106249244536209408000000000
+ t^{28}+1706531299024446395265159176962461175523573760000000000
+ t^{27}+27409283313204995964275563077678785526418636800000000000
+ t^{26}+380553824873347073342578648677841462381510656000000000000
+ t^{25}+4605412817453985355429072246733625908726333440000000000000
+ t^{24}+48901942327898766754817178774957592593773363200000000000000
+ t^{23}+458006433712346359101660168767034664297693184000000000000000
+ t^{22}+3799262237877177180358150117969190499427287040000000000000000
+ t^{21}+28001806675456481245632024878751011031744512000000000000000000
+ t^{20}+183798335683238804901507465978877996586500096000000000000000000
+ t^{19}+1076074642513146650535954380037172535188520960000000000000000000
+ t^{18}+5624100198618572213691918801790468749472563200000000000000000000
+ t^{17}+26244343766028441506842325153522652270297088000000000000000000000
+ t^{16}+109282158290443820095707256425375355203747840000000000000000000000
+ t^{15}+405543361891178315506313056388297525926297600000000000000000000000
+ t^{14}+1338455857288912014257948773909566026940416000000000000000000000000
+ t^{13}+3917198305754940356150478814001447326187520000000000000000000000000
+ t^{12}+10126091723904690025514837010002444340428800000000000000000000000000
+ t^{11}+23002413298709016143662085288141405552640000000000000000000000000000
+ t^{10}+45614240613674165842444564269441283522560000000000000000000000000000
+ t^9+78295517873383950636907656888021575270400000000000000000000000000000
+ t^8+115057956946043207667503340816829513728000000000000000000000000000000
+ t^7+142687043641262352490295955457080033280000000000000000000000000000000
+ t^6+146463591245537602431200199178610278400000000000000000000000000000000
+ t^5+121122598648402470550645526012887040000000000000000000000000000000000
+ t^4+77556250214807139983679054833254400000000000000000000000000000000000
+ t^3+36084466617121718227498082238464000000000000000000000000000000000000
+ t^2+10854258264454218753915081457664000000000000000000000000000000000000
+ t+1584563250285286751870879006720000000000000000000000000000000000000\right\}
\ No newline at end of file
diff --git a/publ/talks/15minit.pdf b/publ/talks/15minit.pdf
new file mode 100644
index 0000000000..5ae97e581d
Binary files /dev/null and b/publ/talks/15minit.pdf differ
diff --git a/publ/talks/CATGT_Talk.pdf b/publ/talks/CATGT_Talk.pdf
new file mode 100644
index 0000000000..de61c691c6
Binary files /dev/null and b/publ/talks/CATGT_Talk.pdf differ
diff --git a/publ/talks/Dibru_Talk.pdf b/publ/talks/Dibru_Talk.pdf
new file mode 100644
index 0000000000..8eff0880a7
Binary files /dev/null and b/publ/talks/Dibru_Talk.pdf differ
diff --git a/publ/talks/ICTP_Talk.pdf b/publ/talks/ICTP_Talk.pdf
new file mode 100644
index 0000000000..014096f28e
Binary files /dev/null and b/publ/talks/ICTP_Talk.pdf differ
diff --git a/publ/talks/contact2.pdf b/publ/talks/contact2.pdf
new file mode 100644
index 0000000000..20981b0b7c
Binary files /dev/null and b/publ/talks/contact2.pdf differ
diff --git a/publ/talks/index.md b/publ/talks/index.md
new file mode 100644
index 0000000000..1419a519e2
--- /dev/null
+++ b/publ/talks/index.md
@@ -0,0 +1,2 @@
+
+Nothing here! Click on the menu items.
diff --git a/quiz/Cerebrum_2019.pdf b/quiz/Cerebrum_2019.pdf
new file mode 100644
index 0000000000..357a694ad9
Binary files /dev/null and b/quiz/Cerebrum_2019.pdf differ
diff --git a/quiz/Cerebrum_Redux_Web.pdf b/quiz/Cerebrum_Redux_Web.pdf
new file mode 100644
index 0000000000..77878ae2aa
Binary files /dev/null and b/quiz/Cerebrum_Redux_Web.pdf differ
diff --git a/quiz/finals.pdf b/quiz/finals.pdf
new file mode 100644
index 0000000000..03d1cb0337
Binary files /dev/null and b/quiz/finals.pdf differ
diff --git a/quiz/index.md b/quiz/index.md
new file mode 100644
index 0000000000..c612c22231
--- /dev/null
+++ b/quiz/index.md
@@ -0,0 +1,15 @@
+---
+layout: page
+title: Quiz
+description: Some quizzes that I have conducted.
+background: '/img/quiz.jpg'
+permalink: /quiz/
+---
+
+I was an avid quizzer in my school days. Even today, I enjoy a good science and/or history quiz. Sometimes, people are kind enough to ask me to host some quiz; or I volunteer to do them myself.
+
+Below, I will upload some of the quiz sets that I have prepared.
+
+[Cerebrum, 2019: The Tezpur University Open Science Quiz](/quiz/Cerebrum_2019.pdf) (prelims is quite easy, but the finals might give you some food for thought)
+
+[Cerebrum Redux: Adda Quiz via Zoom](/quiz/Cerebrum_Redux_Web.pdf) (questions are deliberately vague to inhibit cheating, since this was an online quiz via Zoom)
diff --git a/quotes.md b/quotes.md
new file mode 100644
index 0000000000..937e92f37c
--- /dev/null
+++ b/quotes.md
@@ -0,0 +1,103 @@
+---
+layout: page
+title: Quotes
+description: Some quotes that I have collected.
+mathjax: true
+background: '/img/quotes.jpg'
+permalink: /quotes/
+---
+
+The plan here is to collect some quotes that I have heard somewhere. They will not be categorized according to subject now, maybe in the future I may do so.
+
+The set of things that I don’t know is dense in any topology.
+
+***Fabio Vlacci*** in a complex analysis lecture at ICTP
+
+Now we move quickly and painfully, or painlessly depending on who you are, and derive the Schrödinger equation.
+
+***Douglas Hofstadter*** while speaking at a Mathematics Collouquim in the University of Vienna, 2017.
+
+Every math talk should include at least one joke and one proof, preferably distinct.
+
+***Henry Cohn*** while speaking at a Summer School for PhD students of the University of Vienna, Obergurgl, September 2017.
+
+Someday somebody will be able to write a paper with a great title 'The best packing is the best, or 'not...', it won't make sense unless someone knows which is which.
+
+***Henry Cohn*** explaining about results of Best in sphere packing, Obergurgl, September 2017.
+
+If you are going to read only one thing about information theory then this is it; also you should read at least one thing about information theory in your life.
+
+***Henry Cohn***, Obergurgl, September 2017.
+
+The world of math is path connected.
+
+***Mathias Kreck*** while lecturing about Poincare Conjecture, Obergurgl, September 2017.
+
+God created the world in four dimensions, well 11 if you are a string theorist. But it's 4+7.
+
+***Mathias Kreck*** while lecturing about Poincare Conjecture, Obergurgl, September 2017.
+
+The name is what it is. But it's wrong.
+
+***Mathias Kreck*** on positive definite kernels, Obergurgl, September 2017.
+
+Mathematics is the universal language that no one speaks.
+
+***Pierre Loius Lions***, Vienna, September 2017.
+
+I have a lot of knowledge in my computer.
+
+***Vivien Ripoll*** referring to the files saved on his computer, while at lunch in Vienna, 2017.
+
+If you are dying it's supposed to be a full time job, but Ramanujan sent a letter three months before his death to Hardy.
+
+***George Andrews*** speaking about Ramanujan, Hagenberg, 2017.
+
+The airline ticket pricing policy was very fortunate, if you spend three weeks in Europe then the price was $\epsilon$, if you spent less than three weeks then it was $\dfrac{1}{\epsilon}$.
+
+***George Andrews*** while speaking about how he discovered Ramanujan's Lost Notebook, Hagenberg, 2017.
+
+I became the leading expert on mock theta functions, in the sense that no one else knew about it at that time.
+
+***George Andrews*** speaking about Ramanujan, Hagenberg, 2017.
+
+Please think of this 4 as a 5.
+
+***George Andrews*** pointing out a typo in one of his slides, Hagenberg, 2017.
+
+Harold Potter came, then some magic happened.
+
+***Michael Schlosser*** referring to a result by H. Potter, mathematician, Vienna, 2017.
+
+If you don’t think this is a beautiful formula, then you are in the wrong conference.
+
+***Ole Warnaar*** while showing a massive hypergeometric identity to an audience at Combinatory Analysis 2018, to celebrate George Andrews' 80th birthday, PennState, June 2018.
+
+Focus on Dyson because, one he is math hero, two he is much older than me, and three he is still alive.
+
+***George Andrews*** making a joke during Combinatory Analysis 2018, to celebrate George Andrews' 80th birthday, PennState, June 2018.
+
+If you don't like ultrafilters, you should not do algebra.
+
+***Hans Schoutens*** while explaining ultrafilters at a summer school for PhD students of the University of Vienna, Techendorf, Austria, September 2018.
+
+The biology group has about 50 members and 5000 mice, ...., this is the math building with about 15 members and no mice.
+
+***László Erdős*** while giving a short description of IST Austria at a summer school for PhD students of the University of Vienna, Techendorf, Austria, September 2018.
+
+Most companies do not use elliptic curves for cryptography because they do not know the difference between elliptic curves and an ellipse.
+
+***Adolfo Quirós Gracián*** while explaining about elliptic curve cryptography at a summer school for PhD students of the University of Vienna, Techendorf, Austria, September 2018.
+
+Continued fractions need continued black boards.
+
+***Alan Sokal*** while lecturing at Hagenberg about his work with continued fractions, July 2019.
+
+Anthropologically it is great to see if you can make fire with stones but I prefer a lighter.
+
+***Manuel Kauers*** on computer and hand calculations at a lecture in Johannes Kepler University, Linz in 2019.
+
+Definite is everything which is not indefinite.
+
+***Manuel Kauers*** when someone in the audience asked what he means by definite sum, Johannes Kepler University, Linz in 2019.
+
diff --git a/research.md b/research.md
new file mode 100644
index 0000000000..56d1128165
--- /dev/null
+++ b/research.md
@@ -0,0 +1,128 @@
+---
+layout: page
+title: Research
+description: My past and current research.
+mathjax: true
+background: '/img/research.jpeg'
+permalink: /research/
+---
+
+My current work is focused on combinatorics with a side interest in number theory. I am also interested in history of mathematics. For my publications, see below (arranged in reverse chronological order of publication).
+
+[MathSciNet Profile](http://www.ams.org/mathscinet/search/author.html?mrauthid=962403) (needs subscription)
+[ZbMath Profile](https://zbmath.org/authors/?q=ai:saikia.manjil-p)
+
+Some of the papers here may not be the final version that appeared, if you want a latest version send me an email.
+
+## Theses
+
+3. *Topics on Alternating Sign Matrices and Aztec Rectangles*, Doctoral Thesis, University of Vienna (Vienna, Austria), 2019. (Supervisor: [Prof. Ilse Fischer](https://mat.univie.ac.at/~ifischer/)) ([pdf](/publ/Manjil-Thesis.pdf)).
+
+2. *Representations of the Symmetric Group*, Diploma Thesis, The Abdus Salam International Centre for Theoretical Physics (Trieste, Italy), 2015. (Supervisor: [Prof. Fernando R. Villegas](https://users.ictp.it/~villegas/)) ([pdf](http://gonitsora.com/manjil/thesis/saikia-diploma-thesis.pdf)).
+
+1. *A study of the crank function with special emphasis on Ramanujan’s Lost Notebook*, M.Sc Thesis, Tezpur University (Tezpur, India), 2014. (Supervisor: [Prof. Nayandeep Deka Baruah](http://www.tezu.ernet.in/dmaths/people/faculty-pages/ndb.html)) ([pdf](http://arxiv.org/pdf/1406.3299v1.pdf)).
+
+## Preprints
+
+5. *Ramanujan-type Congruences for Partition $k$-Tuples with $5$-Cores*, (with *[Abhishek Sarma](https://sites.google.com/view/abhishek-sarma/) and Pranjal Talukdar*), preprint, 2023. ([pdf](https://arxiv.org/pdf/2302.01750.pdf))
+
+4. *On $k$-Facile Perfect Numbers*, (with *Flora S. Jeba and Anirban Roy*), preprint, 2022. (available on request)
+
+3. *Conjectures on congruences of binomial coefficients modulo higher powers of a prime number*, preprint, 2022. ([pdf](/publ/papers/Conjecture.pdf))
+
+2. *Extensions of some results of Vladeta and Dhar*, (with *[Pankaj Jyoti Mahanta](http://pankajjyoti.com/)*), preprint, 2022. ([pdf](/publ/papers/Partition_Vladeta.pdf))
+
+1. *Biases in Non-Unitary Partitions*, (with *[Pankaj Jyoti Mahanta](http://pankajjyoti.com/) and [Abhishek Sarma](https://sites.google.com/view/abhishek-sarma/)*), preprint, 2022. ([pdf](/publ/papers/bias-new.pdf))
+
+## Peer Reviewed Papers
+
+23. *Some Missed Congruences modulo powers of $2$ for $t$-colored overpartitions*, *Boletín de la Sociedad Matemática Mexicana*, 2023, 29 (1), Article 15, 10 pp. ([pdf](/publ/papers/NNcong.pdf))
+
+22. *Representing Even Perfect and Near-Perfect Numbers as Sums of Cubes*, (with *Padma Bhushan Borah and [Pankaj Jyoti Mahanta](http://pankajjyoti.com/)*), *Journal of the Assam Academy of Mathematics*, 2022, 12, 1-7. ([pdf](https://jaam.aamonline.org.in/ojs/index.php/j/article/view/57))
+
+21. *Parity Biases in Partitions and Restricted Partitions*, (with *Koustav Banerjee, Sreerupa Bhattacharjee, Manosij Ghosh Dastidar and [Pankaj Jyoti Mahanta](http://pankajjyoti.com/)*), *Séminaire Lotharingien de Combinatoire (Proceedings of the 34th Conference on Formal Power Series and Algebraic Combinatorics 2022 (Bangalore))*, 86B.21, 2022. ([pdf](/publ/papers/FPSAC2022.pdf))
+
+20. *Refinement of some partition identities of Merca and Yee*, (with *[Pankaj Jyoti Mahanta](http://pankajjyoti.com/)*), *International Journal of Number Theory*, 2022, 18 (5), 1131-1142. ([pdf](/publ/papers/PJM_MY.pdf))
+
+19. *Some New and Old Gibonacci Identities*, (with *[Pankaj Jyoti Mahanta](http://pankajjyoti.com/)*), *Rocky Mountain Journal of Mathematics*, 2022, 52 (2), 645-665. ([pdf](/publ/papers/Gibonacci_Pankaj.pdf))
+
+18. *Parity Biases in Partitions and Restricted Partitions*, (with *Koustav Banerjee, Sreerupa Bhattacharjee, Manosij Ghosh Dastidar and [Pankaj Jyoti Mahanta](http://pankajjyoti.com/)*), *European Journal of Combinatorics*, 2022, 103, 103522, 19 pp. ([pdf](/publ/papers/parity_Final.pdf))
+
+17. *Refined Enumeration of Symmetry Classes of Alternating Sign Matrices*, (with *[Ilse Fischer](https://www.mat.univie.ac.at/~ifischer/)*), *Journal of Combinatorial Theory, Series A*, 2021, 178, 105350, 51 pp. ([pdf](https://arxiv.org/pdf/1906.07723.pdf))
+
+16. *A family of lacunary recurrences for Lucas Numbers*, (with *[Pankaj Jyoti Mahanta](http://pankajjyoti.com/)*), *The Fibonacci Quarterly*, 2020, 58 (4), 356-360. ([pdf](/publ/papers/Lucas_Pankaj.pdf))
+
+15. *Some properties of Zumkeller numbers and $k$-layered numbers*, (with *[Pankaj Jyoti Mahanta](http://pankajjyoti.com/) and Daniel Yaqubi*), *Journal of Number Theory*, 2020, 217, 218–236. ([pdf](/publ/papers/Zumkeller_Numbers.pdf))
+
+14. *Hard and Easy Instances of L-Tromino Tilings*, (with *Javier T. Akagi, Carlos F. Gaona, Fabricio Mendoza and [Marcos Villagra](https://sites.google.com/site/marcosvillagrahome/home)*) *Theoretical Computer Science*, 2020, 815, 197-212. ([pdf](publ/papers/tcs.pdf))
+
+13. *On Deficient Perfect Numbers with Four Distinct Prime Factors*, (with *Parama Dutta*) *Asian-European Journal of Mathematics*, 2020, 13 (7), 2050126, 13 pp. ([pdf](https://arxiv.org/pdf/1906.09947.pdf))
+
+12. *Hard and Easy Instances of L-Tromino Tilings*, (with *Javier T. Akagi, Carlos F. Gaona, Fabricio Mendoza and [Marcos Villagra](https://sites.google.com/site/marcosvillagrahome/home)*) *Proceedings of the 13th International Conference and Workshops on Algorithms and Computation (WALCOM) 2019, Lecture Notes in Computer Science (LNCS)*, Volume 11355, Springer, 2019, 82-95. ([pdf](/publ/papers/paper_22.pdf))
+
+11. *Enumeration of Domino Tilings of an Aztec Rectangle with boundary defects*, *Advances in Applied Mathematics*, 2017, 89, 41–66. ([pdf](http://gonitsora.com/manjil/papers/Aztec.pdf))
+
+10. *Some Properties of Fibonacci Numbers, Generalized Fibonacci Numbers and Generalized Fibonacci Polynomial Sequences*, (with *Alexandre Laugier*) *Kyungpook Mathematical Journal*, 2017, 57 (1), 1–84. ([pdf](http://gonitsora.com/manjil/papers/kmj.pdf))
+
+9. *Some Results on Generalized Multiplicative Perfect Numbers*, (with *Alexandre Laugier and Upam Sarmah*) *Annali Dell’Universita’ di Ferrara*, 2016, 62 (2), 293–312. ([pdf](http://arxiv.org/pdf/1603.04382.pdf))
+
+8. *A combinatorial proof of a result on generalized Lucas Polynomials*, (with *Alexandre Laugier*) *Demonstratio Mathematica*, 2016, 49 (3), 266–270. ([pdf](http://gonitsora.com/manjil/papers/demmath.pdf))
+
+7. *A study of the crank function in Ramanujan’s Lost Notebook*, *The Mathematics Student*, 2015, 84 (1-2), 105 — 121. ([pdf](https://arxiv.org/pdf/1406.3299.pdf))
+
+6. *Some results about Linear Recurrence Relation Homomorphisms*, (with *Alexandre Laugier*) *Notes on Number Theory and Discrete Mathematics*, 2014, 20 (4), 58 — 68. ([pdf](http://arxiv.org/pdf/1305.5743.pdf))
+
+5. *A characterization of a prime $p$ from the binomial coefficient ${n \choose p}$*, (with *Alexandre Laugier*), *The Mathematics Student*, 2014, 83 (1-4), 221 — 227. ([pdf](http://arxiv.org/pdf/1209.2373.pdf))
+
+4. *Cranks in Ramanujan’s Lost Notebook*, *Journal of the Assam Academy of Mathematics*, 2013, 6, 59 — 63. ([pdf](http://arxiv.org/pdf/1402.6644.pdf))
+
+3. *A new proof of Lucas’ Theorem*, (with *Alexandre Laugier*) *Notes on Number Theory and Discrete Mathematics*, 2012, 18 (4), 1 — 6. ([pdf](http://arxiv.org/pdf/1301.4250.pdf))
+
+2. *Binomial Symbols and Prime Moduli*, (with *[Jure Vogrinc](https://warwick.ac.uk/fac/sci/statistics/staff/academic-research/vogrinc/)*) *Journal of the Indian Mathematical Society*, 2011, 79 (1-4), 137 — 143. ([pdf](http://arxiv.org/pdf/1209.2374))
+
+1. *A Simple Number Theoretic Result*, (with *[Jure Vogrinc](https://warwick.ac.uk/fac/sci/statistics/staff/academic-research/vogrinc/)*) *Journal of the Assam Academy of Mathematics*, 2010, 3, 91 — 96. ([pdf](http://arxiv.org/pdf/1207.6707.pdf))
+
+## Solutions to Problems
+
+2. *Solution to Problem 4 of The Mathematics Student, 2015 (1-2)*, *The Mathematics Student*, July — December 2015, 84 (3-4), 181. ([pdf](http://gonitsora.com/manjil/publ/solutions/ms-4.pdf))
+
+1. *Solution to Problem 1908 of Mathematics Magazine*, (with *Bishal Deb*), *The Mathematics Magazine*, December 2013, 86 (5), 384 — 385. ([pdf](http://gonitsora.com/manjil/publ/solutions/1908.pdf))
+
+## Books
+
+2. *Moha Moha Puruxor Sanekire Jibonor* (edited with *Pankaj Jyoti Mahanta*), Panchajanya Publishers, Guwahati, 2018.
+
+1. *The Pursuit of Joy* (with *Pankaj Jyoti Mahanta*), LAP Lambert Academic Publishing, Germany, 2011. ([pdf](http://gonitsora.com/manjil/publ/books/the_pursuit_of_joy.pdf))
+
+## Non Peer-Reviewed Papers
+
+8. *Almost Circular Balancing Numbers*, *Advances in Mathematical Sciences* (Z. Ahmed (ed.)), Empyreal Publishing House, 2019, 61 — 67. ([pdf](http://www.editedbook.in/pdf/dr-zakir-ahmed-edited.pdf#%5B%7B%22num%22%3A72%2C%22gen%22%3A0%7D%2C%7B%22name%22%3A%22XYZ%22%7D%2C73.441%2C696.959%2Cnull%5D))
+
+7. *On Deficient Perfect Numbers with Four Distinct Prime Factors, II*, preprint, 2018. ([pdf](/publ/papers/saikia_deficient_7.pdf))
+
+6. *The Perils of the Indian Education System*, (with *Madhurrya P. Talukdar*) *Pragyan, Tinisukia College Magazine*, 2019. ([pdf](/publ/papers/Tinisukia_Education.pdf))
+
+5. *John Forbes Nash, Jr. – A Short Obituary*, *Asia Pacific Mathematics Newsletter*, September 2015, 5 (2), 42 — 43. ([pdf](http://gonitsora.com/manjil/papers/john-nash.pdf))
+
+4. *The Pythagoras’ Theorem*, *Asia Pacific Mathematics Newsletter*, September 2015, 5 (2), 5 — 8. ([pdf](http://gonitsora.com/manjil/papers/pythagoras.pdf))
+
+3. *Periodic Sequences modulo $m$*, (with *Alexandre Laugier*) *prepint*, 2015. ([pdf](http://arxiv.org/pdf/1209.2371v3.pdf))
+
+2. *Gonit Sora-the two year journey*, (with *[Pankaj Jyoti Mahanta](http://pankajjyoti.com/)*), *Asia Pacific Mathematics Newsletter*, October 2013, 3 (4), 25 — 27. ([pdf](/publ/papers/gonit-sora-apmn.pdf))
+
+1. *An interesting number theoretic problem*, *Ganit Bikash*, 2011. ([pdf](http://arxiv.org/pdf/1208.3125.pdf))
+
+
+## Lecture Notes
+
+1. [Probability Theory](http://gonitsora.com/downloads/probability_theory.pdf) (with Rupam Haloi)
+
+## Projects
+
+4. [Polya’s Theory of Counting](http://gonitsora.com/manjil/publ/projects/polya.pdf) (under [Prof. Fernando R. Villegas](https://users.ictp.it/~villegas/) at The Abdus Salam International Centre for Theoretical Physics, Trieste, Italy), October – December 2014.
+
+3. [Some results in Additive Combinatorics and Analytic Number Theory](http://gonitsora.com/manjil/publ/projects/additive-combinatorics.pdf) (under [Prof. R. Balasubramanian](https://en.wikipedia.org/wiki/Ramachandran_Balasubramanian) at The Institute of Mathematical Sciences, Chennai, India), June – July 2012.
+
+2. [A study of Kummer’s proof of Fermat’s Last Theorem for regular primes](http://gonitsora.com/manjil/publ/projects/kummerFLT.pdf) (under [Prof. Kapil Hari Paranjape](http://www.iisermohali.ac.in/faculty/dms/dr-kapil-hari-paranjape) at The Indian Institute of Science Education and Research, Mohali, India), June – July 2011.
+
+1. [The irrationality of $\zeta(2)$ and $\zeta(3)$](http://gonitsora.com/manjil/publ/projects/zeta-3.pdf) (under [Dr. Purusottam Rath](https://www.cmi.ac.in/people/fac-profile.php?id=rath) at Chennai Mathematical Institute, Chennai, India), June – July 2010.
diff --git a/seminar/Ajit_Singh.pdf b/seminar/Ajit_Singh.pdf
new file mode 100644
index 0000000000..119c0a0149
Binary files /dev/null and b/seminar/Ajit_Singh.pdf differ
diff --git a/seminar/Anirban_Roy.pdf b/seminar/Anirban_Roy.pdf
new file mode 100644
index 0000000000..05549c544e
Binary files /dev/null and b/seminar/Anirban_Roy.pdf differ
diff --git a/seminar/Anurag_Baruah.pdf b/seminar/Anurag_Baruah.pdf
new file mode 100644
index 0000000000..e9fd5a98ab
Binary files /dev/null and b/seminar/Anurag_Baruah.pdf differ
diff --git a/seminar/Arjun_Singh_Chetry.pdf b/seminar/Arjun_Singh_Chetry.pdf
new file mode 100644
index 0000000000..f736438a4b
Binary files /dev/null and b/seminar/Arjun_Singh_Chetry.pdf differ
diff --git a/seminar/Azizul_Hoque.pdf b/seminar/Azizul_Hoque.pdf
new file mode 100644
index 0000000000..0bff07bf5e
Binary files /dev/null and b/seminar/Azizul_Hoque.pdf differ
diff --git a/seminar/Bibekananda_Maji.pdf b/seminar/Bibekananda_Maji.pdf
new file mode 100644
index 0000000000..9dfb66fb0d
Binary files /dev/null and b/seminar/Bibekananda_Maji.pdf differ
diff --git a/seminar/Bishal_Deb.pdf b/seminar/Bishal_Deb.pdf
new file mode 100644
index 0000000000..a33b06bd32
Binary files /dev/null and b/seminar/Bishal_Deb.pdf differ
diff --git a/seminar/Chayanika_Boruah.pdf b/seminar/Chayanika_Boruah.pdf
new file mode 100644
index 0000000000..cf8456e927
Binary files /dev/null and b/seminar/Chayanika_Boruah.pdf differ
diff --git a/seminar/Daniel.pdf b/seminar/Daniel.pdf
new file mode 100644
index 0000000000..07aa1f374b
Binary files /dev/null and b/seminar/Daniel.pdf differ
diff --git a/seminar/Debashish_Sharma.pdf b/seminar/Debashish_Sharma.pdf
new file mode 100644
index 0000000000..b0bbb2b929
Binary files /dev/null and b/seminar/Debashish_Sharma.pdf differ
diff --git a/seminar/Deepak_Sarma.pdf b/seminar/Deepak_Sarma.pdf
new file mode 100644
index 0000000000..f8e78424cb
Binary files /dev/null and b/seminar/Deepak_Sarma.pdf differ
diff --git a/seminar/Divya_Aggarwal.pdf b/seminar/Divya_Aggarwal.pdf
new file mode 100644
index 0000000000..997e830467
Binary files /dev/null and b/seminar/Divya_Aggarwal.pdf differ
diff --git a/seminar/Gauranga_Baishya.pdf b/seminar/Gauranga_Baishya.pdf
new file mode 100644
index 0000000000..7050ea3857
Binary files /dev/null and b/seminar/Gauranga_Baishya.pdf differ
diff --git a/seminar/Gianluca.pdf b/seminar/Gianluca.pdf
new file mode 100644
index 0000000000..f24b08393b
Binary files /dev/null and b/seminar/Gianluca.pdf differ
diff --git a/seminar/Himangshu_Hazarika.pdf b/seminar/Himangshu_Hazarika.pdf
new file mode 100644
index 0000000000..fb5a83066e
Binary files /dev/null and b/seminar/Himangshu_Hazarika.pdf differ
diff --git a/seminar/Hirakjyoti_Das.pdf b/seminar/Hirakjyoti_Das.pdf
new file mode 100644
index 0000000000..d3f21c5968
Binary files /dev/null and b/seminar/Hirakjyoti_Das.pdf differ
diff --git a/seminar/Jaitra.pdf b/seminar/Jaitra.pdf
new file mode 100644
index 0000000000..2e61125454
Binary files /dev/null and b/seminar/Jaitra.pdf differ
diff --git a/seminar/Kunjakanan_Nath.pdf b/seminar/Kunjakanan_Nath.pdf
new file mode 100644
index 0000000000..5a58770438
Binary files /dev/null and b/seminar/Kunjakanan_Nath.pdf differ
diff --git a/seminar/Manjil_Saikia.pdf b/seminar/Manjil_Saikia.pdf
new file mode 100644
index 0000000000..8cc0f0da02
Binary files /dev/null and b/seminar/Manjil_Saikia.pdf differ
diff --git a/seminar/Mohan.pdf b/seminar/Mohan.pdf
new file mode 100644
index 0000000000..e13ff1daa1
Binary files /dev/null and b/seminar/Mohan.pdf differ
diff --git a/seminar/Munmi_Saikia.pdf b/seminar/Munmi_Saikia.pdf
new file mode 100644
index 0000000000..464bc0b0ca
Binary files /dev/null and b/seminar/Munmi_Saikia.pdf differ
diff --git a/seminar/Nilufar_Mana_Begum.pdf b/seminar/Nilufar_Mana_Begum.pdf
new file mode 100644
index 0000000000..72c8f699e0
Binary files /dev/null and b/seminar/Nilufar_Mana_Begum.pdf differ
diff --git a/seminar/Parama_Dutta.pdf b/seminar/Parama_Dutta.pdf
new file mode 100644
index 0000000000..55045f7d90
Binary files /dev/null and b/seminar/Parama_Dutta.pdf differ
diff --git a/seminar/Parishmita_Boruah.pdf b/seminar/Parishmita_Boruah.pdf
new file mode 100644
index 0000000000..9120dd9160
Binary files /dev/null and b/seminar/Parishmita_Boruah.pdf differ
diff --git a/seminar/Rahul.pdf b/seminar/Rahul.pdf
new file mode 100644
index 0000000000..da3ce934a5
Binary files /dev/null and b/seminar/Rahul.pdf differ
diff --git a/seminar/Ritu_Dutta.pdf b/seminar/Ritu_Dutta.pdf
new file mode 100644
index 0000000000..94abc0d559
Binary files /dev/null and b/seminar/Ritu_Dutta.pdf differ
diff --git a/seminar/Rupam_Haloi.pdf b/seminar/Rupam_Haloi.pdf
new file mode 100644
index 0000000000..3b75aa28e3
Binary files /dev/null and b/seminar/Rupam_Haloi.pdf differ
diff --git a/seminar/Shamik_Das.pdf b/seminar/Shamik_Das.pdf
new file mode 100644
index 0000000000..8644b7bf8b
Binary files /dev/null and b/seminar/Shamik_Das.pdf differ
diff --git a/seminar/Soumya_Dey.pdf b/seminar/Soumya_Dey.pdf
new file mode 100644
index 0000000000..bc74a7bd26
Binary files /dev/null and b/seminar/Soumya_Dey.pdf differ
diff --git a/seminar/Souvik_Parial.pdf b/seminar/Souvik_Parial.pdf
new file mode 100644
index 0000000000..04bac75fa2
Binary files /dev/null and b/seminar/Souvik_Parial.pdf differ
diff --git a/seminar/Tushar.pdf b/seminar/Tushar.pdf
new file mode 100644
index 0000000000..4de5fb33ce
Binary files /dev/null and b/seminar/Tushar.pdf differ
diff --git a/seminar/index.md b/seminar/index.md
new file mode 100644
index 0000000000..af3360b69c
--- /dev/null
+++ b/seminar/index.md
@@ -0,0 +1,104 @@
+---
+layout: page
+title: Seminars
+description: Online Weekly Research Seminar for Early Career Mathematicians from India.
+background: '/img/bg-default.jpg'
+permalink: /seminar/
+mathjax: true
+---
+
+## About The Seminar
+
+**The seminar is not running at the moment.**
+
+This seminar takes place usually on Fridays, at a suitable time and is meant for talks by early career Indian mathematicians (PhD Students, Postdocs, and young faculty members). By Indian, we mean anyone residing/working in India now or residing/working in India in the past.
+
+You can register to be on the mailing list by filling [in this form](https://forms.office.com/Pages/ResponsePage.aspx?id=TMed1p1reUOCSt_owRbqYpGWPpPueOhKgz_4Mo1dioBURFVKRk1INVc0TTk4U0VXWkJBMUMyRDZPMi4u). Alternatively, you can also email me (manjil@saikia.in) or Parama Dutta (parama@gonitsora.com).
+
+Check the [FAQs](#faqs).
+
+All the talks will be over Zoom. To join a talk please use the following information: ***Meeting ID 926 1140 2828*** and the Passcode is ***1729***.
+
+## Next Talk
+
+to be announced
+
+## Past Talks
+
+*Click on the title to view the slides (if they are available).*
+
+1. **[What is the Probability that an automorphism fixes a group element?](/seminar/Parama_Dutta.pdf)** (*Parama Dutta*: 26 June 2020)
+2. **[Hypergeometric Series over Finite Fields](/seminar/Arjun_Singh_Chetry.pdf)** (*Arjun Singh Chetry*: 10 July 2020)
+3. **[Families of Congruences for Fractional Partition Functions Modulo Powers of Primes](/seminar/Hirakjyoti_Das.pdf)** (*Hirakjyoti Das*: 17 July 2020)
+4. **[Combinatorics of Stammering Tableaux](/seminar/Bishal_Deb.pdf)** (*Bishal Deb*: 31 July 2020)
+5. **[An approach to construct Mathematical model through system of ordinary differential equation](/seminar/Munmi_Saikia.pdf)** (*Munmi Saikia*: 07 August 2020)
+6. **[Some aspects of $\Gamma_2$ graph over some of the finite commutative rings](/seminar/Anurag_Baruah.pdf)** (*Anurag Baruah*: 14 August 2020)
+7. **[Application of the Rogers-Ramanujan continued fraction to partition functions](/seminar/Nilufar_Mana_Begum.pdf)** (*Nilufar Mana Begum*: 21 August 2020)
+8. **[Certain types of primitive and normal elements over finite fields](/seminar/Himangshu_Hazarika.pdf)** (*Himangshu Hazarika*: 28 August 2020)
+9. **[Hard and Easy Instances of L-Tromino Tilings](/seminar/Manjil_Saikia.pdf)** (*Manjil Saikia*: 04 September 2020)
+10. **[Extremal inverse eigenvalue problems for matrices with a prescribed graph](/seminar/Debashish_Sharma.pdf)** (*Debashish Sharma*: 18 September 2020)
+11. **[Solution Concepts in Transferable Utility Games](/seminar/Parishmita_Boruah.pdf)** (*Parishmita Baruah*: 02 October 2020)
+12. **[Distance Pareto eigenvalue of a graph](/seminar/Deepak_Sarma.pdf)** (*Deepak Sarma*: 09 October 2020)
+13. **[Congruences for $\ell$-Regular OverPartition for $\ell\in \{5, 6, 8\}$](/seminar/Chayanika_Boruah.pdf)** (*Chayanika Boruah*: 16 October 2020)
+14. **[Primes with restricted digits in arithmetic progressions](/seminar/Kunjakanan_Nath.pdf)** (*Kunjakanan Nath*: 30 October 2020)
+15. **[On Congruent Numbers and Their Generalizations over Number Fields](/seminar/Shamik_Das.pdf)** (*Shamik Das*: 06 November 2020)
+16. **Introduction to the mapping class groups** (*Soumya Dey*: 20 November 2020)
+17. **An introduction to combinatorial representation theory** (*Manjil Saikia*: 27 November 2020)
+18. **[$\mu$-Statistically Convergent Multiple Sequences in Probabilistic Normed Spaces](/seminar/Rupam_Haloi.pdf)** (*Rupam Haloi*: 04 December 2020)
+19. **[On the parity of Andrews' Singular overpartition function](/seminar/Ajit_Singh.pdf)** (*Ajit Singh*: 11 December 2020)
+20. **[The Stable Marriage Problem: Marriages made by algorithms, Guaranteed with stability!](/seminar/Souvik_Parial.pdf)** (*Souvik Parial*: 18 December 2020)
+21. **[Generalization of five $q$-series identities of Ramanujan and unexplored weighted partition identities](/seminar/Bibekananda_Maji.pdf)** (*Bibekananda Maji*: 08 January 2021)
+22. **Interconnected sequences: A generalization of Fibonacci sequence and some identities** (*Neeraj Kumar Paul*: 22 January 2021)
+23. **[Tessellation by Equilateral Polygons](/seminar/Anirban_Roy.pdf)** (*Anirban Roy*: 29 January 2021)
+24. **[Enumeration of matrices and splitting subspaces over finite fields](/seminar/Divya_Aggarwal.pdf)** (*Divya Aggarwal*: 12 February 2021)
+25. **[Voting Rules: An Introduction](/seminar/Ritu_Dutta.pdf)** (*Ritu Dutta*: 19 February 2021)
+26. **[Combinatorial proof of a beautiful Euler-type Identity](/seminar/Gauranga_Baishya.pdf)** (*Gauranga K. Baishya*: 26 February 2021)
+27. **[Gromov's compactness theorem for (pseudo)holomorphic curves](/seminar/Mohan.pdf)** (*Mohan Swaminathan*: 05 March 2021)
+28. **[Parametrized Families of Quadratic Fields with Large n-rank](/seminar/Azizul_Hoque.pdf)** (*Azizul Hoque*: 12 March 2021)
+29. **[Finite Groups with Exactly Two Conjugacy Class Size and the Analogous Study in Lie Algebra](/seminar/Tushar.pdf)** (*Tushar Kanta Naik*: 19 March 2021)
+30. **[Translation surfaces with poles and meromorphic differentials](/seminar/Gianluca.pdf)** (*Gianluca Faraco*: 26 March 2021)
+31. **On some properties of consecutive Lehmer numbers modulo a prime** (*Bidisha Roy*: 09 April 2021)
+32. **Commuting Tuples and Commuting Probability** (*Uday Bhaskar Sharma*: 30 April 2021)
+33. **[Orbits of zipping maps of surfaces of infinite type](/seminar/Soumya_Dey.pdf)** (*Soumya Dey*: 07 May 2021)
+34. **[Simultaneous divisibility and indivisibility properties of class numbers of quadratic fields](/seminar/Jaitra.pdf)** (*Jaitra Chattopadhyay*: 14 May 2021)
+35. **A Stroll Through Davenport Constant** (*Eshita Mazumdar*: 21 May 2021)
+36. **[A generalized modified Bessel function and explicit transformations of certain Lambert series](/seminar/Rahul.pdf)** (*Rahul Kumar*: 28 May 2021)
+37. **[Enumeration of direct animals with lattice paths](/seminar/Daniel.pdf)** (*Daniel Yaqubi*: 25 June 2021)
+
+
+
+
+
+## @;KKV!"T&:!$2,F!*fLj!'pTZ1B:!,!)*@m!+>kK!+c.N!&4I0!%\+o#RUQG!,b"$DuaeVDZFTTV0RsKj!BL2_!"*paDGY@fH3XHR!!<3&!"3=KF(96)E-,f4D?)Hs!$HdlGWPs,!([)\&Ao,@
+%:!<<32!ZM*urr<8`""XL3"%EH@"5j.\!!'V3!2L)r"CqK4!<<*%!<3$""6VB>6NIAk?jDJn!#Yg!$io/c!WY:f9jqO1$;tGF6pL`0#R19(3=Kp.D)i)B!!E94;ZI#5FED57B1?TOAPQZNC(UXM$8b!J'/^;Q&U-/GB`N60&97b1!&X`V+>5%!!!tLcWWE>($34'_)e"]@4TT9tFZ^U<$=j,r&3_:?An?!PF]8lhGS!P.%!6q,!WWCC@;og(,S(k`%$Mg,cj0Uk!WWK+!<<'#!9tF&2%C'jATn_P7s/N.,#D]\*%V:&!<=)r0b46a*)Zc!FT=c2!$"Z6!!4-[!$)%>*.4EfEs%(o!s0I!!$O'1!AOQV!$VsS!*^%J+Fn$E!<PL3=-?!&c`N"!]:;o!":jp$31A4#QP)0"u&+AlrlUi3=H/n#!W.2-m/Lh4W&E,(]sa?1BTt"!F.!^!,DQ7!rsbe(_mbu&cbQt"iO!%e0N2%U)p.Q%5,3&+!!3o2!<[T;?Hn74u!'<(.A`6!#B[)!JCOT(5r:p!X^%cOT6dkYW;bg
+%:"IoMn!Z&$@!!3qH!%S2O!!3qP!':c.e9(lK!rs*X%2S:3!"f24(@_A)!Z*:B49Y]r<+U;r6i])UAmoguF?t"jE`sLi!!bY('/;AI"8!WW@8Bl%Se!!>;+_]T%=)F"i_JcI_c4od?-1]T<3!!3-%!!4l?!!&&[1&s$/0E[:nkXoN)r05j!LDE0sR'C-;r3c+jg00)H&!!WE(kUZ*+5>XiSo_J@g8I(J?*iPr-#6d18Hnbm,!$XEc#r;P](+U^a!<=.J0Ju383CrBR!%BgkqZ$UK!+@ZZ&HDf!!37J9<^IE!!"(_"$3L83rr>Iu!!JB@!XA^$*q`qE!%.dSaE=@b
+%:56=Oa2uiq9$igGk1-\qB!Y[Qp!!<-63rf6^SNe(q2$#]<,67un!JI#6Z'D#"LNO(kN+q!!LNi!(o$q'/La2:L=/>2ZZ\Up7F,PN<"Y4"onup!_WVj7f`enmfH2`PlV$gNriZq9ihAYrrP=`PlV$gNri!V!RLcI4TL`J"TXSb?E-Y"!Or(14TL`J"TT$T$q_?Hoi8;5
+%:!%0j&+>EjeJ07]\(B=I8rr>Oh7Ql(u'#XbMRSZFp'$NEi!!!X[C_GNO!9+%[!YY;/%&$5m!#&(\1F!PA!rs!]?P=CZO9#>0=q`0(!&F]W'1;g5!<B>$&@KHN2'57GC3rs[.!)!KJ!!#Ff8O9E[!#)^A!#*"l"N(6])6O0ifZ&!M')g3?0VP![@^M,67un!ZUs3rrP=`Pl^c4"TXN`:Xg*h!0(&_jIrbk
+%:>urgQ4]b_cCe!!$[O#16dt"saYIK`Hf,!-eNM'eoW[:]Z7M2#o^(8HVPRMZmZp"V@(*!!^VPiW';i))HmLef;U4,P#Ch!s8T\^3?d`!!!On"%*4l)[?LWG6T,4I>%ZT!/mdO#hAFq8-&pK!-J8l"TrIG#S*7+!!`W,37mEN
+%:!d67%(W0D]'5j9D-G.5?!s8TU!s!+8!tCFrIg?IFAHlBKRg4WIFTBHm56t'd-61!Y!/1D'"TrUE"Zq/4rrW6+!<<529a4i_M$FXQ3sK>F2?j.K#JL^!)ZXe\"$cX/"$luB)VUAH#%9>(K`H5q7gX(k!Aam=!=+;YFTeO&?g1LToAk964!#%:o0fG[)!!!$afl-q/!,MXM!,)@E!+Z0A!+Gq*>.,I)
+%:!'h"o0nB<)W:`(Q5?J!fVuQhj!!*'!!!E939OW3XE^aL>_.e!YDes?4!!#=$AHHuSF9$Ic!$[:)!)!B7!'WF9!&4HX!(T!,Bg2f5BuU-8qZm1I"T\T&!WY^nTl^;8H4U&Vmfn1!]`J0kMa%;j!-gR8!)`%h!WYpt%fl&#If]TN_#s`q<@0CEN7h7tU8Ie)jJcI?*JH/1@^_#UU
+%:$9o/7#dFA_2Pkh#)[??F2$QR0_(us?!+e4q9*9nK@&$?s!!!6(9)nt^:h]n0!)fX\!X8X#1BV&?"(sOp!s"/W@J0XfX&0*%!!WEd3GAIX$oA1j!!>(Z=ZZ[p^MH%T7k"N?M?3_W!)3Uu2[TQc8H;No5l^oc>It"m#Yd/f70[Wm*Ap\W*/m;i0`XiJ!BgFH$Lp\B!HU#lt#`!BU<<$+:3c
+%:)[.qr!M[Q9[M#`;:!!``/:BCLr!]p\jh&J3b!<=0[s8UVOQA#$;#mW^C"9=eu"TYJ1(]XR9s$+u4X%`tU!/1CR!)4=3!/1E,!!"q`WiJGn9*4YEK`FOA)#sX\$5!7;l8Ju?"bcqF!(O6q!,ANehEhPL!$h5LLk37C
+%:!3og@!!!#a2us$[70#s^l33BOs8TW)!WZsp!(SWG?"sZjpLO=f$iIA'"_e06!f7.A-3aJMrrN0%0`acY#$NDSs*`WO1($eoK`GZa!WX>G!/1E,!!#@gBG)dO'1`f7[q,P!"U4rX"p%AR7KWVj/-\*@#6:7u$+1t1&;:,Qs+LFQ!,)@_3"/:jK`F^[=tB^T3\1=4K`D)Q=9(,Yn,J(AK`D)Q!^Rh,!/1E,!!!!T!`g4n!/1CQS^TVM
+%:!&sr[!8md0!/1CQ8=>
+%:9)q6X@0/q!5la1N!0[^^!'pSb!:aG_"A&ef"$lne!([(i$9J`.DZBd3!20Am!2'=a!1j1]!1X%Y!1EnUWerM>$p)+62K`^rJ94n0F9$#1G&BK#U]VYM.hNg6cT=0X"U4r+!!$^:#6757=/at2N+jt[AH2]4!2]kuEruE;"%N>W!&4H\^em/sAI515VZ81HV$m@&0`e$LQp5dl@tcge4Z^)5!%%sO(]j\)$)mnN2[09_P-$G>"+f!t
+%:s8E6'#:)DLE";pM3.h;n!X&KH!!%q=9,ms4/H>b`!!#Xl!!!$N!!#:b4;nb2R=p(l!%e37!!3-"7VQ[M@0-FM!&-&,9h]8BF8u>_?l!''!D.nE9iH.SBl7Q<('+GG9H"-A3)*.VD,1cE.f]TNEpQ"TUf/@q,gWChs2c"*6gsF%-J0/*0I_
+%:2@0TgE)0qXAN:%s!'23(AoD^,!%TRUTE"tg!23;c2?5uB;fa`"AcMh.!"+7Q;fHYjUc(+8Ai0Sh!3?0o6t$3`FC>/C!-\gR!22Xh6tLFLEbQYHE-+%:5X9.!,ldqK!22htAShEWASuSi5UoHKErmR\'sI\A7KH,qWgF)q<]Z2h*j#]/E)2[VSK!!'D,Z:AqRF`7=P!k866"oq,,B6A5WW_!9'!4YgJ@;Gp/Q$ois
+%:^gI1T!!'V2\56UUBKQV&,6.ac/jk.#"(hN5]E#Q0EcQ)B>lePY6UQN?!!'\4\5G0g@;]^A)c6`M2\,o+!!XR>9PJBU2Zbl?AcMid!Q4u36>QomDe!P_#XE!6Chs(O`;lT.Ec2d"@qB1<#ljtF!6%95F(o,@&N0ql%&(l(BW=kg/MX.F@JJ:@9`R@"F_u!s!9X=_KuL!!NAc!3Z5b3<2>G9`RHZ5la1Nec=>W3sYi;!4;f(("lXgeM0tb!8K:2V?"Ul!9c-;ffK:(BE^*j#QVnD!9X@656=1Qf38=-!4n&h3s4.9h(o&f0G1$@!
+%%EndAGDEmbeddedDoc
+%%BeginResource: procset Altsys_header 4 0
+userdict begin /AltsysDict 300 dict def end
+AltsysDict begin
+/bdf{bind def}bind def
+/xdf{exch def}bdf
+/defed{where{pop true}{false}ifelse}bdf
+/ndf{1 index where{pop pop pop}{dup xcheck{bind}if def}ifelse}bdf
+/d{setdash}bdf
+/h{closepath}bdf
+/H{}bdf
+/J{setlinecap}bdf
+/j{setlinejoin}bdf
+/M{setmiterlimit}bdf
+/n{newpath}bdf
+/N{newpath}bdf
+/q{gsave}bdf
+/Q{grestore}bdf
+/w{setlinewidth}bdf
+/Xic{matrix invertmatrix concat}bdf
+/Xq{matrix currentmatrix mark}bdf
+/XQ{cleartomark setmatrix}bdf
+/sepdef{
+dup where not
+{
+AltsysSepDict
+}
+if
+3 1 roll exch put
+}bdf
+/st{settransfer}bdf
+/colorimage defed /_rci xdf
+/cntr 0 def
+/readbinarystring{
+/cntr 0 def
+2 copy readstring
+{
+{
+dup
+(\034) search
+{
+length exch pop exch
+dup length 0 ne
+{
+dup dup 0 get 32 sub 0 exch put
+/cntr cntr 1 add def
+}
+{
+pop 1 string dup
+0 6 index read pop 32 sub put
+}ifelse
+3 copy
+putinterval pop
+1 add
+1 index length 1 sub
+1 index sub
+dup 0 le {pop pop exit}if
+getinterval
+}
+{
+pop exit
+} ifelse
+} loop
+}if
+cntr 0 gt
+{
+pop 2 copy
+dup length cntr sub cntr getinterval
+readbinarystring
+} if
+pop exch pop
+} bdf
+/_NXLevel2 defed {
+_NXLevel2 not {
+/colorimage where {
+userdict eq {
+/_rci false def
+} if
+} if
+} if
+} if
+/md defed{
+md type /dicttype eq {
+/colorimage where {
+md eq {
+/_rci false def
+}if
+}if
+/settransfer where {
+md eq {
+/st systemdict /settransfer get def
+}if
+}if
+}if
+}if
+/setstrokeadjust defed
+{
+true setstrokeadjust
+/C{curveto}bdf
+/L{lineto}bdf
+/m{moveto}bdf
+}
+{
+/dr{transform .25 sub round .25 add
+exch .25 sub round .25 add exch itransform}bdf
+/C{dr curveto}bdf
+/L{dr lineto}bdf
+/m{dr moveto}bdf
+/setstrokeadjust{pop}bdf
+}ifelse
+/privrectpath {
+4 -2 roll m
+dtransform round exch round exch idtransform
+2 copy 0 lt exch 0 lt xor
+{dup 0 exch rlineto exch 0 rlineto neg 0 exch rlineto}
+{exch dup 0 rlineto exch 0 exch rlineto neg 0 rlineto}
+ifelse
+closepath
+}bdf
+/rectclip{newpath privrectpath clip newpath}def
+/rectfill{gsave newpath privrectpath fill grestore}def
+/rectstroke{gsave newpath privrectpath stroke grestore}def
+/_fonthacksave false def
+/currentpacking defed
+{
+/_bfh {/_fonthacksave currentpacking def false setpacking} bdf
+/_efh {_fonthacksave setpacking} bdf
+}
+{
+/_bfh {} bdf
+/_efh {} bdf
+}ifelse
+/packedarray{array astore readonly}ndf
+/`
+{
+false setoverprint
+/-save0- save def
+5 index concat
+pop
+storerect left bottom width height rectclip
+pop
+/MMdict_count countdictstack def
+/MMop_count count 1 sub def
+userdict begin
+/showpage {} def
+0 setgray 0 setlinecap 1 setlinewidth
+0 setlinejoin 10 setmiterlimit [] 0 setdash newpath
+} bdf
+/currentpacking defed{true setpacking}if
+/min{2 copy gt{exch}if pop}bdf
+/max{2 copy lt{exch}if pop}bdf
+/xformfont { currentfont exch makefont setfont } bdf
+/fhnumcolors 1
+statusdict begin
+/processcolors defed
+{
+pop processcolors
+}
+{
+/deviceinfo defed {
+deviceinfo /Colors known {
+pop deviceinfo /Colors get
+} if
+} if
+} ifelse
+end
+def
+% pix = x^2 + y^2
+/printerRes
+gsave
+matrix defaultmatrix setmatrix
+72 72 dtransform
+abs exch abs
+max
+grestore
+def
+/graycalcs
+[
+{Angle Frequency}
+{GrayAngle GrayFrequency}
+{0 Width Height matrix defaultmatrix idtransform
+dup mul exch dup mul add sqrt 72 exch div}
+{0 GrayWidth GrayHeight matrix defaultmatrix idtransform
+dup mul exch dup mul add sqrt 72 exch div}
+] def
+/calcgraysteps {
+forcemaxsteps
+{
+maxsteps
+}
+{
+/currenthalftone defed
+{currenthalftone /dicttype eq}{false}ifelse
+{
+currenthalftone begin
+HalftoneType 4 le
+{graycalcs HalftoneType 1 sub get exec}
+{
+HalftoneType 5 eq
+{
+Default begin
+{graycalcs HalftoneType 1 sub get exec}
+end
+}
+{0 60}
+ifelse
+}
+ifelse
+end
+}
+{
+currentscreen pop exch
+}
+ifelse
+printerRes 300 max exch div exch
+2 copy
+sin mul round dup mul
+3 1 roll
+cos mul round dup mul
+add 1 add
+dup maxsteps gt {pop maxsteps} if
+dup minsteps lt {pop minsteps} if
+}
+ifelse
+} bdf
+/nextrelease defed {
+/languagelevel defed not {
+/framebuffer defed {
+0 40 string framebuffer 9 1 roll 8 {pop} repeat
+dup 516 eq exch 520 eq or
+{
+/fhnumcolors 3 def
+/currentscreen {60 0 {pop pop 1}}bdf
+/calcgraysteps {maxsteps} bdf
+}if
+}if
+}if
+}if
+fhnumcolors 1 ne {
+/calcgraysteps {maxsteps} bdf
+} if
+/currentpagedevice defed {
+currentpagedevice /PreRenderingEnhance known
+{
+currentpagedevice /PreRenderingEnhance get
+{
+/calcgraysteps
+{
+forcemaxsteps
+{maxsteps}
+{256 maxsteps min}
+ifelse
+} def
+} if
+} if
+} if
+/gradfrequency 144 def
+printerRes 1000 lt {
+/gradfrequency 72 def
+} if
+/adjnumsteps {
+dup dtransform abs exch abs max
+printerRes div
+gradfrequency mul
+round
+5 max
+min
+}bdf
+/goodsep {
+spots exch get 4 get dup sepname eq exch (_vc_Registration) eq or
+}bdf
+/BeginGradation defed
+{/bb{BeginGradation}bdf}
+{/bb{}bdf}
+ifelse
+/EndGradation defed
+{/eb{EndGradation}bdf}
+{/eb{}bdf}
+ifelse
+/bottom -0 def
+/delta -0 def
+/frac -0 def
+/height -0 def
+/left -0 def
+/numsteps1 -0 def
+/radius -0 def
+/right -0 def
+/top -0 def
+/width -0 def
+/xt -0 def
+/yt -0 def
+/df currentflat def
+/tempstr 1 string def
+/clipflatness currentflat def
+/inverted?
+0 currenttransfer exec .5 ge def
+/tc1 [0 0 0 1] def
+/tc2 [0 0 0 1] def
+/storerect{/top xdf /right xdf /bottom xdf /left xdf
+/width right left sub def /height top bottom sub def}bdf
+/concatprocs{
+systemdict /packedarray known
+{dup type /packedarraytype eq 2 index type /packedarraytype eq or}{false}ifelse
+{
+/proc2 exch cvlit def /proc1 exch cvlit def
+proc1 aload pop proc2 aload pop
+proc1 length proc2 length add packedarray cvx
+}
+{
+/proc2 exch cvlit def /proc1 exch cvlit def
+/newproc proc1 length proc2 length add array def
+newproc 0 proc1 putinterval newproc proc1 length proc2 putinterval
+newproc cvx
+}ifelse
+}bdf
+/i{dup 0 eq
+{pop df dup}
+{dup} ifelse
+/clipflatness xdf setflat
+}bdf
+version cvr 38.0 le
+{/setrgbcolor{
+currenttransfer exec 3 1 roll
+currenttransfer exec 3 1 roll
+currenttransfer exec 3 1 roll
+setrgbcolor}bdf}if
+/vms {/vmsv save def} bdf
+/vmr {vmsv restore} bdf
+/vmrs{vmsv restore /vmsv save def}bdf
+/eomode{
+{/filler /eofill load def /clipper /eoclip load def}
+{/filler /fill load def /clipper /clip load def}
+ifelse
+}bdf
+/normtaper{}bdf
+/logtaper{9 mul 1 add log}bdf
+/CD{
+/NF exch def
+{
+exch dup
+/FID ne 1 index/UniqueID ne and
+{exch NF 3 1 roll put}
+{pop pop}
+ifelse
+}forall
+NF
+}bdf
+/MN{
+1 index length
+/Len exch def
+dup length Len add
+string dup
+Len
+4 -1 roll
+putinterval
+dup
+0
+4 -1 roll
+putinterval
+}bdf
+/RC{4 -1 roll /ourvec xdf 256 string cvs(|______)anchorsearch
+{1 index MN cvn/NewN exch def cvn
+findfont dup maxlength dict CD dup/FontName NewN put dup
+/Encoding ourvec put NewN exch definefont pop}{pop}ifelse}bdf
+/RF{
+dup
+FontDirectory exch
+known
+{pop 3 -1 roll pop}
+{RC}
+ifelse
+}bdf
+/FF{dup 256 string cvs(|______)exch MN cvn dup FontDirectory exch known
+{exch pop findfont 3 -1 roll pop}
+{pop dup findfont dup maxlength dict CD dup dup
+/Encoding exch /Encoding get 256 array copy 7 -1 roll
+{3 -1 roll dup 4 -2 roll put}forall put definefont}
+ifelse}bdf
+/RCJ{4 -1 roll
+/ourvec xdf
+256 string cvs
+(|______) anchorsearch
+{pop
+cvn
+dup FDFJ
+exch
+1 index
+eq
+{
+_bfh findfont _efh
+dup
+maxlength dict
+CD
+dup
+/FontName
+3 index
+put
+dup
+/Encoding ourvec put
+1 index
+exch
+definefont
+pop
+}
+{exch pop}
+ifelse
+}
+{pop}
+ifelse
+}bdf
+/RFJ{
+dup
+FontDirectory exch
+known
+{pop 3 -1 roll pop}
+{RCJ}
+ifelse
+}bdf
+/hasfont
+{
+/resourcestatus where
+{
+pop
+/Font resourcestatus
+{
+pop pop true
+}
+{
+false
+}
+ifelse
+}
+{
+dup FontDirectory exch known
+{pop true}
+{
+256 string
+cvs
+(fonts/) exch MN
+status
+{pop pop pop pop true}
+{false}
+ifelse
+}
+ifelse
+}
+ifelse
+}bdf
+/FDFJ
+{
+dup
+hasfont
+not
+{
+pop
+/Ryumin-Light-83pv-RKSJ-H
+hasfont
+{
+/Ryumin-Light-83pv-RKSJ-H
+}
+{
+/Courier
+}
+ifelse
+}
+if
+}bdf
+/FFJ{
+_bfh
+dup
+256 string cvs
+(|______)exch MN
+cvn
+dup
+FontDirectory
+exch known
+{
+exch
+pop
+findfont
+3 -1 roll
+pop
+}
+{
+pop
+FDFJ
+dup findfont
+dup maxlength dict
+CD
+dup dup
+/Encoding exch
+/Encoding get
+256 array copy
+7 -1 roll
+{
+3 -1 roll
+dup
+4 -2 roll
+put
+}forall
+put
+definefont
+}
+ifelse
+_efh
+}bdf
+/GS {
+dup
+hasfont
+{
+FFJ
+curtextmtx makefont setfont
+exch
+5 1 roll
+ts
+pop
+} {
+pop pop
+ts
+} ifelse
+} bdf
+/RCK{4 -1 roll
+/ourvec xdf
+256 string cvs
+(|______) anchorsearch
+{pop
+cvn
+dup FDFK
+exch
+1 index
+eq
+{
+_bfh findfont _efh
+dup
+maxlength dict
+CD
+dup
+/FontName
+3 index
+put
+dup
+/Encoding ourvec put
+1 index
+exch
+definefont
+pop
+}
+{exch pop}
+ifelse
+}
+{pop}
+ifelse
+}bdf
+/RFK{
+dup
+FontDirectory exch
+known
+{pop 3 -1 roll pop}
+{RCK}
+ifelse
+}bdf
+/hasfont
+{
+/resourcestatus where
+{
+pop
+/Font resourcestatus
+{
+pop pop true
+}
+{
+false
+}
+ifelse
+}
+{
+dup FontDirectory exch known
+{pop true}
+{
+256 string
+cvs
+(fonts/) exch MN
+status
+{pop pop pop pop true}
+{false}
+ifelse
+}
+ifelse
+}
+ifelse
+}bdf
+/FDFK
+{
+dup
+hasfont
+not
+{
+pop
+/JCsm
+hasfont
+{
+/JCsm
+}
+{
+/Courier
+}
+ifelse
+}
+if
+}bdf
+/FFK{
+_bfh
+dup
+256 string cvs
+(|______)exch MN
+cvn
+dup
+FontDirectory
+exch known
+{
+exch
+pop
+findfont
+3 -1 roll
+pop
+}
+{
+pop
+FDFK
+dup findfont
+dup maxlength dict
+CD
+dup dup
+/Encoding exch
+/Encoding get
+256 array copy
+7 -1 roll
+{
+3 -1 roll
+dup
+4 -2 roll
+put
+}forall
+put
+definefont
+}
+ifelse
+_efh
+}bdf
+/RCTC{4 -1 roll
+/ourvec xdf
+256 string cvs
+(|______) anchorsearch
+{pop
+cvn
+dup FDFTC
+exch
+1 index
+eq
+{
+_bfh findfont _efh
+dup
+maxlength dict
+CD
+dup
+/FontName
+3 index
+put
+dup
+/Encoding ourvec put
+1 index
+exch
+definefont
+pop
+}
+{exch pop}
+ifelse
+}
+{pop}
+ifelse
+}bdf
+/RFTC{
+dup
+FontDirectory exch
+known
+{pop 3 -1 roll pop}
+{RCTC}
+ifelse
+}bdf
+/FDFTC
+{
+dup
+hasfont
+not
+{
+pop
+/DFMing-Lt-HK-BF
+hasfont
+{
+/DFMing-Lt-HK-BF
+}
+{
+/Courier
+}
+ifelse
+}
+if
+}bdf
+/FFTC{
+_bfh
+dup
+256 string cvs
+(|______)exch MN
+cvn
+dup
+FontDirectory
+exch known
+{
+exch
+pop
+findfont
+3 -1 roll
+pop
+}
+{
+pop
+FDFTC
+dup findfont
+dup maxlength dict
+CD
+dup dup
+/Encoding exch
+/Encoding get
+256 array copy
+7 -1 roll
+{
+3 -1 roll
+dup
+4 -2 roll
+put
+}forall
+put
+definefont
+}
+ifelse
+_efh
+}bdf
+/fps{
+currentflat
+exch
+dup 0 le{pop 1}if
+{
+dup setflat 3 index stopped
+{1.3 mul dup 3 index gt{pop setflat pop pop stop}if}
+{exit}
+ifelse
+}loop
+pop setflat pop pop
+}bdf
+/fp{100 currentflat fps}bdf
+/clipper{clip}bdf
+/W{/clipper load 100 clipflatness dup setflat fps}bdf
+/AVec 256 array def
+AVec 0 /Helvetica findfont
+/Encoding get 0 256 getinterval putinterval
+/ANSIPatch[
+16#0/grave 16#1/acute 16#2/circumflex 16#3/tilde 16#4/macron 16#5/breve
+16#6/dotaccent 16#7/dieresis 16#8/ring 16#9/cedilla 16#A/hungarumlaut
+16#B/ogonek 16#C/caron 16#D/dotlessi 16#27/quotesingle 16#60/grave
+16#7C/bar 16#82/quotesinglbase 16#83/florin 16#84/quotedblbase 16#85
+/ellipsis 16#86/dagger 16#87/daggerdbl 16#89/perthousand 16#8A/Scaron
+16#8B/guilsinglleft 16#8C/OE 16#91/quoteleft 16#92/quoteright 16#93
+/quotedblleft 16#94/quotedblright 16#95/bullet 16#96/endash 16#97/emdash
+16#99/trademark 16#9A/scaron 16#9B/guilsinglright 16#9C/oe
+16#9F/Ydieresis 16#A0/space 16#A4/currency 16#A6/brokenbar
+16#A7/section 16#A8/dieresis 16#A9/copyright 16#AA/ordfeminine 16#AB/guillemotleft
+16#AC/logicalnot 16#AD/hyphen 16#AE/registered 16#AF/macron 16#B0/degree
+16#B1/plusminus 16#B2/twosuperior 16#B3/threesuperior 16#B4/acute 16#B5/mu
+16#B6/paragraph 16#B7/periodcentered 16#B8/cedilla 16#B9/onesuperior
+16#BA/ordmasculine 16#BB/guillemotright 16#BC/onequarter 16#BD/onehalf
+16#BE/threequarters 16#BF/questiondown 16#C0/Agrave 16#C1/Aacute 16#C2/Acircumflex
+16#C3/Atilde 16#C4/Adieresis 16#C5/Aring 16#C6/AE 16#C7/Ccedilla 16#C8/Egrave
+16#C9/Eacute 16#CA/Ecircumflex 16#CB/Edieresis 16#CC/Igrave 16#CD/Iacute
+16#CE/Icircumflex 16#CF/Idieresis 16#D0/Eth 16#D1/Ntilde 16#D2/Ograve
+16#D3/Oacute 16#D4/Ocircumflex 16#D5/Otilde 16#D6/Odieresis 16#D7/multiply
+16#D8/Oslash 16#D9/Ugrave 16#DA/Uacute 16#DB/Ucircumflex 16#DC/Udieresis
+16#DD/Yacute 16#DE/Thorn 16#DF/germandbls 16#E0/agrave 16#E1/aacute
+16#E2/acircumflex 16#E3/atilde 16#E4/adieresis 16#E5/aring 16#E6/ae
+16#E7/ccedilla 16#E8/egrave 16#E9/eacute 16#EA/ecircumflex 16#EB/edieresis
+16#EC/igrave 16#ED/iacute 16#EE/icircumflex 16#EF/idieresis 16#F0/eth
+16#F1/ntilde 16#F2/ograve 16#F3/oacute 16#F4/ocircumflex 16#F5/otilde
+16#F6/odieresis 16#F7/divide 16#F8/oslash 16#F9/ugrave 16#FA/uacute
+16#FB/ucircumflex 16#FC/udieresis 16#FD/yacute 16#FE/thorn 16#FF/ydieresis
+] def
+127 1 159 { AVec exch/bullet put } for
+ANSIPatch aload pop ANSIPatch length 2 idiv{AVec 3 1 roll put}repeat
+/DoPatch { dup /CharStrings known
+{ setfont
+0 1 255 { dup
+currentfont
+/Encoding get
+exch get
+currentfont /CharStrings get
+exch known
+{pop} {currentfont /Encoding get exch /bullet put} ifelse
+} for
+} {pop} ifelse
+} def
+/findheaderfont {
+AVec 256 array copy
+/FHT /|______Helvetica dup RF findfont def
+FHT DoPatch
+FHT
+} def
+end %. AltsysDict
+%%EndResource
+%%EndProlog
+%%BeginSetup
+AltsysDict begin
+_bfh
+%%IncludeResource: font Gen_Arial
+/Gen_Arial findfont
+/Encoding get StandardEncoding eq
+{
+AVec 256 array copy
+/f0 /|______Gen_Arial dup RF findfont def
+f0 DoPatch
+} {
+/f0 /Gen_Arial findfont def
+} ifelse
+_efh
+end %. AltsysDict
+%%EndSetup
+AltsysDict begin
+/onlyk4{false}ndf
+/ccmyk{dup 5 -1 roll sub 0 max exch}ndf
+/cmyk2gray{
+4 -1 roll 0.3 mul 4 -1 roll 0.59 mul 4 -1 roll 0.11 mul
+add add add 1 min neg 1 add
+}bdf
+/setcmykcolor{1 exch sub ccmyk ccmyk ccmyk pop setrgbcolor}ndf
+/maxcolor {
+max max max
+} ndf
+/maxspot {
+pop
+} ndf
+/setcmykcoloroverprint{4{dup -1 eq{pop 0}if 4 1 roll}repeat setcmykcolor}ndf
+/findcmykcustomcolor{5 packedarray}ndf
+/setcustomcolor{exch aload pop pop 4{4 index mul 4 1 roll}repeat setcmykcolor pop}ndf
+/setseparationgray{setgray}ndf
+/setoverprint{pop}ndf
+/currentoverprint false ndf
+/cmykbufs2gray{
+0 1 2 index length 1 sub
+{
+4 index 1 index get 0.3 mul
+4 index 2 index get 0.59 mul
+4 index 3 index get 0.11 mul
+4 index 4 index get
+add add add cvi 255 min
+255 exch sub
+2 index 3 1 roll put
+}for
+4 1 roll pop pop pop
+}bdf
+/colorimage{
+pop pop
+[
+5 -1 roll/exec cvx
+6 -1 roll/exec cvx
+7 -1 roll/exec cvx
+8 -1 roll/exec cvx
+/cmykbufs2gray cvx
+]cvx
+image
+}
+%. version 47.1 on Linotronic of Postscript defines colorimage incorrectly (rgb model only)
+version cvr 47.1 le
+statusdict /product get (Lino) anchorsearch{pop pop true}{pop false}ifelse
+and{userdict begin bdf end}{ndf}ifelse
+fhnumcolors 1 ne {/yt save def} if
+/customcolorimage{
+aload pop
+(_vc_Registration) eq
+{
+pop pop pop pop separationimage
+}
+{
+/ik xdf /iy xdf /im xdf /ic xdf
+ic im iy ik cmyk2gray /xt xdf
+currenttransfer
+{dup 1.0 exch sub xt mul add}concatprocs
+st
+image
+}
+ifelse
+}ndf
+fhnumcolors 1 ne {yt restore} if
+fhnumcolors 3 ne {/yt save def} if
+/customcolorimage{
+aload pop
+(_vc_Registration) eq
+{
+pop pop pop pop separationimage
+}
+{
+/ik xdf /iy xdf /im xdf /ic xdf
+1.0 dup ic ik add min sub
+1.0 dup im ik add min sub
+1.0 dup iy ik add min sub
+/ic xdf /iy xdf /im xdf
+currentcolortransfer
+4 1 roll
+{dup 1.0 exch sub ic mul add}concatprocs 4 1 roll
+{dup 1.0 exch sub iy mul add}concatprocs 4 1 roll
+{dup 1.0 exch sub im mul add}concatprocs 4 1 roll
+setcolortransfer
+{/dummy xdf dummy}concatprocs{dummy}{dummy}true 3 colorimage
+}
+ifelse
+}ndf
+fhnumcolors 3 ne {yt restore} if
+fhnumcolors 4 ne {/yt save def} if
+/customcolorimage{
+aload pop
+(_vc_Registration) eq
+{
+pop pop pop pop separationimage
+}
+{
+/ik xdf /iy xdf /im xdf /ic xdf
+currentcolortransfer
+{1.0 exch sub ik mul ik sub 1 add}concatprocs 4 1 roll
+{1.0 exch sub iy mul iy sub 1 add}concatprocs 4 1 roll
+{1.0 exch sub im mul im sub 1 add}concatprocs 4 1 roll
+{1.0 exch sub ic mul ic sub 1 add}concatprocs 4 1 roll
+setcolortransfer
+{/dummy xdf dummy}concatprocs{dummy}{dummy}{dummy}
+true 4 colorimage
+}
+ifelse
+}ndf
+fhnumcolors 4 ne {yt restore} if
+/separationimage{image}ndf
+/spotascmyk false ndf
+/newcmykcustomcolor{6 packedarray}ndf
+/inkoverprint false ndf
+/setinkoverprint{pop}ndf
+/setspotcolor {
+spots exch get
+dup 4 get (_vc_Registration) eq
+{pop 1 exch sub setseparationgray}
+{0 5 getinterval exch setcustomcolor}
+ifelse
+}ndf
+/currentcolortransfer{currenttransfer dup dup dup}ndf
+/setcolortransfer{st pop pop pop}ndf
+/fas{}ndf
+/sas{}ndf
+/fhsetspreadsize{pop}ndf
+/filler{fill}bdf
+/F{gsave {filler}fp grestore}bdf
+/f{closepath F}bdf
+/S{gsave {stroke}fp grestore}bdf
+/s{closepath S}bdf
+userdict /islevel2
+systemdict /languagelevel known dup
+{
+pop systemdict /languagelevel get 2 ge
+} if
+put
+islevel2 not
+{
+/currentcmykcolor
+{
+0 0 0 1 currentgray sub
+} ndf
+} if
+/tc
+{
+gsave
+setcmykcolor currentcmykcolor
+grestore
+} bind def
+/testCMYKColorThrough
+{
+tc add add add 0 ne
+} bind def
+/fhiscomposite where not {
+userdict /fhiscomposite
+islevel2
+{
+gsave 1 1 1 1 setcmykcolor currentcmykcolor grestore
+add add add 4 eq
+}
+{
+1 0 0 0 testCMYKColorThrough
+0 1 0 0 testCMYKColorThrough
+0 0 1 0 testCMYKColorThrough
+0 0 0 1 testCMYKColorThrough
+and and and
+} ifelse
+put
+}
+{ pop }
+ifelse
+/bc4 [0 0 0 0] def
+/_lfp4 {
+1 pop
+/yt xdf
+/xt xdf
+/ang xdf
+storerect
+/taperfcn xdf
+/k2 xdf /y2 xdf /m2 xdf /c2 xdf
+/k1 xdf /y1 xdf /m1 xdf /c1 xdf
+c1 c2 sub abs
+m1 m2 sub abs
+y1 y2 sub abs
+k1 k2 sub abs
+maxcolor
+calcgraysteps mul abs round
+height abs adjnumsteps
+dup 1 lt {pop 1} if
+1 sub /numsteps1 xdf
+currentflat mark
+currentflat clipflatness
+/delta top bottom sub numsteps1 1 add div def
+/right right left sub def
+/botsv top delta sub def
+{
+{
+W
+xt yt translate
+ang rotate
+xt neg yt neg translate
+dup setflat
+/bottom botsv def
+0 1 numsteps1
+{
+numsteps1 dup 0 eq {pop pop 0.5} {div} ifelse
+taperfcn /frac xdf
+bc4 0 c2 c1 sub frac mul c1 add put
+bc4 1 m2 m1 sub frac mul m1 add put
+bc4 2 y2 y1 sub frac mul y1 add put
+bc4 3 k2 k1 sub frac mul k1 add put
+bc4 vc
+1 index setflat
+{
+mark {newpath left bottom right delta rectfill}stopped
+{cleartomark exch 1.3 mul dup setflat exch 2 copy gt{stop}if}
+{cleartomark exit}ifelse
+}loop
+/bottom bottom delta sub def
+}for
+}
+gsave stopped grestore
+{exch pop 2 index exch 1.3 mul dup 100 gt{cleartomark setflat stop}if}
+{exit}ifelse
+}loop
+cleartomark setflat
+}bdf
+/bcs [0 0] def
+/_lfs4 {
+/yt xdf
+/xt xdf
+/ang xdf
+storerect
+/taperfcn xdf
+/tint2 xdf
+/tint1 xdf
+bcs exch 1 exch put
+tint1 tint2 sub abs
+bcs 1 get maxspot
+calcgraysteps mul abs round
+height abs adjnumsteps
+dup 2 lt {pop 2} if
+1 sub /numsteps1 xdf
+currentflat mark
+currentflat clipflatness
+/delta top bottom sub numsteps1 1 add div def
+/right right left sub def
+/botsv top delta sub def
+{
+{
+W
+xt yt translate
+ang rotate
+xt neg yt neg translate
+dup setflat
+/bottom botsv def
+0 1 numsteps1
+{
+numsteps1 div taperfcn /frac xdf
+bcs 0
+1.0 tint2 tint1 sub frac mul tint1 add sub
+put bcs vc
+1 index setflat
+{
+mark {newpath left bottom right delta rectfill}stopped
+{cleartomark exch 1.3 mul dup setflat exch 2 copy gt{stop}if}
+{cleartomark exit}ifelse
+}loop
+/bottom bottom delta sub def
+}for
+}
+gsave stopped grestore
+{exch pop 2 index exch 1.3 mul dup 100 gt{cleartomark setflat stop}if}
+{exit}ifelse
+}loop
+cleartomark setflat
+}bdf
+/_rfs6 {
+/tint2 xdf
+/tint1 xdf
+bcs exch 1 exch put
+/inrad xdf
+/radius xdf
+/yt xdf
+/xt xdf
+tint1 tint2 sub abs
+bcs 1 get maxspot
+calcgraysteps mul abs round
+radius inrad sub abs
+adjnumsteps
+dup 1 lt {pop 1} if
+1 sub /numsteps1 xdf
+radius inrad sub numsteps1 dup 0 eq {pop} {div} ifelse
+2 div /halfstep xdf
+currentflat mark
+currentflat clipflatness
+{
+{
+dup setflat
+W
+0 1 numsteps1
+{
+dup /radindex xdf
+numsteps1 dup 0 eq {pop pop 0.5} {div} ifelse
+/frac xdf
+bcs 0
+tint2 tint1 sub frac mul tint1 add
+put bcs vc
+1 index setflat
+{
+newpath mark
+xt yt radius inrad sub 1 frac sub mul halfstep add inrad add 0 360
+{ arc
+radindex numsteps1 ne
+inrad 0 gt or
+{
+xt yt
+numsteps1 0 eq
+{ inrad }
+{
+radindex 1 add numsteps1 div 1 exch sub
+radius inrad sub mul halfstep add inrad add
+}ifelse
+dup xt add yt moveto
+360 0 arcn
+} if
+fill
+}stopped
+{cleartomark exch 1.3 mul dup setflat exch 2 copy gt{stop}if}
+{cleartomark exit}ifelse
+}loop
+}for
+}
+gsave stopped grestore
+{exch pop 2 index exch 1.3 mul dup 100 gt{cleartomark setflat stop}if}
+{exit}ifelse
+}loop
+cleartomark setflat
+}bdf
+/_rfp6 {
+1 pop
+/k2 xdf /y2 xdf /m2 xdf /c2 xdf
+/k1 xdf /y1 xdf /m1 xdf /c1 xdf
+/inrad xdf
+/radius xdf
+/yt xdf
+/xt xdf
+c1 c2 sub abs
+m1 m2 sub abs
+y1 y2 sub abs
+k1 k2 sub abs
+maxcolor
+calcgraysteps mul abs round
+radius inrad sub abs
+adjnumsteps
+dup 1 lt {pop 1} if
+1 sub /numsteps1 xdf
+radius inrad sub numsteps1 dup 0 eq {pop} {div} ifelse
+2 div /halfstep xdf
+currentflat mark
+currentflat clipflatness
+{
+{
+dup setflat
+W
+0 1 numsteps1
+{
+dup /radindex xdf
+numsteps1 dup 0 eq {pop pop 0.5} {div} ifelse
+/frac xdf
+bc4 0 c2 c1 sub frac mul c1 add put
+bc4 1 m2 m1 sub frac mul m1 add put
+bc4 2 y2 y1 sub frac mul y1 add put
+bc4 3 k2 k1 sub frac mul k1 add put
+bc4 vc
+1 index setflat
+{
+newpath mark
+xt yt radius inrad sub 1 frac sub mul halfstep add inrad add 0 360
+{ arc
+radindex numsteps1 ne
+inrad 0 gt or
+{
+xt yt
+numsteps1 0 eq
+{ inrad }
+{
+radindex 1 add numsteps1 div 1 exch sub
+radius inrad sub mul halfstep add inrad add
+}ifelse
+dup xt add yt moveto
+360 0 arcn
+} if
+fill
+}stopped
+{cleartomark exch 1.3 mul dup setflat exch 2 copy gt{stop}if}
+{cleartomark exit}ifelse
+}loop
+}for
+}
+gsave stopped grestore
+{exch pop 2 index exch 1.3 mul dup 100 gt{cleartomark setflat stop}if}
+{exit}ifelse
+}loop
+cleartomark setflat
+}bdf
+/lfp4{_lfp4}ndf
+/lfs4{_lfs4}ndf
+/rfs6{_rfs6}ndf
+/rfp6{_rfp6}ndf
+/cvc [0 0 0 1] def
+/vc{
+AltsysDict /cvc 2 index put
+aload length dup 4 eq
+{pop dup -1 eq{pop setrgbcolor}{setcmykcolor}ifelse}
+{6 eq {sethexcolor} {setspotcolor} ifelse }
+ifelse
+}bdf
+0 setseparationgray
+/imgr {1728 1548 1828 1648 } def
+/bleed 0 def
+/clpr {1728 1548 1828 1648 } def
+/xs 1 def
+/ys 1 def
+/botx 0 def
+/overlap 0 def
+/wdist 18 def
+0 2 mul fhsetspreadsize
+0 0 ne {/df 0 def /clipflatness 0 def} if
+/maxsteps 256 def
+/forcemaxsteps false def
+/minsteps 0 def
+userdict begin /AGDOrigMtx matrix currentmatrix def end
+vms
+-1737 -1548 translate
+/currentpacking defed{false setpacking}if
+/spots[
+1 0 0 0 (Process Cyan) false newcmykcustomcolor
+0 1 0 0 (Process Magenta) false newcmykcustomcolor
+0 0 1 0 (Process Yellow) false newcmykcustomcolor
+0 0 0 1 (Process Black) false newcmykcustomcolor
+]def
+/textopf false def
+/curtextmtx{}def
+/otw .25 def
+/msf{dup/curtextmtx xdf makefont setfont}bdf
+/makesetfont/msf load def
+/curtextheight{.707104 .707104 curtextmtx dtransform
+dup mul exch dup mul add sqrt}bdf
+/ta2{
+tempstr 2 index gsave exec grestore
+cwidth cheight rmoveto
+4 index eq{5 index 5 index rmoveto}if
+2 index 2 index rmoveto
+}bdf
+/ta{exch systemdict/cshow known
+{{/cheight xdf/cwidth xdf tempstr 0 2 index put ta2}exch cshow}
+{{tempstr 0 2 index put tempstr stringwidth/cheight xdf/cwidth xdf ta2}forall}
+ifelse 6{pop}repeat}bdf
+/sts{/textopf currentoverprint def vc setoverprint
+/ts{awidthshow}def exec textopf setoverprint}bdf
+/stol{/xt currentlinewidth def
+setlinewidth vc newpath
+/ts{{false charpath stroke}ta}def exec
+xt setlinewidth}bdf
+/strk{/textopf currentoverprint def vc setoverprint
+/ts{{false charpath stroke}ta}def exec
+textopf setoverprint
+}bdf
+n
+[] 0 d
+3.863708 M
+1 w
+0 j
+0 J
+false setoverprint
+0 i
+false eomode
+[0 0 0 1]vc
+vms
+1738.0592 1638.284 m
+1754.4024 1638.284 L
+1754.4024 1628.7395 L
+1738.0592 1628.7395 L
+1738.0592 1638.284 L
+s
+n
+1754.574 1633.2012 m
+1793.8876 1633.2012 L
+S
+n
+1793.716 1639.4852 m
+1809.8876 1639.4852 L
+1809.8876 1628.2247 L
+1793.716 1628.2247 L
+1793.716 1639.4852 L
+s
+n
+1804.5679 1628.0531 m
+1804.5679 1574.1124 L
+S
+n
+1796.4617 1567.2483 m
+1796.4617 1571.3823 1799.8129 1574.7335 1803.9469 1574.7335 C
+1808.0809 1574.7335 1811.4321 1571.3823 1811.4321 1567.2483 C
+1811.4321 1563.1143 1808.0809 1559.7631 1803.9469 1559.7631 C
+1799.8129 1559.7631 1796.4617 1563.1143 1796.4617 1567.2483 C
+s
+n
+1796.3963 1566.7988 m
+1749.9408 1566.7988 L
+S
+n
+1739.3667 1566.574 m
+1739.3667 1569.5414 1741.7722 1571.9469 1744.7395 1571.9469 C
+1747.7069 1571.9469 1750.1124 1569.5414 1750.1124 1566.574 C
+1750.1124 1563.6067 1747.7069 1561.2012 1744.7395 1561.2012 C
+1741.7722 1561.2012 1739.3667 1563.6067 1739.3667 1566.574 C
+s
+n
+1745.3728 1572.0531 m
+1745.3728 1629.0828 L
+S
+n
+1825.716 1597.7731 m
+1813.5976 1597.7731 L
+1813.5976 1453.7731 L
+1825.716 1453.7731 L
+1825.716 1597.7731 L
+n
+q
+Q
+false eomode
+1793.716 1602.7456 m
+1790.6272 1602.7456 L
+1790.6272 1458.7456 L
+1793.716 1458.7456 L
+1793.716 1602.7456 L
+n
+q
+Q
+false eomode
+1768.1716 1604.1716 m
+1768.1716 1606.8546 1771.038 1609.0296 1774.574 1609.0296 C
+1778.11 1609.0296 1780.9765 1606.8546 1780.9765 1604.1716 C
+1780.9765 1601.4886 1778.11 1599.3136 1774.574 1599.3136 C
+1771.038 1599.3136 1768.1716 1601.4886 1768.1716 1604.1716 C
+[0 0 0 1] vc
+false setoverprint
+s
+n
+vmr
+vmr
+end
+%%Trailer
diff --git a/teaching/IIIT/MA305/week0_example.jpg b/teaching/IIIT/MA305/week0_example.jpg
new file mode 100644
index 0000000000..2e1d9eed41
Binary files /dev/null and b/teaching/IIIT/MA305/week0_example.jpg differ
diff --git a/teaching/IIIT/index.md b/teaching/IIIT/index.md
new file mode 100644
index 0000000000..1419a519e2
--- /dev/null
+++ b/teaching/IIIT/index.md
@@ -0,0 +1,2 @@
+
+Nothing here! Click on the menu items.
diff --git a/teaching/IIIT/ma1011.md b/teaching/IIIT/ma1011.md
new file mode 100644
index 0000000000..35808f0f24
--- /dev/null
+++ b/teaching/IIIT/ma1011.md
@@ -0,0 +1,96 @@
+---
+layout: page
+title: MA1011
+description: Linear Algebra & Single Variable Calculus
+mathjax: true
+background: '/img/teaching.jpg'
+permalink: /teaching/IIIT/ma1011
+---
+
+# Information
+
+**Instructor**: Dr Manjil Pratim Saikia
+
+**Contact**: manjil@iiitmanipur.ac.in (please only use this email address to send me emails related to this course)
+
+**Lecture Time & Place**:
+
+Section B (T 1200-1255, W 1200-1255, Th 1100-1155 and F 1200-1255) in Room 7
+
+Section D (T 1400-1455, W 1400-1455, Th 1400-1455 and F 0900-0955) in Room 5
+
+**Office Hours**: T 1700-1800 and Th 1700-1800 in Faculty Block - II, Office F-7 (*also by appointment*)
+
+**Attendance Policy**: Attendance is mandatory, institute policy is minimum 75% continous attendance failing which the student is not allowed to sit in exams. If you have a genuine reason for missing the lectures please talk to me or the HoD as soon as possible (*talking just a few weeks before the exam will not be sufficient*).
+
+# Course Details
+
+**Linear Algebra**: Systems of linear equations and their solutions; vector space $\mathbb{R}_n$ and its subspaces; spanning set and linear independence; matrices, inverse and determinant; range space and rank, null space and nullity, eigenvalues and eigenvectors; diagonalization of matrices; similarity; inner product, Gram-Schmidt process; vector spaces (over the field of real and complex numbers), linear transformations.
+
+**Single Variable Calculus**: Convergence of sequences and series of real numbers; continuity of functions; differentiability, Rolle's theorem, mean value theorem, Taylor's theorem; power series; Riemann integration, fundamental theorem of calculus, improper integrals; application to length, area, volume and surface area of revolution.
+
+# Reading Materials
+
+**Textbook**: The recommended textbook for the first part is **Linear Algebra and its Applications (Fourth Edition)** by *Gilbert Strang* (Wellesley- Cambridge Press, 2009). This book is available in the institute library, a cheap Indian edition is also available to buy online. In addition, Strang's webpage (link [here](https://math.mit.edu/~gs/)) has a treasure trove of video lectures and lecture notes on first year undergraduate linear algebra that he has taught for many years at MIT. He also has a very [popular OCW](https://ocw.mit.edu/courses/18-06sc-linear-algebra-fall-2011/) which is also worth watching.
+
+For the second part of the course, I will be using my own notes, which I will share in this webpage after the lecture. I still recommend that you follow a book of your choice for the material so that you can practice solving problems. Any of the following books can be choosen for this purpose (the editions selected are the ones to which I have access to, but you can choose any other edition of the books):
+
+1. **An Introduction to Calculus and Real Analysis** (1st ed.), *Sudhir R. Ghorpade and Balmohan V. Limaye*, Springer, 2006.
+2. **Introduction to Real Analysis** (4th ed.), *Robert G. Bartle and Donald R. Sherbert*, John Wiley & Sons, 2011.
+3. **Understanding Analysis** (2nd ed.), *Stephen Abott*, Springer, 2015.
+
+**Class Notes**
+
+*Linear Algebra*
+
+[Review of solving simultaneous linear equations](/teaching/IIIT/MA1011/Review_eq.pdf)
+[Lecture 7](/teaching/IIIT/MA1011/lecture_7.pdf)
+[Lecture 8](/teaching/IIIT/MA1011/lecture_8.pdf)
+[Lecture 9](/teaching/IIIT/MA1011/lecture_9-1.pdf)
+[Determinants](/teaching/IIIT/MA1011/determinants.pdf)
+[Orthogonality](/teaching/IIIT/MA1011/orthogonality.pdf)
+[Gram-Schmidt Process](/teaching/IIIT/MA1011/gram.pdf)
+[Eigenvalues & Eigenvectors](/teaching/IIIT/MA1011/eigen.pdf)
+[Similarity & Diagonalization](/teaching/IIIT/MA1011/diagonal.pdf)
+[Linear Transformations](/teaching/IIIT/MA1011/linear.pdf)
+
+*Single variable Calculus*
+
+[Fundamental Functions and their Graphs](/teaching/IIIT/MA1011/fund_graph.pdf)
+[Limits of Sequences](/teaching/IIIT/MA1011/limits.pdf)
+[Convergence of Series](/teaching/IIIT/MA1011/conv.pdf)
+[Infinite Series](/teaching/IIIT/MA1011/inf-series.pdf)
+[Supremum & Infimum](/teaching/IIIT/MA1011/sup-inf.pdf)
+[Continuity of Functions](/teaching/IIIT/MA1011/cont.pdf)
+[Differentiability](/teaching/IIIT/MA1011/diff.pdf)
+[Theorems for Differentiable Functions](/teaching/IIIT/MA1011/diff-thm.pdf)
+[Higher Order Derivatives](/teaching/IIIT/MA1011/high-diff.pdf)
+[Fundamental Theorem of Calculus](/teaching/IIIT/MA1011/fund-thm.pdf)
+[Integration](/teaching/IIIT/MA1011/int.pdf)
+[Applications of Riemann Integration](/teaching/IIIT/MA1011/area.pdf)
+
+**Problem Sheets**
+
+*Linear Algebra*
+
+[Sheet 1 (Vector Spaces)](/teaching/IIIT/MA1011/sheet_1.pdf)
+[Sheet 2 (Matrices)](/teaching/IIIT/MA1011/sheet_2.pdf)
+[Sheet 3 (Linear Independence, Basis & Dimension)](/teaching/IIIT/MA1011/sheet_3.pdf)
+[Sheet 4 (Programming)](/teaching/IIIT/MA1011/sheet_4.pdf)
+[Sheet 5 (Determinants)](/teaching/IIIT/MA1011/sheet_5.pdf)
+[Sheet 6 (Inner Products & Orthogonality)](/teaching/IIIT/MA1011/sheet_6.pdf)
+[Sheet 7 (Eigenvalues & Eigenvectors)](/teaching/IIIT/MA1011/sheet_7.pdf)
+[Sheet 8 (Linear Maps)](/teaching/IIIT/MA1011/sheet_8.pdf)
+
+*Single variable Calculus*
+
+[Sheet 9 (Continuity)](/teaching/IIIT/MA1011/sheet_9.pdf)
+[Sheet 10 (Differentiability)](/teaching/IIIT/MA1011/sheet_10.pdf)
+[Sheet 11 (Integration)](/teaching/IIIT/MA1011/sheet_11.pdf)
+
+**Exams**
+
+[Assessment I](/teaching/IIIT/MA1011/Assessment-I.pdf)
+[Assessment II](/teaching/IIIT/MA1011/Assessment-II.pdf)
+[Assignment for Low Attendance](/teaching/IIIT/MA1011/make-up-ass.pdf)
+[End Term](/teaching/IIIT/MA1011/finalma1011.pdf) ([Part A Solutions](/teaching/IIIT/MA1011/part-a-sol.pdf), [Part B Solutions](/teaching/IIIT/MA1011/part-b-sol.pdf))
diff --git a/teaching/IIIT/ma1012.md b/teaching/IIIT/ma1012.md
new file mode 100644
index 0000000000..08d5fef9ba
--- /dev/null
+++ b/teaching/IIIT/ma1012.md
@@ -0,0 +1,98 @@
+---
+layout: page
+title: MA1012
+description: Multivariable Calculus & Ordinary Differential Equations
+mathjax: true
+background: '/img/teaching.jpg'
+permalink: /teaching/IIIT/ma1012
+---
+
+# Information
+
+**Instructor**: Dr Manjil Pratim Saikia
+
+**Contact**: manjil@iiitmanipur.ac.in (please only use this email address to send me emails related to this course)
+
+**Lecture Time & Place**:
+
+Section A: M 1000, T 1000, W 1000 and Th 1000 in Room 5
+
+Section B: M 1200, T 1200, W 1200 and F 1000 in Room 6
+
+**Office Hours**: T 1700-1800 and Th 1700-1800 in Faculty Block - II, Office F-7 (*also by appointment*)
+
+**My schedule is available [here](https://calendar.google.com/calendar/u/4?cid=bWFuamlsQGlpaXRtYW5pcHVyLmFjLmlu) (please login via your IIIT email account to view the calendar).**
+
+**Course Prerequisites**: It will be assumed that students are familiar with the course [MA1011](/teaching/IIIT/ma1011).
+
+**Attendance Policy**: Attendance is mandatory, institute policy is minimum 75% continous attendance failing which the student is not allowed to sit in exams. If you have a genuine reason for missing the lectures please talk to me or the HoD as soon as possible (*talking just a few weeks before the exam will not be sufficient*).
+
+# Course Details
+
+**Multivariable Calculus**: Vector functions of one variable – continuity, differentiation and integration; functions
+of several variables - continuity, partial derivatives, directional derivatives, gradient, differentiability, chain rule;
+tangent planes and normals, maxima and minima, Lagrange multiplier method; repeated and multiple integrals
+with applications to volume, surface area, moments of inertia, change of variables; vector fields, line and surface
+integrals; Green's, Gauss's and Stokes' theorems and their applications.
+
+**Ordinary Differential Equations**: First order differential equations - exact differential equations, integrating
+factors, Bernoulli equations, existence and uniqueness theorem, applications; higher-order linear differential
+equations - solutions of homogeneous and non-homogeneous equations, method of variation of parameters,
+series solutions of linear differential equations, Legendre equation and Legendre polynomials, Bessel equation
+and Bessel functions of first and second kinds. Laplace and inverse Laplace transforms; properties, convolutions;
+solution of ODE by Laplace transform. Systems of first-order equations, two-dimensional linear autonomous
+system, phase plane, critical points, stability.
+
+# Grading
+
+* We will follow relative grading.
+* 50% of the total marks will come from the end semester exam (of 100 marks).
+* 16.67% of the total will come from Assessment I (of 25 marks), another 16.67% of the total will come from Assessment II (of 25 marks).
+* All these three exams will be closed book and annonced before hand.
+* The rest of the 16.66% will come from two suprise tests (of 12.5 marks each) which will not be announced beforehand.
+
+# Reading Materials
+
+**Textbook**: I will use my own notes.
+
+I still recommend that you follow a book of your own. I recommended the following textbook for the first part of the course: **A Course in Multivariable Calculus and Analysis** by *Sudhir R. Ghorpade and Balmohan V. Limaye* (Springer, 2019 printing) and the following textbook for the second part of the course: **Differential Equations with Applications and Historical Notes** (third edition) by *George F. Simmons* (CRC Press, 2017).
+
+Two other books which are good resources are **Calculus and Analytic Geometry (9th ed.)** by *Goerge B. Thomas, Jr. and Ross L. Finney* (Pearson India, 2010) and **Differential Equations (3rd ed.)** by *Shepley L. Ross* (Wiley, 2007).
+
+You can choose any book of your choice. Make sure to solve all the practice problems that are assigned or discussed in the tutorials for a full understanding of the course.
+
+# Advice for Students
+
+* Prof. Sara Billey has some [__really great advice__](https://sites.math.washington.edu/~billey/advice/) for students which I recommend you read before starting this course.
+* I believe in the [__axioms laid down by Prof. Federico Ardila__](http://fardila.com) which I recommend you familirize yourself with.
+* Along with learning mathematics it is also important that you learn how to write mathematics. I recommend this [__great resource__](https://jmlr.csail.mit.edu/reviewing-papers/knuth_mathematical_writing.pdf) to get started with writing mathematics clearly. In fact, there is also a [__grammar for mathematics__](https://faculty.math.illinois.edu/~west/grammar.html).
+* Finally, here is a [__study guide for mathematics__](https://www.math.utah.edu/%7Ealfeld/math.html).
+
+# Notes and Tutorials
+
+**Class Notes**
+
+*Multivariable Calculus*
+
+[Review](/teaching/IIIT/MA1012/review.pdf)
+[Vector Valued Functions](/teaching/IIIT/MA1012/vec.pdf)
+[Functions of Several Variable: Limits, Continuity and Differentiability](/teaching/IIIT/MA1012/func.pdf)
+[Directional Derivatives, Gradient and Tangent Plane](/teaching/IIIT/MA1012/dirn.pdf)
+[Theorems on Differentiable Functions; Maxima and Minima](/teaching/IIIT/MA1012/thm-diff.pdf)
+[Langrange Multiplier Method](/teaching/IIIT/MA1012/lang.pdf)
+
+*ODEs*
+
+**Tutorials**
+
+*Multivariable Calculus*
+
+[Problem Sheet 1](/teaching/IIIT/MA1012/sheet-1.pdf)
+[Problem Sheet 2](/teaching/IIIT/MA1012/sheet_2.pdf)
+[Problem Sheet 3](/teaching/IIIT/MA1012/sheet_3.pdf)
+
+*ODEs*
+
+# Exams
+
+[Surprise Test 1, Section A](/teaching/IIIT/MA1012/surprise-1.pdf)
diff --git a/teaching/IIIT/ma301.md b/teaching/IIIT/ma301.md
new file mode 100644
index 0000000000..1740039927
--- /dev/null
+++ b/teaching/IIIT/ma301.md
@@ -0,0 +1,38 @@
+---
+layout: page
+title: MA301
+description: Optimization Techniques
+mathjax: true
+background: '/img/teaching.jpg'
+permalink: /teaching/IIIT/ma301
+---
+
+# Information
+
+**Instructor**: Dr Manjil Pratim Saikia
+
+**Contact**: manjil@iiitmanipur.ac.in (please only use this email address to send me emails related to this course)
+
+**Lecture Time & Place**: M 1500, W 1500 and F 1400 in Room 4
+
+**Office Hours**: T 1700-1800 and Th 1700-1800 in Faculty Block - II, Office F-7 (*also by appointment*)
+
+**Course Prerequisites**: It will be assumed that students are familiar with the following courses: [MA101](/teaching/IIIT/ma1011), MA203, CS101, CS201 and CS301.
+
+**Attendance Policy**: Attendance is mandatory, institute policy is minimum 75% continous attendance failing which the student is not allowed to sit in exams. If you have a genuine reason for missing the lectures please talk to me or the HoD as soon as possible (*talking just a few weeks before the exam will not be sufficient*).
+
+# Course Details
+
+Linear programming problem: formulation and geometric ideas, simplex algorithm, duality, transportation and assignment problem, Integer programming problems; Nonlinear optimization: method of Lagrange multipliers, Karush-Kuhn-Tucker theory, numerical methods for nonlinear optimization; Convex optimization and quadratic programming; Applications of linear, integer and quadratic programming to various areas of science and engineering.
+
+# Reading Materials
+
+The recommended textbook for *major portions* of the course is **Numerical Optimization with Applications** by *Suresh Chandra, Jayadeva and Aparna Mehra* (Narosa Publishing House, 2016). This book is available in the institute library. I will supplement this book with other materials of my own for some portions of the course.
+
+Each week **two** students will be in charge of transscribing the lectures for that week. This should be done in LaTeX using the template available [here](/teaching/IIIT/MA305/template.tex), you should use this [style file](/teaching/IIIT/MA305/template.sty) and [bib file](/teaching/IIIT/MA305/template.bib) when required. All figures must be preferably in pdf format (check [Ipe](https://ipe.otfried.org/) for instance), otherwise in both [EPS](/teaching/IIIT/MA305/week0_example.eps) and [jpg](/teaching/IIIT/MA305/week0_example.jpg) format. The output should look something [like this](/teaching/IIIT/MA305/template.pdf). The transcribing will earn you marks for a part of Assessment III.
+
+# Exams
+
+**[Assessment I](/teaching/IIIT/MA301/ass1.pdf)**
+**[Re Assessment I](/teaching/IIIT/MA301/re-ass.pdf)**
+**[Assessment II](/teaching/IIIT/MA301/ass-2.pdf)**
diff --git a/teaching/index.md b/teaching/index.md
new file mode 100644
index 0000000000..6976074eb5
--- /dev/null
+++ b/teaching/index.md
@@ -0,0 +1,36 @@
+---
+layout: page
+title: Teaching
+description: My teaching portfolio.
+mathjax: true
+background: '/img/teaching.jpg'
+permalink: /teaching/
+---
+
+# IIIT Manipur
+
+**[MA1012: Multivariable Calculus & Ordinary Differential Equations](/teaching/IIIT/ma1012)** (First Year Undergraduate, March 2023 - June 2023)
+
+**[MA301: Optimization Techniques](/teaching/IIIT/ma301)** (Third Year Undergraduate, January 2023 - May 2023)
+
+**[MA1011: Linear Algebra & Single Variable Calculus](/teaching/IIIT/ma1011)** (First Year Undergraduate, December 2022 - February 2023)
+
+# Cardiff University
+
+**Foundations of Mathematics II** (Undergraduate, February 2022 - May 2022)
+
+# ICTP
+
+**[EAUMP-ICTP School: Topics in Concrete Mathematics](https://indico.ictp.it/event/9669/other-view?view=ictptimetable)** (Graduate, August 2021)
+
+# Volunteer Courses for Indian students (online)
+
+**Rogers-Ramanujan Identities: Analytic and Combinatorial Aspects** (Undergraduate, Fall 2022)
+
+**$q$-Series and Partitions** (Graduate, Spring 2022; few lectures are [available online](https://tinyurl.com/q-series-partitions))
+
+**Perfect Numbers and its Generalizations** (Graduate, Spring 2022; few lectures are [available online](https://tinyurl.com/perfect-numbers))
+
+**Topics on Alternating Sign Matrices** (Undergraduate, Summer 2021; discussed the book [Proofs and Confirmations](https://www.cambridge.org/core/books/proofs-and-confirmations/5D2040AF535073D4EA79FD5B56587858) by David Bressoud)
+
+**Generating Functions in Combinatorics** (Undergraduate, Spring 2021; discussed the book [generatingfunctionology](https://www2.math.upenn.edu/~wilf/DownldGF.html) by H. Wilf)
diff --git a/unesco.md b/unesco.md
new file mode 100644
index 0000000000..6819b0242c
--- /dev/null
+++ b/unesco.md
@@ -0,0 +1,108 @@
+---
+layout: page
+title: UNESCO Sites
+description: UNESCO World Heritage Sites that I have visited.
+background: '/img/unesco.jpg'
+permalink: /unesco/
+---
+
+One of my travel goals is to visit as many of the sites in UNESCO List of World Heritage Sites as I can. I list below the ones (arranged by country with approximate dates of the first visit) I have been to so far, for my convenience.
+
+**Austria**
+
+Historic Centre of Salzburg (December 2017)
+Palace and Gardens of Schönbrunn (October 2015)
+Semmering Railway (May 2017)
+City of Graz: Historic Centre and Palace of Eggenberg (May 2017)
+Neusiedlersee Cultural Landscape (February 2017)
+Historic Centre of Vienna (January 2015)
+Prehistoric Pine Dwellings Around the Alps (November 2015)
+Wachau Cultural Landscape (April 2018)
+Hallstatt-Dachstein/Salzkammergut Cultural Landscape (April 2019)
+Baden (June 2019)
+Frontiers of the Roman Empire – The Danube Limes (Western Segment) (January 2015)
+
+**Bulgaria**
+
+Rila Monastery (December 2018)
+Boyana Church (December 2018)
+
+**Croatia**
+
+Old city of Dubrovnik (October 2017)
+
+**Czechia**
+
+Historic Centre of Prague (January 2017)
+Tugendhat Villa in Brno (April 2019)
+Historic Centre of Český Krumlov (May 2019)
+
+**Denmark**
+
+Kronborg Castle (October 2018)
+Roskilde Cathedral (October 2018)
+
+**France**
+
+Bordeaux, Port of the Moon (March 2016)
+Paris, Banks of the Seine (August 2015)
+Cathedral of Notre-Dame (August 2015)
+Historic Site of Lyon (March 2018)
+Strasbourg-Grand Ile and Neustadt (April 2016)
+
+**Germany**
+
+Berlin Modernist Housing Estates (July 2016)
+Museumsinsel, Berlin (July 2016)
+Palaces and Parks of Potsdam and Berlin (July 2016)
+Speyer Cathedral (September 2016)
+Town of Bamberg (September 2018)
+Old Town of Regensburg with Stadtamhof (September 2018)
+Frontiers of the Roman Empire – The Danube Limes (Western Segment) (September 2018)
+
+**Hungary**
+
+Budapest, including the Banks of the Danube, Buda Castle Quarter and Andrassy Avenue (January 2016)
+
+**India**
+
+Humayun’s Tomb (July 2013)
+Qutb Minar and its Monuments (December 2017)
+Red Fort Complex (July 2013)
+Jantar Mantar, Jaipur (January 2018)
+Group of Monuments in Mahabalipuram (July 2010)
+Agra Fort (November 2017)
+Taj Mahal (November 2017)
+Hill Forts of Rajasthan: Amber Sub-cluster (January 2018)
+The Architectural Works of Le Corbusier, Chandigarh (July 2011)
+Jaipur (January 2018)
+
+**Italy**
+
+Church and Dominican Convent of Santa Maria delle Grazie with “The Last Supper” by Leonardo da Vinci (July 2015)
+City of Verona (March 2015)
+City of Vicenza (March 2015)
+Venice and its Lagoon (December 2014)
+Historic Centre of Florence (July 2019)
+Historic Centre of Siena (July 2019)
+Piazza del Duomo, Pisa (July 2019)
+Cinque Terre (July 2019)
+
+**Netherlands**
+
+Defence Line of Amsterdam (January 2017)
+Mill Network of Kinderdjik (January 2017)
+Canal Ring Area of Amsterdam (January 2017)
+
+**Romania**
+
+Historic Centre of Sighișoara (December 2018)
+
+**United Kingdom of Great Britain and Northern Ireland**
+
+Castles and Town Walls of King Edward in Gwynedd (July 2021)
+Old and New Towns of Edinburgh (April 2022)
+
+**Slovenia**
+
+The works of Jože Plečnik in Ljubljana – Human Centred Urban Design (June 2015)