You are using a browser not supported by the Wolfram Cloud
Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.
I understand and wish to continue anyway »
WOLFRAM NOTEBOOK
Rule 74
Rule 74
GetData["ClosedOrderedNetsTo4.m"];
CollectLists[MapIndexed[{Count74[#,100,10000],First[#2]}&,ClosedOrderedNetsTo4[[2]]]]
{{{1,1,1,2,2,2,4,6,6,8,14,18,18,26,40,46,44,60,76,84,88,102,100,108,112,114,120,124,100,76,82,72,54,58,66,60,52,76,106,118,108,156,214,242,222,316,432,490,448,638},{1}},{{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0},{2,3,4,6,7,8,10,11}},{{1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0},{5,9}}}
ListLinePlot[Log[10,Count74[ClosedOrderedNetsTo4[[2,1]],200,10^6]],FillingAxis,PlotRangeAll]
Count74[ClosedOrderedNetsTo4[[2,1]],200,10^6]
{1,1,1,2,2,2,4,6,6,8,14,18,18,26,40,46,44,60,76,84,88,102,100,108,112,114,120,124,100,76,82,72,54,58,66,60,52,76,106,118,108,156,214,242,222,316,432,490,448,638,874,996,914,1290,1760,2010,1846,2594,3536,4048,3720,5216,7104,8138,7484,10476,14254,16344,15046,21024,28578,32790,30196,42148,57268,65746,60568,84462}
Drop[%,40]
{108,156,214,242,222,316,432,490,448,638,874,996,914,1290,1760,2010,1846,2594,3536,4048,3720,5216,7104,8138,7484,10476,14254,16344,15046,21024,28578,32790,30196,42148,57268,65746,60568,84462}
FindRecurrence[%,14]
None
ddx=CollectLists[MapIndexed[{Count74[#,100,40000],First[#2]}&,ClosedOrderedNetsTo4[[4]]]];
Tooltip[LLP[First[#],40],Last[#]]&/@ddx
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
Tooltip[LLP[Log[1+First[#]],40],Last[#]]&/@ddx
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
lifetime | max size | |
0 | 4 | (206 cases) |
1 | 6 | (88 cases) |
1 | 8 | (5 cases) |
2 | 8 | (32 cases) |
5 | 14 | (6 cases) |
5 | 20 | (2 cases) |
6 | 20 | (2 cases) |
7 | 18 | (4 cases) |
8 | 24 | (3 cases) |
9 | 34 | (1 case) |
9 | 34 | (1 case) |
11 | 44 | (2 cases) |
11 | 48 | (1 case) |
12 | 36 | (1 case) |
12 | 44 | (2 cases) |
14 | 58 | (1 case) |
16 | 66 | (1 case) |
17 | 62 | (1 case) |
17 | 84 | (1 case) |
18 | 120 | (1 case) |
19 | 174 | (1 case) |
20 | 160 | (1 case) |
20 | 192 | (1 case) |
22 | 252 | (1 case) |
27 | 534 | (1 case) |
37 | 376 | (1 case) |
38 | 508 | (1 case) |
38 | 520 | (1 case) |
42 | 564 | (1 case) |
58 | 28580 | (1 case) |
FindRecurrence[First[#]]&/@ddx
{None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,{a[1]},{0},{0,0},None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,None,{0},None,None,None,None}
Count74[ClosedOrderedNetsTo4[[4,280]],200,10^6]
{1,2,2,3,4,4,6,10,12,14,22,32,36,44,66,88,106,128,176,218,248,300,376,456,516,594,702,792,876,972,1042,1078,1088,1080,1048,1040,1046,986,910,916,954,968,870,910,996,1100,1090,1282,1490,1670,1648,2092,2608,2972,2886,3674,4714,5486,5276,6770,8642,10058,9616,12758,16696,19440,18342,24332,32110,37406,35212,47026,62158,72288,67798}
ListLinePlot[Log[10,%],FillingAxis,PlotRangeAll]
(Link died when max size was 5*^6)
Count74[ClosedOrderedNetsTo4[[4,283]],200,10^6]
{2,2,2,4,4,4,8,12,12,16,28,36,36,52,80,92,88,120,152,168,176,204,200,216,224,228,240,248,200,152,164,144,108,116,132,120,104,152,212,236,216,312,428,484,444,632,864,980,896,1276,1748,1992,1828,2580,3520,4020,3692,5188,7072,8096,7440,10432,14208,16276,14968,20952,28508,32688,30092,42048,57156,65580,60392,84296}
ListLinePlot[Log[10,%],FillingAxis,PlotRangeAll]
ListLinePlot[Log[10,Count74[ClosedOrderedNetsTo4[[4,285]],200,10^6]],FillingAxis,PlotRangeAll]
A case of fairly pure growth:
A long but finite lifetime: