There is a query about the next date in a sequence. Yesterday was such a date:  <span style="font-family: monospace;">double-13 Friday: All the numbers in the numerical notation -- 10/13/2006 -- add up to 13 as well.

<br>

<br>

<span style="font-family: monospace;"></span>Dear G.L.,<span style="font-family: monospace;"><br>

<br>

</span>Should be easy in Mathematica, which I have not yet<span style="font-family: monospace;"> </span>bought.<span style="font-family: monospace;"> </span>I guess I'd start with:<span style="font-family: monospace;"> </span>

A101312 Number of "Friday the 13ths" in year n<span style="font-family: monospace;"><br>

</span>(starting at 1901).  <span style="font-family: monospace;"><br>

</span>2, 1, 3, 1, 2, 2, 2, 2, 1, 1, 2, 2, 1, 3, 1, 1, 2, 2,<span style="font-family: monospace;"><br>

</span>1, 2, 1, 2, 2, 1, 3, 1, 1, 3, 2, 1, 3, 1, 2, 2, 2, 2,<span style="font-family: monospace;"><br>

</span>1, 1, 2, 2, 1, 3, 1, 1, 2, 2, 1, 2, 1, 2, 2, 1, 3, 1,<span style="font-family: monospace;"><br>

</span>1, 3, 2, 1, 3, 1, 2, 2, 2, 2, 1, 1, 2, 2, 1, 3, 1, 1,<span style="font-family: monospace;"><br>

</span>2, 2, 1, 2, 1, 2, 2, 1, 3, 1, 1, 3, 2, 1, 3, 1, 2, 2,<span style="font-family: monospace;"><br>

</span>2, 2, 1, 1, 2, 2, 1, 3, 1, 1, 2, 2, 1, 2, 1 <span style="font-family: monospace;"><br>

<br>

</span>OFFSET     <span style="font-family: monospace;"><br>

</span>1901,1<span style="font-family: monospace;"><br>

<br>

</span>COMMENT    <br>

<pre><tt>This sequence is basically periodic with period 28<br>[example: a(1901) = a(1929) = a(1957)], with "jumps"<br>when it passes a non-leap-year century such as 2100<br>[all centuries which are not multiples of 400]. At

<br>these points [for example, a(2101)], the sequence<br>simply "jumps" to a different point in the same<br>pattern, "dropping back" 12 entries [or equivalently,<br>"skipping ahead" 16 entries], but still continuing

<br>with the same repeating [period 28] pattern. Every<br>year has at least 1 "Friday the 13th," and no year has<br>more than 3. On average, 3 of every 7 years (43%) have<br>1 "Friday the 13th," 3 of every 7 years (43%) have 2

<br>of them, and only 1 in 7 years (14%) has 3 of them.<br>Conjecture: The same basic repeating pattern results<br>if we seek the number of "Sunday the 22nds" or<br>"Wednesday the 8ths" or anything else similar, with

<br>the only difference being that the sequence starts at<br>a different point in the repeating pattern.<br>  <br>EXAMPLE       <br><br>a(2004) = 2, since there were 2 "Friday the 13ths"<br>that year: February 13,2004 and August 13, 2004 both

<br>fell on a Friday.<br><br>MATHEMATICA      <br><br>(*Load <<Miscellaneous`Calendar` package first*) s={};<br>For[n=1901, n<=2200, t=0; For[m=1, m<=12,<br>If[DayOfWeek[{n, m, 13}]===Friday, t++ ]; m++ ];<br>AppendTo[s, t]; n++ ]; s

<br>      <br>KEYWORD nonn<br><br>AUTHOR        <br><br>Adam M. Kalman (mocha(AT)clarityconnect.com), Dec 22<br>2004 <br><br>--- <a href="http://us.f551.mail.yahoo.com/ym/Compose?To=honak3r@bvunet.net&YY=95130&y5beta=yes&y5beta=yes&order=down&sort=date&pos=0&view=a&head=b">

honak3r@bvunet.net</a> wrote: > > It's double-13 Friday. All the > > numbers in the numerical notation -- 10/13/2006 -- > add up > > to 13 as well. >  >  > Thanks for that, I appreciate it.

<br>> <br>> What I'd like to know, is when is it going to occur<br>> again?<br>> <br>> G. L.</tt></pre>

<pre><tt>To: editor<br>Subject: New Prime Curio about 10132006 by Post<br>From: Prime Curios! automailer for<br><<a href="http://us.f551.mail.yahoo.com/ym/Compose?To=jvospost2@yahoo.com&YY=93458&y5beta=yes&y5beta=yes&order=down&sort=date&pos=0&view=a&head=b">

jvospost2@yahoo.com</a>><br><br>There has been a new curio submitted for your<br>approval:<br><br>10132006 [number_id=6569]<br><br>Some people fear the prime 13, especially on Fridays.<br>Curiously so on 10/13/2006, whose digits concatenate

<br>as<br>10132006. <a href=<br>"<a href="http://washingtontimes.com/national/20061012-115954-3697r.htm" target="_blank">http://washingtontimes.com/national/20061012-115954-3697r.htm</a>"><br>For the fearful, this Friday has their number By

<br>Jennifer Harper THE WASHINGTON TIMES October 13,<br>2006</a> <br><br>This is not a good day for paraskevidekatriaphobics --<br>those who fear Friday the 13th. It's double-13 Friday.<br>All the numbers in the numerical notation --10/13/2006

<br>-- add up to 13 as well, giving great pause to the<br>superstitious. The phenomenon hasn't happened in 476<br>years, said Heinrich Hemme, a physicist at Germany's<br>University of Aachen who crunched the numbers to find

<br>that the double-whammy last occurred Jan. 13, 1520. <br><br>"Pure chance," the good professor told the press<br>yesterday. <br><br>But it's not exactly TGIF for the 21 million Americans<br>who fear the day. Some may not travel or even get out

<br>of bed, said Donald Dossey, a North Carolina<br>psychologist who coined the term<br>"paraskevidekatriaphobia" 20 years ago. He estimates<br>that the nation is out $900 million in lost<br>productivity because of Friday the 13th sick-outs... 

</tt></pre>

<br>