# [seqfan] The Wichita Algorithm.

Robert Wilson rgwv at rgwv.com
Mon Oct 30 21:06:26 CET 2023

```Dear Michael,

I believe that we have missed a few sequences which involve the Wichita algorithm.

Edit as you please. I'm still calculating.

I would like to get A000001 submitted if only partially tomorrow.

Sincerely yours, Bob.

%I A000001
%N A000001 Number of distinct primes p utilized in the mapping of k = k - k/p terminating at 1; where p is any of the prime factors of k.
%S A000001 0, 1, 2, 1, 2, 2, 3, 1, 2, 2, 3, 2, 3, 3, 3, 1, 2, 2, 3, 2, 3, 3, 4, 2, 2, 3, 2, 3, 4, 3, 4, 1, 4, 2, 4, 2, 3, 3, 3, 2, 3, 3, 4, 3, 3, 4, 5, 2, 3, 2, 3, 3, 4, 2, 3, 3, 3, 4, 5, 3, 4, 4, 3, 1, 4, 4, 5, 2, 5, 4, 5, 2, 3, 3, 3, 3, 5, 3, 4, 2, 2, 3, 4, 3, 3, 4, 4, 3, 4, 3, 4, 4, 4, 5, 4, 2, 3, 3, 4, 2, 3, 3, 4, 3, 4
%O A000001 1,3
%C A000001 Obviously A001221(n) <= a(n) <= pi(n) = A000720(n).
%C A000001 Just because some prime < n  is not a prime factor of n does not preclude it from being a prime utilized in the cascade from n to 1. Take for instance n=14; 14 -> 12 and 3 is a prime factor of 12 but not of 14.
%C A000001 If p is a prime factor of n, then a(p^e * n) = a[n), where e is any exponent.
%C A000001 The number of primes p counting multiplicity is obviously the same as the path length, A332810. For n>1, 2 is always one of the primes.
%C A000001 Records: 1, 2, 3, 7, 23, 47, 139, 283, 659, 1319, 8637, 20147, 83491, 169861, 999013, ..., .
%D A000001
%H A000001
%f A000001
%e A000001 a(1) = 0 because 1 is at the end of all iterations;
%e A000001 a(2) = 1 since 2 -> 2 - 2/2 = 1, so there is one iteration of the mapping and it only involves the prime 2;
%e A000001 a(3) = 2 since 3 -> 2 -> 1 and this involves two primes, 2 and 3;
%e A000001 a(7) = 3 since 7 -> 6 -> 3 or 2 and this involves three primes, 7, 3, and 2; etc.
%t A000001 a[n_] := Block[{m = n, p, lst = {}}, While[m > 1, p = FactorInteger[m][[1, 1]]; AppendTo[lst, p]; m = m - m/p]; Length@ Union@ lst]; Array[a, 105]
%Y A000001 Cf. Records A000002
%K A000001
%A A000001 Michael De Vlieger and RGWv, 21 Oct 2023.
%E A000001

I was hoping to see some application here, but no! This calculation >= A333123
f[n_] := Block[{m = n, p, lst = {}}, While[m > 1, p = FactorInteger[m][[1, 1]]; AppendTo[lst, p];  m = m - m/p]; Apply[Multinomial, Length@# & /@ Split at Sort@ Most@ lst]];
f       = {1, 1, 1, 1, 2, 2, 6, 1, 3, 3, 12, 3, 12, 12, 12, 1, 4, 6, 30, 4, 30, 20, 120, 4, 10, 20, 10, 20, 120, 20, 120, 1, 120, 5, 120, 10, 60, 60, 60, 5, 30, 60, 420, 30, 60, 210, 1680, 5, 210, 15, 30, 30, 210, 20, 105, 30, 140, 210, 1680, 30, 210, 210, 140, 1, 210, 210, 1680, 6, 1680, 210}
A333123 = {1, 1, 1, 1, 1, 2, 2, 1, 2, 2,  2, 3,  3,  5,  5, 1, 1, 5,  5, 3, 10,  5,   5, 4,  3,  7,  5,  9,   9, 12,  12, 1,  17, 2,  21,  9,  9, 14, 16, 4,  4, 28,  28,  9, 21,  14,   14, 5,  28,  7,  7, 12,  12, 14,  16,  14, 28,  23,   23, 21,  21,  33,  42, 1,  33,  47,   47, 3,   61,  56}
As you can see, there is no relationship between the two sequences.

%I A000002
%N A000002 Records of A000001
%S A000002 1, 2, 3, 7, 23, 47, 139, 283, 659, 1319, 8637, 20147, 83491, 169861, 999013, 3797401, 8153567, 55443959, 187814447, 646611887
%O A000002 0,2
%C A000002 Also the first time occurrence of n in A000001.
%D A000002
%H A000002
%f A000002
%e A000002
%t A000002 f[n_] := Block[{m = n, p, lst = {}}, While[m > 1, p = FactorInteger[m][[1, 1]]; AppendTo[lst, p]; m = m - m/p]; Length@ Union@ lst]; t[_] := 0; k = 1; lst = {}; While[k < 10000001, a = f at k; If[t[a] == 0, t[a] = k; AppendTo[lst, k]]; k++]; lst
%Y A000002
%K A000002
%A A000002
%E A000002

%I A000003
%N A000003 The sum of primes p not counting multiplicity utilized in the mapping of k = k - k/p terminating at 1; where p is any of the prime factors of k.
%S A000003 0, 2, 5, 2, 7, 5, 12, 2, 5, 7, 18, 5, 18, 12, 10, 2, 19, 5, 24, 7, 12, 18, 41, 5, 7, 18, 5, 12, 41, 10, 41, 2, 21, 19, 17, 5, 42, 24, 18, 7, 48, 12, 55, 18, 10, 41, 88, 5, 12, 7, 22, 18, 71, 5, 18, 12, 24, 41, 100, 10, 71, 41, 12, 2, 23, 21, 88, 19, 44, 17, 88
%O A000003 1,2
%C A000003
%D A000003
%H A000003
%f A000003
%e A000003
%t A000003 a[n_] := Block[{m = n, p, lst = {}}, While[m > 1, p = FactorInteger[m][[1, 1]]; AppendTo[lst, p]; m = m - m/p]; Total@ Union@ lst]; Array[a, 71]
%Y A000003
%K A000003
%A A000003
%E A000003

%I A000004
%N A000004
%S A000004 0, 2, 5, 4, 9, 7, 14, 6, 10, 11, 22, 9, 22, 16, 14, 8, 25, 12, 31, 13, 19, 24, 47, 11, 18, 24, 15, 18, 47, 16, 47, 10, 27, 27, 23, 14, 51, 33, 27, 15, 56, 21, 64, 26, 19, 49, 96, 13, 28, 20, 30, 26, 79, 17, 31, 20, 36, 49, 108, 18, 79, 49, 24, 12, 31, 29, 96, 29, 52, 25
%O A000004 1,2
%C A000004 Every integer value shows up except for 1 and 3.
%C A000004 Except for one, all records are at a prime index.
%C A000004 Number of record prime indices < 10^k: 4, 14, 30, 61, 119, 224, 337, 512, 814, 1287, ..., .
%D A000004
%H A000004
%f A000004
%e A000004
%t A000004 a[n_] := Block[{m = n, p, t = 0}, While[m > 1, p = FactorInteger[m][[1, 1]]; t += p; m = m - m/p]; t]; Array[a, 70]
%Y A000004
%K A000004
%A A000004
%E A000004

{1, 2, 3, 5, 7, 11, 17, 19, 23, 37, 41, 43, 47, 59, 83, 107, 139, 149, 167, 227, 263, 347, 359, 467, 479, 503, 563, 587, 719, 887, 983, 1019, 1187, 1283, 1307, 1439, 1907, 2027, 2039, 2447, 2459, 2819, 2879, 3779, 3863, 4007, 4079, 4919, 5639, 5807, 5927, 6047, 6827, 7187, 7247, 7559, 7607, 7727, 8699, 9587, 9743, 9839, 10799, 11279, 13799, 13967, 14159, 15287, 15647, 18119, 18443, 18743, 18959, 19379, 19583, 20123, 20183, 20327, 21599, 23399, 24407, 24527, 25799, 28319, 31607, 35879, 36887, 41579, 42359, 42839, 44687, 45887, 46199, 48407, 48479, 51287, 51599, 56039, 56999, 57287, 58679, 58967, 60647, 64007, 65687, 67247, 68639, 72167, 72767, 73847, 77279, 78839, 79559, 79967, 81647, 84047, 84719, 92399, 95279, 96959, 104759, 109919, 118127, 121559, 123407, 129527, 130127, 133919, 134999, 137279, 146519, 151967, 157679, 159119, 170447, 174599, 174767, 178799, 192887, 195047, 197927, 199247, 199679, 202967, 206639, 209159, 209519, 219839, 235919, 240599, 243119, 266999, 267167, 270239, 273047, 274679, 285599, 288647, 291647, 295007, 298799, 299087, 302759, 304127, 317399, 321239, 322607, 322727, 329999, 330887, 334319, 336527, 337607, 343727, 348287, 349199, 371447, 373487, 375647, 381047, 385079, 386927, 391487, 398207, 398759, 402239, 405599, 405719, 421607, 423887, 429119, 430799, 441839, 462719, 481199, 491279, 507359, 533999, 563327, 571199, 597599, 602639, 645839, 648239, 649007, 650927, 653879, 659999, 682679, 700319, 756167, 758687, 759719, 759959, 786959, 811199, 834959, 858239, 861599, 903359, 968519, 972047, 974159, 976799, 982559, 1014719, 1067999, 1115519, 1148879, 1190639, 1279679, 1281167, 1297727, 1310759, 1333919, 1341839, 1342079, 1383479, 1402799, 1489199, 1519439, 1574159, 1650959, 1681679, 1798367, 1808039, 1822319, 1837919, 1859279, 1872239, 1882319, 1904879, 1956719, 2026799, 2029439, 2130959, 2144399, 2234159, 2297759, 2399759, 2514719, 2571599, 2642639, 2674319, 2683679, 2884919, 2904599, 2972279, 2978399, 3161519, 3169919, 3242159, 3301919, 3376559, 3445199, 3572879, 3593039, 3616079, 3669839, 3773999, 3840479, 3841679, 4005839, 4031759, 4068479, 4288799, 4598999, 4617359, 4708079, 4737599, 5043959, 5119679, 5135759, 5242319, 5266799, 5369999, 5404319, 5454719, 5634479, 5676719, 5697599, 5800079, 5853839, 5944559, 6012239, 6207599, 6461999, 6484319, 6721439, 6753119, 7107119, 7145759, 7328879, 7474079, 7655279, 7682399, 7712399, 7749839, 7798559, 7825439, 7880879, 8065679, 8169599, 8244959, 8330639, 8346959, 8509199, 8522159, 8553599, 8624159, 8826479, 8970959, 9063599, 9110639, 9428879, 9488399, 9511199, 9717119, 10050959, 10073039, 10153439, 10174799, 10321679, 10346639, 10533599, 10739999, 11127839, 11138159, 11181839, 11307599, 11455439, 11484479, 11600159, 11957279, 12122879, 12221039, 12253679, 12295919, 12415199, 12933359, 12968639, 13884239, 13890959, 13947359, 14034479, 14373599, 14448719, 14531519, 14567999, 14587439, 14650319, 14826719, 15301439, 15367679, 15453359, 15481199, 15665999, 15712079, 15759599, 15828719, 16131359, 16393199, 16690799, 16820159, 16904879, 16972559, 16974479, 17057039, 17107199, 17473439, 17962559, 18127199, 18857759, 19419119, 19693679, 19712879, 20091119, 20227919, 20246399, 20336399, 20349599, 20848559, 21248639, 21342239, 22066559, 22194479, 22220879, 22506479, 22791599, 23294639, 23509679, 23556959, 23621999, 23716079, 23946719, 24816479, 25133519, 25142639, 25336079, 25462799, 25579199, 25945919, 27153839, 27702239, 27771119, 27865679, 28215599, 28226879, 28240559, 28732559, 28869119, 28897439, 29135999, 29745839, 29859839, 30602879, 30735359, 30906719, 31331999, 31519199, 32725439, 33169439, 33890159, 34214399, 35511599, 35900639, 35925119, 37271519, 37715519, 39019439, 39425759, 40672799, 41692319, 41697119, 42684479, 43608479, 45138959, 45306959, 45445679, 45466559, 45540479, 45563039, 45583199, 46747439, 47143919, 47562239, 47885759, 49074239, 50391599, 50591279, 50925599, 51158399, 53327279, 53439839, 54307679, 55093439, 55542239, 57005519, 57465119, 57794879, 58787999, 60547199, 60747839, 61295519, 62663999, 63826559, 65081519, 65422079, 66811439, 67492079, 68790479, 68864639, 69255359, 71117279, 71644319, 71819039, 71850239, 74259359, 74543039, 77076719, 78038879, 80954879, 82127999, 83394239, 86842079, 89734559, 91166399, 93494879, 96420959, 96952319, 97416479, 97762079, 98239679, 100273919, 100933919, 101182559, 102331679, 103303199, 103721279, 106106879, 106202399, 106645439, 106820159, 106879679, 110211359, 112310879, 113886239, 114087839, 115997279, 120783359, 121094399, 123162239, 126785279, 130542719, 130844159, 133152479, 133676639, 133811039, 134160959, 136758719, 138510719, 142234559, 146705759, 149086079, 154589759, 156636479, 156726719, 159609599, 159763679, 160106399, 162240479, 164124959, 164255999, 166895999, 167621759, 170841599, 170867519, 172720319, 173005439, 173437919, 174945119, 175095839, 175314719, 176732159, 177060959, 177772319, 182414399, 182609279, 185990879, 187593599, 192841919, 193904639, 194832959, 198266879, 199437599, 199848959, 200519519, 203417759, 204823679, 205366559, 206491199, 207704639, 211358879, 213640319, 215455679, 220936799, 220942559, 223255199, 223505279, 223880159, 224353439, 224484959, 226328639, 228175679, 232491839, 237806879, 239160479, 242509679, 243489839, 246324479, 250531679, 250922879, 251656799, 255959519, 257368799, 259232159, 260527679, 263531039, 263883839, 267353279, 272233439, 277919039, 280152479, 282186239, 283121759, 285105599, 286187039, 286540799, 290538239, 291046079, 293411519, 301050719, 301607039, 301955519, 302406719, 303130559, 308121599, 311108159, 311876639, 314535359, 322159679, 323769599, 324816959, 326504639, 328249919, 329916479, 340075679, 341185919, 341864639, 342978719, 345533759, 346929119, 350061599, 352915679, 353945279, 354901439, 355805279, 358439519, 359146079, 360191999, 362009279, 363059519, 364828799, 371981759, 378936479, 379411199, 380255999, 380419199, 380504639, 381421919, 382327679, 385926239, 386818079, 387541439, 388761119, 388815359, 389426879, 390446879, 393408959, 394009439, 394070399, 395873279, 401039039, 408527039, 409233599, 409300799, 410345759, 413282879, 414387839, 414476159, 418917119, 424535039, 430062239, 432851039, 433257599, 435284639, 436122719, 439634879, 441314879, 442197599, 446510399, 447010559, 448969919, 452657279, 459640319, 460553279, 462234239, 469736159, 470290559, 473491199, 473848799, 479828159, 484620959, 486979679, 495269759, 495650399, 497967839, 499315199, 501845759, 511206239, 512045279, 512056319, 519489119, 524300159, 525473759, 529305599, 531068159, 540146879, 545123039, 552604799, 553307999, 553734719, 555615839, 556256159, 560304959, 566243519, 570211199, 572374079, 581076479, 592645919, 595801919, 599877119, 600703199, 602101439, 604813439, 611197439, 616683359, 622216319, 623753279, 638685599, 639347519, 640883039, 641204639, 642539519, 643370879, 645069119, 646097759, 650021279, 651082079, 651889919, 651987839, 654990719, 655967519, 656499839, 659832959, 678232319, 680151359, 685957439, 691067519, 703037759, 707890559, 709802879, 716879039, 731824799, 733282079, 733763519, 734761439, 739317119, 755939519, 756439679, 757872959, 761009279, 773636159, 786255839, 786561599, 788140799, 802671839, 812567039, 815587679, 818111039, 820682399, 821462399, 823606559, 824865599, 829610879, 832747199, 834969119, 840873119, 847626719, 848459999, 857239679, 858799199, 859573439, 859948319, 866053439, 866550239, 870569279, 884116319, 884516639, 889744799, 890295359, 893408639, 897939839, 905314559, 922996799, 930084479, 940581119, 948754559, 950479679, 972872639, 977909279, 981136799, 987119039, 994490879, 995935679, 1013560319, 1014659039, 1020888959, 1020940799, 1022773919, 1026408479, 1026612479, 1027493759, 1029072959, 1029416639, 1029559199, 1031217599, 1032515999, 1034854559, 1039835519, 1058656799, 1059411359, 1062500639, 1064259839, 1064813759, 1068706559, 1070791199, 1074254879, 1076956319, 1080293759, 1098755039, 1099488959, 1106155679, 1107364799, 1111231679, 1131892319, 1132869119, 1134957119, 1153121279, 1156111679, 1156679519, 1160260799, 1161473759, 1165024319, 1186719839, 1186839359, 1203721439, 1215071519, 1215714719, 1221127199, 1222394879, 1252661759, 1257703199, 1260608159, 1263120479, 1265638079, 1270654079, 1275275999, 1278569759, 1283208959, 1284393599, 1284460319, 1285079039, 1286741759, 1292195519, 1311866399, 1314589919, 1318924319, 1320903359, 1322995679, 1324269119, 1325540159, 1326175199, 1326856319, 1349696639, 1355927999, 1356464639, 1370379359, 1375267679, 1387627679, 1391950559, 1392114719, 1393568159, 1393664159, 1395820799, 1399808639, 1404525119, 1408736639, 1410784799, 1411329119, 1416064799, 1416065279, 1421387519, 1423527839, 1424187839, 1429656479, 1434457439, 1434603839, 1438046399, 1442651999, 1443257759, 1444113599, 1445908319, 1448485439, 1450997279, 1452984959, 1455469439, 1456616639, 1458389279, 1458669119, 1459046399, 1464635519, 1468067039, 1476309599, 1478634239, 1516167839, 1517775839, 1521770399, 1523106239, 1527216479, 1540472639, 1545698879, 1547272319, 1573123199, 1599534239, 1600962239, 1625134079, 1639319519, 1656291359, 1660111199, 1660894559, 1666848959, 1667250239, 1671591359, 1675593119, 1681363199, 1681746239, 1701379679, 1710572639, 1719896639, 1731974879, 1732106879, 1764498719, 1766451839, 1766862719, 1769066879, 1787317439, 1810548959, 1823672639, 1839942719, 1845993599, 1894302239, 1896107999, 1897786559, 1898704799, 1907839679, 1908667679, 1910285759, 1914359039, 1916086079, 1918119839, 1919312159, 1921377119, 1937126879, 1945745279, 1969537919, 1969558079, 2001695519, 2007920639, 2008644959, 2009605439, 2015111999, 2027120639, 2052816959, 2053224959, 2078699999, 2080610879, 2101077599, 2122069919, 2128558079, 2167804799, 2171561279, 2172102239, 2173055519, 2178480959, 2184587039, 2191815359, 2197510079, 2198977919, 2214729599, 2247105599, 2251856639, 2292845279, 2299156799, 2313359039, 2322947519, 2338916159, 2373678719, 2421226079, 2424951359, 2444789759, 2505323519, 2515870079, 2550551999, 2577508799, 2623732799, 2641806719, 2654225279, 2662699199, 2673382079, 2698270559, 2712929279, 2747672639, 2754924479, 2771821439, 2808271199, 2821569599, 2869945439, 2879143199, 2889598079, 2891816639, 2919547199, 2968411679, 2968877279, 2994760799, 2998485599, 3005318399, 3005583359, 3007995359, 3011102399, 3012810719, 3013597439, 3020962559, 3025293119, 3030675359, 3038706239, 3038836799, 3042083039, 3042636959, 3043451039, 3046787519, 3047909279, 3061519199, 3061977599, 3066598079, 3069783359, 3072601919, 3083689919, 3101292479, 3146246399, 3218350559, 3229026239, 3243615359, 3250268159, 3297204479, 3333697919, 3363492479, 3394249919, 3448716959, 3463949759, 3512928479, 3533657759, 3535679039, 3578241119, 3595628159, 3611986559, 3653085119, 3656115839, 3674330879, 3722828639, 3747958079, 3767050559, 3797409599, 3868833119, 3875860799, 3880120319, 3880188479, 3911789279, 3951168479, 3951305279, 3951942719, 3957574079, 3987113279, 4019210879, 4079476799, 4119102719, 4135742399, 4157399999, 4204561919, 4258264799, 4273846079, 4336385759, 4369291679, 4370446079, 4397955839, 4434271679, 4505873279, 4523567039, 4527423359, 4529622719, 4566931679, 4606330559, 4643909759, 4683735359, 4698635519, 4778581439, 4780059359, 4783971359, 4785164159, 4799836799, 4802938079, 4809383039, 4809875039, 4815635999, 4818523679, 4820682719, 4824827999, 4864868159, 4869037919, 4873620959, 4879038239, 4879945919, 4901721599, 4913938559, 4925238719, 4974061439, 4979895359, 4988961599, 5041508159, 5045654399, 5089451999, 5098644479, 5106916799, 5118030719, 5152667519, 5157114239, 5202307679, 5206259519, 5265095519, 5316268319, 5317388159, 5325044639, 5334352319, 5340086399, 5347224959, 5369108159, 5421625439, 5425989599, 5474891519, 5485821119, 5495345279, 5545151999, 5557444799, 5636100959, 5643139199, 5719161599, 5758286399, 5816781119, 5873981759, 5900770559, 5936823359, 5989521599, 5996971199, 6025621439, 6061350719, 6077673599, 6085273919, 6093575039, 6096193919, 6105909119, 6133196159, 6254915039, 6258453599, 6275121599, 6328583519, 6330292799, 6351346559, 6364565759, 6386244479, 6423133439, 6437208959, 6492003839, 6514728959, 6571712639, 6644713919, 6665070719, 6688822079, 6709214399, 6726984959, 6820139519, 6854889599, 6860383679, 6945219839, 6954712319, 6979304639, 6987447359, 7018198079, 7070345279, 7077683519, 7107810239, 7130181119, 7171882559, 7204729919, 7243716479, 7302173279, 7352142719, 7352649119, 7364107679, 7366772159, 7421494079, 7533633599, 7556989439, 7611914879, 7639423679, 7652263679, 7687991999, 7724777279, 7760376959, 7931808959, 7944409919, 7945905599, 7978983359, 8019718079, 8032347839, 8051351039, 8087217599, 8179017599, 8260840319, 8278602239, 8282453759, 8358113279, 8380133759, 8447663999, 8481686399, 8491095359, 8502626879, 8554752959, 8558522879, 8631543359, 8772193439, 8776035839, 8779954559, 8781722399, 8790856799, 8795511359, 8805419999, 8806719359, 8820246719, 8825478239, 8827274399, 8832211679, 8834094719, 8841006719, 8935862399, 8942114879, 9036256319, 9069193919, 9142779839, 9178498559, 9225914879, 9272504639, 9290627519, 9295453439, 9310932479, 9437167679, 9457706879, 9499303679, 9619750079, 9631271999, 9641365439, 9683593919, 9697728959, 9738075839, 9766162559, 9815519999, 9821011199, 9847944959, 9948122879, 10034656319, 10045226879, 10067318399, 10090694399, 10137304319, 10187002559, 10197195839, 10236061439, 10384210559, 10404615359, 10493358719, 10519262399, 10589495999, 10598756159}

%I A000005
%N A000005 Records of A333123.
%S A000005 1, 6, 12, 14, 21, 30, 33, 35, 42, 62, 63, 66, 69, 77, 105, 129, 141, 154, 161, 209, 213, 215, 217, 231, 301, 322, 329, 434, 437, 462, 469, 473, 483, 645, 651, 658, 693, 805, 893, 966, 973, 987, 989, 1333, 1407, 1419, 1645, 1771, 1943, 1946, 1974, 1977, 1981, 2021, 2841, 2881, 2967
%O A000005 1,2
%C A000005 Only 18 terms are even.
%C A000005
%D A000005
%H A000005
%f A000005
%e A000005
%t A000005 a[n_] := Block[{m = n, p, t = 0}, While[m > 1, p = FactorInteger[m][[1, 1]]; t += p; m = m - m/p]; t]; Array[a, 70]
%Y A000005
%K A000005
%A A000005
%E A000005

{1, 6, 12, 14, 21, 30, 33, 35, 42, 62, 63, 66, 69, 77, 105, 129, 141, 154, 161, 209, 213, 215, 217, 231, 301, 322, 329, 434, 437, 462, 469, 473, 483, 645, 651, 658, 693, 805, 893, 966, 973, 987, 989, 1333, 1407, 1419, 1645, 1771, 1943, 1946, 1974, 1977, 1981, 2021, 2841, 2881, 2967, 3311, 3619, 4042, 4277, 4613, 4935, 4945, 4991, 5313, 5931, 5934, 5937, 5969, 5977, 6063, 6923, 8319, 9177, 9499, 10011, 10105, 10199, 10857, 12169, 13839, 13853, 14147, 18753, 18791, 19411, 20769, 21747, 21791, 22043, 22231, 26273, 27699, 28294, 28337, 34615, 36507, 37527, 37563, 38399, 42441, 45563, 46483, 56717, 58233, 62651, 66693, 70735, 76153, 85011, 85183, 91601, 93013, 94987, 99029, 101563, 106099, 116607, 116879, 119239, 133859, 135407, 139449, 143491, 155617, 198359, 212221, 212359, 234041, 265119, 268001, 268793, 272083, 279039, 279887, 309071, 311563, 311707, 325381, 406221, 418817, 422389, 433951, 466851, 537887, 538403, 560057, 571943, 618611, 623887, 624073, 637077, 651091, 651751, 815323, 834673, 883177, 934689, 937013, 947849, 976143, 1152093, 1177633, 1177867, 1249093, 1283387, 1301853, 1304161, 1304491, 1331839, 1671367, 1767247, 1767343, 1872219, 1876007, 1898579, 1955253, 1959209, 2265541, 2277667, 2357053, 2504019, 2568093, 2572733, 2574451, 2604223, 2610301, 2665699, 3300293, 3433679, 3483479, 3533601, 3611527, 3800039, 3912483, 3913473, 3938843, 4003601, 4562257, 5214007, 5317853, 5369649, 5382943, 5493313, 5927593, 6182239, 6257909, 6259841, 7071159, 7092263, 7169261, 7746487, 7830893, 7830903, 7883663, 7997097, 8245069, 9129127, 9131437, 10817119, 10972761, 10999927, 11873203, 12370729, 12371401, 12383269, 12529181, 13452481, 14117257, 14228053, 14320383, 14349401, 14650229, 15680747, 15812059, 16050911, 16513333, 18272107, 18659893, 22023343, 23650989, 23764423, 23774743, 24735207, 24755311, 24779059, 24785329, 25304941, 25603109, 28742329, 29074717, 29322689, 32531699, 33043363, 33744637, 37376503, 38414369, 38441441, 38453309, 43327273, 43667317, 44039611, 46274321, 47585563, 49498113, 49571647, 49595719, 50638219, 50648281, 55979679, 58707371, 60097597, 61311077, 69458903, 69472439, 69494153, 75266097, 75719833, 75754027, 76809327, 76964969, 78578501, 86720293, 87400897, 87968067, 89233213, 90695759, 94560569, 99797969, 101298583, 101353279, 111981589, 112242943, 112356377, 115593331, 122684147, 138991079, 139050299, 150580997, 151623007, 153804633, 157276241, 176560021, 178601833, 189264629, 205258823, 230765253, 230836497, 230894907, 231466549, 236212459, 253076429, 269090087, 269173163, 278354351, 281634199, 303895749, 303951679, 304059837, 304967309, 308700079, 352306219, 353493319, 358877477, 369170953, 410951597, 429177539, 465136117, 471828723, 472996861, 486459071, 535805499, 538754783, 557131091, 588871507} (610000000)

Even terms: {6, 12, 14, 30, 42, 62, 66, 154, 322, 434, 462, 658, 966, 1946, 1974, 4042, 5934, 28294}

AHP Venture, LLC
Robert G. Wilson V
1082 N.W. 139th Terrace
Pembroke Pines, FL 33028-2340
Cel: (316) 640-9841

```