March 15 is also known as the Ides of March, when Julius Caesar was assassinated in 44 BCE. Caesar was born on July 12 or 13, 100 BCE (records vary on the date of July 12 or July 13). For the purpose of this post, July 13 is consistent with the numbers known as Caesar Primes. One such number is 137 - the concatenation of two primes, 13 and 7 (with Caesar's birthday being the 13th day of the 7th month).
The list of Caesar Primes is found in the On-Line Encyclopedia of Integer Sequences (OEIS) as sequence: https://oeis.org/A133187. The sequence consists of the prime numbers formed by the concatenation of q and p, where q > p are also primes.
I wrote a Mathematica to produce this sequence:
lim=2700;plim=Max[FromDigits[Rest[IntegerDigits[lim]]],FromDigits[Drop[IntegerDigits[lim],-1]]];f2p[{p_,q_}]:=FromDigits[Join[IntegerDigits[q],IntegerDigits[p]]];p=Prime[Range[PrimePi[plim]]];p2=Subsets[p,{2}];Union[Select[f2p/@p2,PrimeQ[#]&&#<=lim&]]
The first 46 Caesar Primes are: 53, 73, 113, 137, 173, 193, 197, 233, 293, 313, 317, 373, 433, 593, 613, 617, 673, 677, 733, 797, 977, 1013, 1033, 1093, 1097, 1277, 1373, 1493, 1637, 1733, 1913, 1933, 1973, 1993, 1997, 2113, 2237, 2273, 2293, 2297, 2311, 2333, 2393, 2417, 2633, 2693.
No comments:
Post a Comment