Glad Hobo Express
Friday, May 08, 2026
Sunday, May 03, 2026
The Bird
Sixty years ago today, I penned this entry in my then-diary:
Since yesterday I've been writing short poems - pretty good ones - if I do say so myself. It's usually about a person. One I especially like is:
Brother Adrian
When the boys go out to play,
Brother Adrian stayed away.
"Have to study," he just said,
"By tonight I will have read
Books of every type and kind,
For I simply have to find
How in French to write the words,
'Reading books is for the birds!'"
A little context: I was at that time in grade ten at De La Salle College "Oaklands" which was run by Christian Brothers, a Catholic teaching order. Brother Adrian was our then-new-to-us (two weeks prior) French teacher. When I read this doggerel a couple of days ago it brought to mind a Brother who had been nicknamed "the bird" by his students, based supposedly, as suggested by my friend Alfy who also went to De La Salle back then, on his behaviour. Now, neither Alfy nor I have a direct recollection (sixty years can do that) of the bird's identity but it makes sense to me that it might have been Brother Adrian, inspiring the poem's raison d'ĂȘtre by way of its terminal double entendre.
That would indeed have been clever but a little subsequent research suggests that "the bird" was actually Brother Michael (O'Reilly), not to be confused with Brother Michael (Dillon) [the former "junior", the latter, "senior"]. It appears that Michael O'Reilly's three-month stay (5 Sep 1966 - 5 Dec 1966, our home room teacher for the start of grade eleven) was scrubbed from his RIP assignment list. No wonder. We were the class from hell!
Sunday, April 26, 2026
Wednesday, April 15, 2026
Thursday, April 02, 2026
A random 5000-digit emirp pair
Print[DateString[]];
c=0;While[c++;
PrimeQ[IntegerReverse[r=RandomPrime[{10^4999,2*10^4999}]]]==False];
Print[{DateString[], c}]; r
Tue 24 Mar 2026 13:20:15
{Thu 2 Apr 2026 14:16:15, 1459}
IntegerReverse[r]
Click on either number to check its primality.
Monday, March 23, 2026
A random 2000-digit emirp pair
Print[DateString[]];
c=0; While[c++; PrimeQ[IntegerReverse[r=RandomPrime[{10^1999,2*10^1999}]]]==False];
Print[{DateString[], c}]; r
Mon 23 Mar 2026 16:19:04
{Mon 23 Mar 2026 18:37:09, 305}
IntegerReverse[r]
Click on either number to check its primality.
Saturday, March 21, 2026
A random large emirp pair
One might think from my previous post that large base-ten emirps congregate near — or at least involve — powers of ten. Well, record ones certainly do but that is surely an artifact of the convenience of searching for such integers in those locations, expressing them without having to show all of their digits, and even proving their primality.
I recently found that Mathematica has a RandomPrime function which can be configured to generate primes with a specific number of digits. By repeated application of it and checking each against the primality (most often lack-of-primality) of the integer created by reversing its decimal digits, I can now create random emirps.
While[PrimeQ[IntegerReverse[r = RandomPrime[{10^999, 10^1000}]]] == False]; r
The reverse of this is:
I did not think that I would be able to prove their primality, but factordb (click on either number to see its evaluation there) apparently has some "elves" who download the smallest probable primes in the database and run deterministic tests on them. I guess I got lucky.