[Reto] Zig Zag (OJO ANALISIS)

Iniciado por BlackZeroX, 2 Enero 2011, 09:53 AM

0 Miembros y 1 Visitante están viendo este tema.

BlackZeroX

Ejmplo con el Numero 10000


100181700 100186749 100191895 100197136 100202470 100207895 100213409 100219010 100224696 100230465 100236315 100242244 100248250 100254331 100260485 100266710 100273004 100279365 100285791 100292280 100298830 100305439 100312105 100318826 100325600 100332425 100339299 100346220 100353186 100360195 100367245 100374334 100381460 100388621 100395815 100403040 100410294 100417575 100424881 100432210 100439560 100446929 100454315 100461716 100469130 100476555 100483989 100491430 100498876 100506325 100513775 100521224 100528670 100536111 100543545 100550970 100558384 100565785 100573171 100580540 100587890 100595219 100602525 100609806 100617060 100624285 100631479 100638640 100645766 100652855 100659905 100666914 100673880 100680801 100687675 100694500 100701274 100707995 100714661 100721270 100727820 100734309 100740735 100747096 100753390 100759615 100765769 100771850 100777856 100783785 100789635 100795404 100801090 100806691 100812205 100817630 100822964 100828205 100833351 100838400 50005000
1 2 4 7 11 16 22 29 37 46 56 67 79 92 106 121 137 154 172 191 211 232 254 277 301 326 352 379 407 436 466 497 529 562 596 631 667 704 742 781 821 862 904 947 991 1036 1082 1129 1177 1226 1276 1327 1379 1432 1486 1541 1597 1654 1712 1771 1831 1892 1954 2017 2081 2146 2212 2279 2347 2416 2486 2557 2629 2702 2776 2851 2927 3004 3082 3161 3241 3322 3404 3487 3571 3656 3742 3829 3917 4006 4096 4187 4279 4372 4466 4561 4657 4754 4852 4951 166750
3 5 8 12 17 23 30 38 47 57 68 80 93 107 122 138 155 173 192 212 233 255 278 302 327 353 380 408 437 467 498 530 563 597 632 668 705 743 782 822 863 905 948 992 1037 1083 1130 1178 1227 1277 1328 1380 1433 1487 1542 1598 1655 1713 1772 1832 1893 1955 2018 2082 2147 2213 2280 2348 2417 2487 2558 2630 2703 2777 2852 2928 3005 3083 3162 3242 3323 3405 3488 3572 3657 3743 3830 3918 4007 4097 4188 4280 4373 4467 4562 4658 4755 4853 4952 5051 171899
6 9 13 18 24 31 39 48 58 69 81 94 108 123 139 156 174 193 213 234 256 279 303 328 354 381 409 438 468 499 531 564 598 633 669 706 744 783 823 864 906 949 993 1038 1084 1131 1179 1228 1278 1329 1381 1434 1488 1543 1599 1656 1714 1773 1833 1894 1956 2019 2083 2148 2214 2281 2349 2418 2488 2559 2631 2704 2778 2853 2929 3006 3084 3163 3243 3324 3406 3489 3573 3658 3744 3831 3919 4008 4098 4189 4281 4374 4468 4563 4659 4756 4854 4953 5052 5150 177145
10 14 19 25 32 40 49 59 70 82 95 109 124 140 157 175 194 214 235 257 280 304 329 355 382 410 439 469 500 532 565 599 634 670 707 745 784 824 865 907 950 994 1039 1085 1132 1180 1229 1279 1330 1382 1435 1489 1544 1600 1657 1715 1774 1834 1895 1957 2020 2084 2149 2215 2282 2350 2419 2489 2560 2632 2705 2779 2854 2930 3007 3085 3164 3244 3325 3407 3490 3574 3659 3745 3832 3920 4009 4099 4190 4282 4375 4469 4564 4660 4757 4855 4954 5053 5151 5248 182486
15 20 26 33 41 50 60 71 83 96 110 125 141 158 176 195 215 236 258 281 305 330 356 383 411 440 470 501 533 566 600 635 671 708 746 785 825 866 908 951 995 1040 1086 1133 1181 1230 1280 1331 1383 1436 1490 1545 1601 1658 1716 1775 1835 1896 1958 2021 2085 2150 2216 2283 2351 2420 2490 2561 2633 2706 2780 2855 2931 3008 3086 3165 3245 3326 3408 3491 3575 3660 3746 3833 3921 4010 4100 4191 4283 4376 4470 4565 4661 4758 4856 4955 5054 5152 5249 5345 187920
21 27 34 42 51 61 72 84 97 111 126 142 159 177 196 216 237 259 282 306 331 357 384 412 441 471 502 534 567 601 636 672 709 747 786 826 867 909 952 996 1041 1087 1134 1182 1231 1281 1332 1384 1437 1491 1546 1602 1659 1717 1776 1836 1897 1959 2022 2086 2151 2217 2284 2352 2421 2491 2562 2634 2707 2781 2856 2932 3009 3087 3166 3246 3327 3409 3492 3576 3661 3747 3834 3922 4011 4101 4192 4284 4377 4471 4566 4662 4759 4857 4956 5055 5153 5250 5346 5441 193445
28 35 43 52 62 73 85 98 112 127 143 160 178 197 217 238 260 283 307 332 358 385 413 442 472 503 535 568 602 637 673 710 748 787 827 868 910 953 997 1042 1088 1135 1183 1232 1282 1333 1385 1438 1492 1547 1603 1660 1718 1777 1837 1898 1960 2023 2087 2152 2218 2285 2353 2422 2492 2563 2635 2708 2782 2857 2933 3010 3088 3167 3247 3328 3410 3493 3577 3662 3748 3835 3923 4012 4102 4193 4285 4378 4472 4567 4663 4760 4858 4957 5056 5154 5251 5347 5442 5536 199059
36 44 53 63 74 86 99 113 128 144 161 179 198 218 239 261 284 308 333 359 386 414 443 473 504 536 569 603 638 674 711 749 788 828 869 911 954 998 1043 1089 1136 1184 1233 1283 1334 1386 1439 1493 1548 1604 1661 1719 1778 1838 1899 1961 2024 2088 2153 2219 2286 2354 2423 2493 2564 2636 2709 2783 2858 2934 3011 3089 3168 3248 3329 3411 3494 3578 3663 3749 3836 3924 4013 4103 4194 4286 4379 4473 4568 4664 4761 4859 4958 5057 5155 5252 5348 5443 5537 5630 204760
45 54 64 75 87 100 114 129 145 162 180 199 219 240 262 285 309 334 360 387 415 444 474 505 537 570 604 639 675 712 750 789 829 870 912 955 999 1044 1090 1137 1185 1234 1284 1335 1387 1440 1494 1549 1605 1662 1720 1779 1839 1900 1962 2025 2089 2154 2220 2287 2355 2424 2494 2565 2637 2710 2784 2859 2935 3012 3090 3169 3249 3330 3412 3495 3579 3664 3750 3837 3925 4014 4104 4195 4287 4380 4474 4569 4665 4762 4860 4959 5058 5156 5253 5349 5444 5538 5631 5723 210546
55 65 76 88 101 115 130 146 163 181 200 220 241 263 286 310 335 361 388 416 445 475 506 538 571 605 640 676 713 751 790 830 871 913 956 1000 1045 1091 1138 1186 1235 1285 1336 1388 1441 1495 1550 1606 1663 1721 1780 1840 1901 1963 2026 2090 2155 2221 2288 2356 2425 2495 2566 2638 2711 2785 2860 2936 3013 3091 3170 3250 3331 3413 3496 3580 3665 3751 3838 3926 4015 4105 4196 4288 4381 4475 4570 4666 4763 4861 4960 5059 5157 5254 5350 5445 5539 5632 5724 5815 216415
66 77 89 102 116 131 147 164 182 201 221 242 264 287 311 336 362 389 417 446 476 507 539 572 606 641 677 714 752 791 831 872 914 957 1001 1046 1092 1139 1187 1236 1286 1337 1389 1442 1496 1551 1607 1664 1722 1781 1841 1902 1964 2027 2091 2156 2222 2289 2357 2426 2496 2567 2639 2712 2786 2861 2937 3014 3092 3171 3251 3332 3414 3497 3581 3666 3752 3839 3927 4016 4106 4197 4289 4382 4476 4571 4667 4764 4862 4961 5060 5158 5255 5351 5446 5540 5633 5725 5816 5906 222365
78 90 103 117 132 148 165 183 202 222 243 265 288 312 337 363 390 418 447 477 508 540 573 607 642 678 715 753 792 832 873 915 958 1002 1047 1093 1140 1188 1237 1287 1338 1390 1443 1497 1552 1608 1665 1723 1782 1842 1903 1965 2028 2092 2157 2223 2290 2358 2427 2497 2568 2640 2713 2787 2862 2938 3015 3093 3172 3252 3333 3415 3498 3582 3667 3753 3840 3928 4017 4107 4198 4290 4383 4477 4572 4668 4765 4863 4962 5061 5159 5256 5352 5447 5541 5634 5726 5817 5907 5996 228394
91 104 118 133 149 166 184 203 223 244 266 289 313 338 364 391 419 448 478 509 541 574 608 643 679 716 754 793 833 874 916 959 1003 1048 1094 1141 1189 1238 1288 1339 1391 1444 1498 1553 1609 1666 1724 1783 1843 1904 1966 2029 2093 2158 2224 2291 2359 2428 2498 2569 2641 2714 2788 2863 2939 3016 3094 3173 3253 3334 3416 3499 3583 3668 3754 3841 3929 4018 4108 4199 4291 4384 4478 4573 4669 4766 4864 4963 5062 5160 5257 5353 5448 5542 5635 5727 5818 5908 5997 6085 234500
105 119 134 150 167 185 204 224 245 267 290 314 339 365 392 420 449 479 510 542 575 609 644 680 717 755 794 834 875 917 960 1004 1049 1095 1142 1190 1239 1289 1340 1392 1445 1499 1554 1610 1667 1725 1784 1844 1905 1967 2030 2094 2159 2225 2292 2360 2429 2499 2570 2642 2715 2789 2864 2940 3017 3095 3174 3254 3335 3417 3500 3584 3669 3755 3842 3930 4019 4109 4200 4292 4385 4479 4574 4670 4767 4865 4964 5063 5161 5258 5354 5449 5543 5636 5728 5819 5909 5998 6086 6173 240681
120 135 151 168 186 205 225 246 268 291 315 340 366 393 421 450 480 511 543 576 610 645 681 718 756 795 835 876 918 961 1005 1050 1096 1143 1191 1240 1290 1341 1393 1446 1500 1555 1611 1668 1726 1785 1845 1906 1968 2031 2095 2160 2226 2293 2361 2430 2500 2571 2643 2716 2790 2865 2941 3018 3096 3175 3255 3336 3418 3501 3585 3670 3756 3843 3931 4020 4110 4201 4293 4386 4480 4575 4671 4768 4866 4965 5064 5162 5259 5355 5450 5544 5637 5729 5820 5910 5999 6087 6174 6260 246935
136 152 169 187 206 226 247 269 292 316 341 367 394 422 451 481 512 544 577 611 646 682 719 757 796 836 877 919 962 1006 1051 1097 1144 1192 1241 1291 1342 1394 1447 1501 1556 1612 1669 1727 1786 1846 1907 1969 2032 2096 2161 2227 2294 2362 2431 2501 2572 2644 2717 2791 2866 2942 3019 3097 3176 3256 3337 3419 3502 3586 3671 3757 3844 3932 4021 4111 4202 4294 4387 4481 4576 4672 4769 4867 4966 5065 5163 5260 5356 5451 5545 5638 5730 5821 5911 6000 6088 6175 6261 6346 253260
153 170 188 207 227 248 270 293 317 342 368 395 423 452 482 513 545 578 612 647 683 720 758 797 837 878 920 963 1007 1052 1098 1145 1193 1242 1292 1343 1395 1448 1502 1557 1613 1670 1728 1787 1847 1908 1970 2033 2097 2162 2228 2295 2363 2432 2502 2573 2645 2718 2792 2867 2943 3020 3098 3177 3257 3338 3420 3503 3587 3672 3758 3845 3933 4022 4112 4203 4295 4388 4482 4577 4673 4770 4868 4967 5066 5164 5261 5357 5452 5546 5639 5731 5822 5912 6001 6089 6176 6262 6347 6431 259654
171 189 208 228 249 271 294 318 343 369 396 424 453 483 514 546 579 613 648 684 721 759 798 838 879 921 964 1008 1053 1099 1146 1194 1243 1293 1344 1396 1449 1503 1558 1614 1671 1729 1788 1848 1909 1971 2034 2098 2163 2229 2296 2364 2433 2503 2574 2646 2719 2793 2868 2944 3021 3099 3178 3258 3339 3421 3504 3588 3673 3759 3846 3934 4023 4113 4204 4296 4389 4483 4578 4674 4771 4869 4968 5067 5165 5262 5358 5453 5547 5640 5732 5823 5913 6002 6090 6177 6263 6348 6432 6515 266115
190 209 229 250 272 295 319 344 370 397 425 454 484 515 547 580 614 649 685 722 760 799 839 880 922 965 1009 1054 1100 1147 1195 1244 1294 1345 1397 1450 1504 1559 1615 1672 1730 1789 1849 1910 1972 2035 2099 2164 2230 2297 2365 2434 2504 2575 2647 2720 2794 2869 2945 3022 3100 3179 3259 3340 3422 3505 3589 3674 3760 3847 3935 4024 4114 4205 4297 4390 4484 4579 4675 4772 4870 4969 5068 5166 5263 5359 5454 5548 5641 5733 5824 5914 6003 6091 6178 6264 6349 6433 6516 6598 272641
210 230 251 273 296 320 345 371 398 426 455 485 516 548 581 615 650 686 723 761 800 840 881 923 966 1010 1055 1101 1148 1196 1245 1295 1346 1398 1451 1505 1560 1616 1673 1731 1790 1850 1911 1973 2036 2100 2165 2231 2298 2366 2435 2505 2576 2648 2721 2795 2870 2946 3023 3101 3180 3260 3341 3423 3506 3590 3675 3761 3848 3936 4025 4115 4206 4298 4391 4485 4580 4676 4773 4871 4970 5069 5167 5264 5360 5455 5549 5642 5734 5825 5915 6004 6092 6179 6265 6350 6434 6517 6599 6680 279230
231 252 274 297 321 346 372 399 427 456 486 517 549 582 616 651 687 724 762 801 841 882 924 967 1011 1056 1102 1149 1197 1246 1296 1347 1399 1452 1506 1561 1617 1674 1732 1791 1851 1912 1974 2037 2101 2166 2232 2299 2367 2436 2506 2577 2649 2722 2796 2871 2947 3024 3102 3181 3261 3342 3424 3507 3591 3676 3762 3849 3937 4026 4116 4207 4299 4392 4486 4581 4677 4774 4872 4971 5070 5168 5265 5361 5456 5550 5643 5735 5826 5916 6005 6093 6180 6266 6351 6435 6518 6600 6681 6761 285880
253 275 298 322 347 373 400 428 457 487 518 550 583 617 652 688 725 763 802 842 883 925 968 1012 1057 1103 1150 1198 1247 1297 1348 1400 1453 1507 1562 1618 1675 1733 1792 1852 1913 1975 2038 2102 2167 2233 2300 2368 2437 2507 2578 2650 2723 2797 2872 2948 3025 3103 3182 3262 3343 3425 3508 3592 3677 3763 3850 3938 4027 4117 4208 4300 4393 4487 4582 4678 4775 4873 4972 5071 5169 5266 5362 5457 5551 5644 5736 5827 5917 6006 6094 6181 6267 6352 6436 6519 6601 6682 6762 6841 292589
276 299 323 348 374 401 429 458 488 519 551 584 618 653 689 726 764 803 843 884 926 969 1013 1058 1104 1151 1199 1248 1298 1349 1401 1454 1508 1563 1619 1676 1734 1793 1853 1914 1976 2039 2103 2168 2234 2301 2369 2438 2508 2579 2651 2724 2798 2873 2949 3026 3104 3183 3263 3344 3426 3509 3593 3678 3764 3851 3939 4028 4118 4209 4301 4394 4488 4583 4679 4776 4874 4973 5072 5170 5267 5363 5458 5552 5645 5737 5828 5918 6007 6095 6182 6268 6353 6437 6520 6602 6683 6763 6842 6920 299355
300 324 349 375 402 430 459 489 520 552 585 619 654 690 727 765 804 844 885 927 970 1014 1059 1105 1152 1200 1249 1299 1350 1402 1455 1509 1564 1620 1677 1735 1794 1854 1915 1977 2040 2104 2169 2235 2302 2370 2439 2509 2580 2652 2725 2799 2874 2950 3027 3105 3184 3264 3345 3427 3510 3594 3679 3765 3852 3940 4029 4119 4210 4302 4395 4489 4584 4680 4777 4875 4974 5073 5171 5268 5364 5459 5553 5646 5738 5829 5919 6008 6096 6183 6269 6354 6438 6521 6603 6684 6764 6843 6921 6998 306176
325 350 376 403 431 460 490 521 553 586 620 655 691 728 766 805 845 886 928 971 1015 1060 1106 1153 1201 1250 1300 1351 1403 1456 1510 1565 1621 1678 1736 1795 1855 1916 1978 2041 2105 2170 2236 2303 2371 2440 2510 2581 2653 2726 2800 2875 2951 3028 3106 3185 3265 3346 3428 3511 3595 3680 3766 3853 3941 4030 4120 4211 4303 4396 4490 4585 4681 4778 4876 4975 5074 5172 5269 5365 5460 5554 5647 5739 5830 5920 6009 6097 6184 6270 6355 6439 6522 6604 6685 6765 6844 6922 6999 7075 313050
351 377 404 432 461 491 522 554 587 621 656 692 729 767 806 846 887 929 972 1016 1061 1107 1154 1202 1251 1301 1352 1404 1457 1511 1566 1622 1679 1737 1796 1856 1917 1979 2042 2106 2171 2237 2304 2372 2441 2511 2582 2654 2727 2801 2876 2952 3029 3107 3186 3266 3347 3429 3512 3596 3681 3767 3854 3942 4031 4121 4212 4304 4397 4491 4586 4682 4779 4877 4976 5075 5173 5270 5366 5461 5555 5648 5740 5831 5921 6010 6098 6185 6271 6356 6440 6523 6605 6686 6766 6845 6923 7000 7076 7151 319975
378 405 433 462 492 523 555 588 622 657 693 730 768 807 847 888 930 973 1017 1062 1108 1155 1203 1252 1302 1353 1405 1458 1512 1567 1623 1680 1738 1797 1857 1918 1980 2043 2107 2172 2238 2305 2373 2442 2512 2583 2655 2728 2802 2877 2953 3030 3108 3187 3267 3348 3430 3513 3597 3682 3768 3855 3943 4032 4122 4213 4305 4398 4492 4587 4683 4780 4878 4977 5076 5174 5271 5367 5462 5556 5649 5741 5832 5922 6011 6099 6186 6272 6357 6441 6524 6606 6687 6767 6846 6924 7001 7077 7152 7226 326949
406 434 463 493 524 556 589 623 658 694 731 769 808 848 889 931 974 1018 1063 1109 1156 1204 1253 1303 1354 1406 1459 1513 1568 1624 1681 1739 1798 1858 1919 1981 2044 2108 2173 2239 2306 2374 2443 2513 2584 2656 2729 2803 2878 2954 3031 3109 3188 3268 3349 3431 3514 3598 3683 3769 3856 3944 4033 4123 4214 4306 4399 4493 4588 4684 4781 4879 4978 5077 5175 5272 5368 5463 5557 5650 5742 5833 5923 6012 6100 6187 6273 6358 6442 6525 6607 6688 6768 6847 6925 7002 7078 7153 7227 7300 333970
435 464 494 525 557 590 624 659 695 732 770 809 849 890 932 975 1019 1064 1110 1157 1205 1254 1304 1355 1407 1460 1514 1569 1625 1682 1740 1799 1859 1920 1982 2045 2109 2174 2240 2307 2375 2444 2514 2585 2657 2730 2804 2879 2955 3032 3110 3189 3269 3350 3432 3515 3599 3684 3770 3857 3945 4034 4124 4215 4307 4400 4494 4589 4685 4782 4880 4979 5078 5176 5273 5369 5464 5558 5651 5743 5834 5924 6013 6101 6188 6274 6359 6443 6526 6608 6689 6769 6848 6926 7003 7079 7154 7228 7301 7373 341036
465 495 526 558 591 625 660 696 733 771 810 850 891 933 976 1020 1065 1111 1158 1206 1255 1305 1356 1408 1461 1515 1570 1626 1683 1741 1800 1860 1921 1983 2046 2110 2175 2241 2308 2376 2445 2515 2586 2658 2731 2805 2880 2956 3033 3111 3190 3270 3351 3433 3516 3600 3685 3771 3858 3946 4035 4125 4216 4308 4401 4495 4590 4686 4783 4881 4980 5079 5177 5274 5370 5465 5559 5652 5744 5835 5925 6014 6102 6189 6275 6360 6444 6527 6609 6690 6770 6849 6927 7004 7080 7155 7229 7302 7374 7445 348145
496 527 559 592 626 661 697 734 772 811 851 892 934 977 1021 1066 1112 1159 1207 1256 1306 1357 1409 1462 1516 1571 1627 1684 1742 1801 1861 1922 1984 2047 2111 2176 2242 2309 2377 2446 2516 2587 2659 2732 2806 2881 2957 3034 3112 3191 3271 3352 3434 3517 3601 3686 3772 3859 3947 4036 4126 4217 4309 4402 4496 4591 4687 4784 4882 4981 5080 5178 5275 5371 5466 5560 5653 5745 5836 5926 6015 6103 6190 6276 6361 6445 6528 6610 6691 6771 6850 6928 7005 7081 7156 7230 7303 7375 7446 7516 355295
528 560 593 627 662 698 735 773 812 852 893 935 978 1022 1067 1113 1160 1208 1257 1307 1358 1410 1463 1517 1572 1628 1685 1743 1802 1862 1923 1985 2048 2112 2177 2243 2310 2378 2447 2517 2588 2660 2733 2807 2882 2958 3035 3113 3192 3272 3353 3435 3518 3602 3687 3773 3860 3948 4037 4127 4218 4310 4403 4497 4592 4688 4785 4883 4982 5081 5179 5276 5372 5467 5561 5654 5746 5837 5927 6016 6104 6191 6277 6362 6446 6529 6611 6692 6772 6851 6929 7006 7082 7157 7231 7304 7376 7447 7517 7586 362484
561 594 628 663 699 736 774 813 853 894 936 979 1023 1068 1114 1161 1209 1258 1308 1359 1411 1464 1518 1573 1629 1686 1744 1803 1863 1924 1986 2049 2113 2178 2244 2311 2379 2448 2518 2589 2661 2734 2808 2883 2959 3036 3114 3193 3273 3354 3436 3519 3603 3688 3774 3861 3949 4038 4128 4219 4311 4404 4498 4593 4689 4786 4884 4983 5082 5180 5277 5373 5468 5562 5655 5747 5838 5928 6017 6105 6192 6278 6363 6447 6530 6612 6693 6773 6852 6930 7007 7083 7158 7232 7305 7377 7448 7518 7587 7655 369710
595 629 664 700 737 775 814 854 895 937 980 1024 1069 1115 1162 1210 1259 1309 1360 1412 1465 1519 1574 1630 1687 1745 1804 1864 1925 1987 2050 2114 2179 2245 2312 2380 2449 2519 2590 2662 2735 2809 2884 2960 3037 3115 3194 3274 3355 3437 3520 3604 3689 3775 3862 3950 4039 4129 4220 4312 4405 4499 4594 4690 4787 4885 4984 5083 5181 5278 5374 5469 5563 5656 5748 5839 5929 6018 6106 6193 6279 6364 6448 6531 6613 6694 6774 6853 6931 7008 7084 7159 7233 7306 7378 7449 7519 7588 7656 7723 376971
630 665 701 738 776 815 855 896 938 981 1025 1070 1116 1163 1211 1260 1310 1361 1413 1466 1520 1575 1631 1688 1746 1805 1865 1926 1988 2051 2115 2180 2246 2313 2381 2450 2520 2591 2663 2736 2810 2885 2961 3038 3116 3195 3275 3356 3438 3521 3605 3690 3776 3863 3951 4040 4130 4221 4313 4406 4500 4595 4691 4788 4886 4985 5084 5182 5279 5375 5470 5564 5657 5749 5840 5930 6019 6107 6194 6280 6365 6449 6532 6614 6695 6775 6854 6932 7009 7085 7160 7234 7307 7379 7450 7520 7589 7657 7724 7790 384265
666 702 739 777 816 856 897 939 982 1026 1071 1117 1164 1212 1261 1311 1362 1414 1467 1521 1576 1632 1689 1747 1806 1866 1927 1989 2052 2116 2181 2247 2314 2382 2451 2521 2592 2664 2737 2811 2886 2962 3039 3117 3196 3276 3357 3439 3522 3606 3691 3777 3864 3952 4041 4131 4222 4314 4407 4501 4596 4692 4789 4887 4986 5085 5183 5280 5376 5471 5565 5658 5750 5841 5931 6020 6108 6195 6281 6366 6450 6533 6615 6696 6776 6855 6933 7010 7086 7161 7235 7308 7380 7451 7521 7590 7658 7725 7791 7856 391590
703 740 778 817 857 898 940 983 1027 1072 1118 1165 1213 1262 1312 1363 1415 1468 1522 1577 1633 1690 1748 1807 1867 1928 1990 2053 2117 2182 2248 2315 2383 2452 2522 2593 2665 2738 2812 2887 2963 3040 3118 3197 3277 3358 3440 3523 3607 3692 3778 3865 3953 4042 4132 4223 4315 4408 4502 4597 4693 4790 4888 4987 5086 5184 5281 5377 5472 5566 5659 5751 5842 5932 6021 6109 6196 6282 6367 6451 6534 6616 6697 6777 6856 6934 7011 7087 7162 7236 7309 7381 7452 7522 7591 7659 7726 7792 7857 7921 398944
741 779 818 858 899 941 984 1028 1073 1119 1166 1214 1263 1313 1364 1416 1469 1523 1578 1634 1691 1749 1808 1868 1929 1991 2054 2118 2183 2249 2316 2384 2453 2523 2594 2666 2739 2813 2888 2964 3041 3119 3198 3278 3359 3441 3524 3608 3693 3779 3866 3954 4043 4133 4224 4316 4409 4503 4598 4694 4791 4889 4988 5087 5185 5282 5378 5473 5567 5660 5752 5843 5933 6022 6110 6197 6283 6368 6452 6535 6617 6698 6778 6857 6935 7012 7088 7163 7237 7310 7382 7453 7523 7592 7660 7727 7793 7858 7922 7985 406325
780 819 859 900 942 985 1029 1074 1120 1167 1215 1264 1314 1365 1417 1470 1524 1579 1635 1692 1750 1809 1869 1930 1992 2055 2119 2184 2250 2317 2385 2454 2524 2595 2667 2740 2814 2889 2965 3042 3120 3199 3279 3360 3442 3525 3609 3694 3780 3867 3955 4044 4134 4225 4317 4410 4504 4599 4695 4792 4890 4989 5088 5186 5283 5379 5474 5568 5661 5753 5844 5934 6023 6111 6198 6284 6369 6453 6536 6618 6699 6779 6858 6936 7013 7089 7164 7238 7311 7383 7454 7524 7593 7661 7728 7794 7859 7923 7986 8048 413731
820 860 901 943 986 1030 1075 1121 1168 1216 1265 1315 1366 1418 1471 1525 1580 1636 1693 1751 1810 1870 1931 1993 2056 2120 2185 2251 2318 2386 2455 2525 2596 2668 2741 2815 2890 2966 3043 3121 3200 3280 3361 3443 3526 3610 3695 3781 3868 3956 4045 4135 4226 4318 4411 4505 4600 4696 4793 4891 4990 5089 5187 5284 5380 5475 5569 5662 5754 5845 5935 6024 6112 6199 6285 6370 6454 6537 6619 6700 6780 6859 6937 7014 7090 7165 7239 7312 7384 7455 7525 7594 7662 7729 7795 7860 7924 7987 8049 8110 421160
861 902 944 987 1031 1076 1122 1169 1217 1266 1316 1367 1419 1472 1526 1581 1637 1694 1752 1811 1871 1932 1994 2057 2121 2186 2252 2319 2387 2456 2526 2597 2669 2742 2816 2891 2967 3044 3122 3201 3281 3362 3444 3527 3611 3696 3782 3869 3957 4046 4136 4227 4319 4412 4506 4601 4697 4794 4892 4991 5090 5188 5285 5381 5476 5570 5663 5755 5846 5936 6025 6113 6200 6286 6371 6455 6538 6620 6701 6781 6860 6938 7015 7091 7166 7240 7313 7385 7456 7526 7595 7663 7730 7796 7861 7925 7988 8050 8111 8171 428610
903 945 988 1032 1077 1123 1170 1218 1267 1317 1368 1420 1473 1527 1582 1638 1695 1753 1812 1872 1933 1995 2058 2122 2187 2253 2320 2388 2457 2527 2598 2670 2743 2817 2892 2968 3045 3123 3202 3282 3363 3445 3528 3612 3697 3783 3870 3958 4047 4137 4228 4320 4413 4507 4602 4698 4795 4893 4992 5091 5189 5286 5382 5477 5571 5664 5756 5847 5937 6026 6114 6201 6287 6372 6456 6539 6621 6702 6782 6861 6939 7016 7092 7167 7241 7314 7386 7457 7527 7596 7664 7731 7797 7862 7926 7989 8051 8112 8172 8231 436079
946 989 1033 1078 1124 1171 1219 1268 1318 1369 1421 1474 1528 1583 1639 1696 1754 1813 1873 1934 1996 2059 2123 2188 2254 2321 2389 2458 2528 2599 2671 2744 2818 2893 2969 3046 3124 3203 3283 3364 3446 3529 3613 3698 3784 3871 3959 4048 4138 4229 4321 4414 4508 4603 4699 4796 4894 4993 5092 5190 5287 5383 5478 5572 5665 5757 5848 5938 6027 6115 6202 6288 6373 6457 6540 6622 6703 6783 6862 6940 7017 7093 7168 7242 7315 7387 7458 7528 7597 7665 7732 7798 7863 7927 7990 8052 8113 8173 8232 8290 443565
990 1034 1079 1125 1172 1220 1269 1319 1370 1422 1475 1529 1584 1640 1697 1755 1814 1874 1935 1997 2060 2124 2189 2255 2322 2390 2459 2529 2600 2672 2745 2819 2894 2970 3047 3125 3204 3284 3365 3447 3530 3614 3699 3785 3872 3960 4049 4139 4230 4322 4415 4509 4604 4700 4797 4895 4994 5093 5191 5288 5384 5479 5573 5666 5758 5849 5939 6028 6116 6203 6289 6374 6458 6541 6623 6704 6784 6863 6941 7018 7094 7169 7243 7316 7388 7459 7529 7598 7666 7733 7799 7864 7928 7991 8053 8114 8174 8233 8291 8348 451066
1035 1080 1126 1173 1221 1270 1320 1371 1423 1476 1530 1585 1641 1698 1756 1815 1875 1936 1998 2061 2125 2190 2256 2323 2391 2460 2530 2601 2673 2746 2820 2895 2971 3048 3126 3205 3285 3366 3448 3531 3615 3700 3786 3873 3961 4050 4140 4231 4323 4416 4510 4605 4701 4798 4896 4995 5094 5192 5289 5385 5480 5574 5667 5759 5850 5940 6029 6117 6204 6290 6375 6459 6542 6624 6705 6785 6864 6942 7019 7095 7170 7244 7317 7389 7460 7530 7599 7667 7734 7800 7865 7929 7992 8054 8115 8175 8234 8292 8349 8405 458580
1081 1127 1174 1222 1271 1321 1372 1424 1477 1531 1586 1642 1699 1757 1816 1876 1937 1999 2062 2126 2191 2257 2324 2392 2461 2531 2602 2674 2747 2821 2896 2972 3049 3127 3206 3286 3367 3449 3532 3616 3701 3787 3874 3962 4051 4141 4232 4324 4417 4511 4606 4702 4799 4897 4996 5095 5193 5290 5386 5481 5575 5668 5760 5851 5941 6030 6118 6205 6291 6376 6460 6543 6625 6706 6786 6865 6943 7020 7096 7171 7245 7318 7390 7461 7531 7600 7668 7735 7801 7866 7930 7993 8055 8116 8176 8235 8293 8350 8406 8461 466105
1128 1175 1223 1272 1322 1373 1425 1478 1532 1587 1643 1700 1758 1817 1877 1938 2000 2063 2127 2192 2258 2325 2393 2462 2532 2603 2675 2748 2822 2897 2973 3050 3128 3207 3287 3368 3450 3533 3617 3702 3788 3875 3963 4052 4142 4233 4325 4418 4512 4607 4703 4800 4898 4997 5096 5194 5291 5387 5482 5576 5669 5761 5852 5942 6031 6119 6206 6292 6377 6461 6544 6626 6707 6787 6866 6944 7021 7097 7172 7246 7319 7391 7462 7532 7601 7669 7736 7802 7867 7931 7994 8056 8117 8177 8236 8294 8351 8407 8462 8516 473639
1176 1224 1273 1323 1374 1426 1479 1533 1588 1644 1701 1759 1818 1878 1939 2001 2064 2128 2193 2259 2326 2394 2463 2533 2604 2676 2749 2823 2898 2974 3051 3129 3208 3288 3369 3451 3534 3618 3703 3789 3876 3964 4053 4143 4234 4326 4419 4513 4608 4704 4801 4899 4998 5097 5195 5292 5388 5483 5577 5670 5762 5853 5943 6032 6120 6207 6293 6378 6462 6545 6627 6708 6788 6867 6945 7022 7098 7173 7247 7320 7392 7463 7533 7602 7670 7737 7803 7868 7932 7995 8057 8118 8178 8237 8295 8352 8408 8463 8517 8570 481180
1225 1274 1324 1375 1427 1480 1534 1589 1645 1702 1760 1819 1879 1940 2002 2065 2129 2194 2260 2327 2395 2464 2534 2605 2677 2750 2824 2899 2975 3052 3130 3209 3289 3370 3452 3535 3619 3704 3790 3877 3965 4054 4144 4235 4327 4420 4514 4609 4705 4802 4900 4999 5098 5196 5293 5389 5484 5578 5671 5763 5854 5944 6033 6121 6208 6294 6379 6463 6546 6628 6709 6789 6868 6946 7023 7099 7174 7248 7321 7393 7464 7534 7603 7671 7738 7804 7869 7933 7996 8058 8119 8179 8238 8296 8353 8409 8464 8518 8571 8623 488726
1275 1325 1376 1428 1481 1535 1590 1646 1703 1761 1820 1880 1941 2003 2066 2130 2195 2261 2328 2396 2465 2535 2606 2678 2751 2825 2900 2976 3053 3131 3210 3290 3371 3453 3536 3620 3705 3791 3878 3966 4055 4145 4236 4328 4421 4515 4610 4706 4803 4901 5000 5099 5197 5294 5390 5485 5579 5672 5764 5855 5945 6034 6122 6209 6295 6380 6464 6547 6629 6710 6790 6869 6947 7024 7100 7175 7249 7322 7394 7465 7535 7604 7672 7739 7805 7870 7934 7997 8059 8120 8180 8239 8297 8354 8410 8465 8519 8572 8624 8675 496275
1326 1377 1429 1482 1536 1591 1647 1704 1762 1821 1881 1942 2004 2067 2131 2196 2262 2329 2397 2466 2536 2607 2679 2752 2826 2901 2977 3054 3132 3211 3291 3372 3454 3537 3621 3706 3792 3879 3967 4056 4146 4237 4329 4422 4516 4611 4707 4804 4902 5001 5100 5198 5295 5391 5486 5580 5673 5765 5856 5946 6035 6123 6210 6296 6381 6465 6548 6630 6711 6791 6870 6948 7025 7101 7176 7250 7323 7395 7466 7536 7605 7673 7740 7806 7871 7935 7998 8060 8121 8181 8240 8298 8355 8411 8466 8520 8573 8625 8676 8726 503825
1378 1430 1483 1537 1592 1648 1705 1763 1822 1882 1943 2005 2068 2132 2197 2263 2330 2398 2467 2537 2608 2680 2753 2827 2902 2978 3055 3133 3212 3292 3373 3455 3538 3622 3707 3793 3880 3968 4057 4147 4238 4330 4423 4517 4612 4708 4805 4903 5002 5101 5199 5296 5392 5487 5581 5674 5766 5857 5947 6036 6124 6211 6297 6382 6466 6549 6631 6712 6792 6871 6949 7026 7102 7177 7251 7324 7396 7467 7537 7606 7674 7741 7807 7872 7936 7999 8061 8122 8182 8241 8299 8356 8412 8467 8521 8574 8626 8677 8727 8776 511374
1431 1484 1538 1593 1649 1706 1764 1823 1883 1944 2006 2069 2133 2198 2264 2331 2399 2468 2538 2609 2681 2754 2828 2903 2979 3056 3134 3213 3293 3374 3456 3539 3623 3708 3794 3881 3969 4058 4148 4239 4331 4424 4518 4613 4709 4806 4904 5003 5102 5200 5297 5393 5488 5582 5675 5767 5858 5948 6037 6125 6212 6298 6383 6467 6550 6632 6713 6793 6872 6950 7027 7103 7178 7252 7325 7397 7468 7538 7607 7675 7742 7808 7873 7937 8000 8062 8123 8183 8242 8300 8357 8413 8468 8522 8575 8627 8678 8728 8777 8825 518920
1485 1539 1594 1650 1707 1765 1824 1884 1945 2007 2070 2134 2199 2265 2332 2400 2469 2539 2610 2682 2755 2829 2904 2980 3057 3135 3214 3294 3375 3457 3540 3624 3709 3795 3882 3970 4059 4149 4240 4332 4425 4519 4614 4710 4807 4905 5004 5103 5201 5298 5394 5489 5583 5676 5768 5859 5949 6038 6126 6213 6299 6384 6468 6551 6633 6714 6794 6873 6951 7028 7104 7179 7253 7326 7398 7469 7539 7608 7676 7743 7809 7874 7938 8001 8063 8124 8184 8243 8301 8358 8414 8469 8523 8576 8628 8679 8729 8778 8826 8873 526461
1540 1595 1651 1708 1766 1825 1885 1946 2008 2071 2135 2200 2266 2333 2401 2470 2540 2611 2683 2756 2830 2905 2981 3058 3136 3215 3295 3376 3458 3541 3625 3710 3796 3883 3971 4060 4150 4241 4333 4426 4520 4615 4711 4808 4906 5005 5104 5202 5299 5395 5490 5584 5677 5769 5860 5950 6039 6127 6214 6300 6385 6469 6552 6634 6715 6795 6874 6952 7029 7105 7180 7254 7327 7399 7470 7540 7609 7677 7744 7810 7875 7939 8002 8064 8125 8185 8244 8302 8359 8415 8470 8524 8577 8629 8680 8730 8779 8827 8874 8920 533995
1596 1652 1709 1767 1826 1886 1947 2009 2072 2136 2201 2267 2334 2402 2471 2541 2612 2684 2757 2831 2906 2982 3059 3137 3216 3296 3377 3459 3542 3626 3711 3797 3884 3972 4061 4151 4242 4334 4427 4521 4616 4712 4809 4907 5006 5105 5203 5300 5396 5491 5585 5678 5770 5861 5951 6040 6128 6215 6301 6386 6470 6553 6635 6716 6796 6875 6953 7030 7106 7181 7255 7328 7400 7471 7541 7610 7678 7745 7811 7876 7940 8003 8065 8126 8186 8245 8303 8360 8416 8471 8525 8578 8630 8681 8731 8780 8828 8875 8921 8966 541520
1653 1710 1768 1827 1887 1948 2010 2073 2137 2202 2268 2335 2403 2472 2542 2613 2685 2758 2832 2907 2983 3060 3138 3217 3297 3378 3460 3543 3627 3712 3798 3885 3973 4062 4152 4243 4335 4428 4522 4617 4713 4810 4908 5007 5106 5204 5301 5397 5492 5586 5679 5771 5862 5952 6041 6129 6216 6302 6387 6471 6554 6636 6717 6797 6876 6954 7031 7107 7182 7256 7329 7401 7472 7542 7611 7679 7746 7812 7877 7941 8004 8066 8127 8187 8246 8304 8361 8417 8472 8526 8579 8631 8682 8732 8781 8829 8876 8922 8967 9011 549034
1711 1769 1828 1888 1949 2011 2074 2138 2203 2269 2336 2404 2473 2543 2614 2686 2759 2833 2908 2984 3061 3139 3218 3298 3379 3461 3544 3628 3713 3799 3886 3974 4063 4153 4244 4336 4429 4523 4618 4714 4811 4909 5008 5107 5205 5302 5398 5493 5587 5680 5772 5863 5953 6042 6130 6217 6303 6388 6472 6555 6637 6718 6798 6877 6955 7032 7108 7183 7257 7330 7402 7473 7543 7612 7680 7747 7813 7878 7942 8005 8067 8128 8188 8247 8305 8362 8418 8473 8527 8580 8632 8683 8733 8782 8830 8877 8923 8968 9012 9055 556535
1770 1829 1889 1950 2012 2075 2139 2204 2270 2337 2405 2474 2544 2615 2687 2760 2834 2909 2985 3062 3140 3219 3299 3380 3462 3545 3629 3714 3800 3887 3975 4064 4154 4245 4337 4430 4524 4619 4715 4812 4910 5009 5108 5206 5303 5399 5494 5588 5681 5773 5864 5954 6043 6131 6218 6304 6389 6473 6556 6638 6719 6799 6878 6956 7033 7109 7184 7258 7331 7403 7474 7544 7613 7681 7748 7814 7879 7943 8006 8068 8129 8189 8248 8306 8363 8419 8474 8528 8581 8633 8684 8734 8783 8831 8878 8924 8969 9013 9056 9098 564021
1830 1890 1951 2013 2076 2140 2205 2271 2338 2406 2475 2545 2616 2688 2761 2835 2910 2986 3063 3141 3220 3300 3381 3463 3546 3630 3715 3801 3888 3976 4065 4155 4246 4338 4431 4525 4620 4716 4813 4911 5010 5109 5207 5304 5400 5495 5589 5682 5774 5865 5955 6044 6132 6219 6305 6390 6474 6557 6639 6720 6800 6879 6957 7034 7110 7185 7259 7332 7404 7475 7545 7614 7682 7749 7815 7880 7944 8007 8069 8130 8190 8249 8307 8364 8420 8475 8529 8582 8634 8685 8735 8784 8832 8879 8925 8970 9014 9057 9099 9140 571490
1891 1952 2014 2077 2141 2206 2272 2339 2407 2476 2546 2617 2689 2762 2836 2911 2987 3064 3142 3221 3301 3382 3464 3547 3631 3716 3802 3889 3977 4066 4156 4247 4339 4432 4526 4621 4717 4814 4912 5011 5110 5208 5305 5401 5496 5590 5683 5775 5866 5956 6045 6133 6220 6306 6391 6475 6558 6640 6721 6801 6880 6958 7035 7111 7186 7260 7333 7405 7476 7546 7615 7683 7750 7816 7881 7945 8008 8070 8131 8191 8250 8308 8365 8421 8476 8530 8583 8635 8686 8736 8785 8833 8880 8926 8971 9015 9058 9100 9141 9181 578940
1953 2015 2078 2142 2207 2273 2340 2408 2477 2547 2618 2690 2763 2837 2912 2988 3065 3143 3222 3302 3383 3465 3548 3632 3717 3803 3890 3978 4067 4157 4248 4340 4433 4527 4622 4718 4815 4913 5012 5111 5209 5306 5402 5497 5591 5684 5776 5867 5957 6046 6134 6221 6307 6392 6476 6559 6641 6722 6802 6881 6959 7036 7112 7187 7261 7334 7406 7477 7547 7616 7684 7751 7817 7882 7946 8009 8071 8132 8192 8251 8309 8366 8422 8477 8531 8584 8636 8687 8737 8786 8834 8881 8927 8972 9016 9059 9101 9142 9182 9221 586369
2016 2079 2143 2208 2274 2341 2409 2478 2548 2619 2691 2764 2838 2913 2989 3066 3144 3223 3303 3384 3466 3549 3633 3718 3804 3891 3979 4068 4158 4249 4341 4434 4528 4623 4719 4816 4914 5013 5112 5210 5307 5403 5498 5592 5685 5777 5868 5958 6047 6135 6222 6308 6393 6477 6560 6642 6723 6803 6882 6960 7037 7113 7188 7262 7335 7407 7478 7548 7617 7685 7752 7818 7883 7947 8010 8072 8133 8193 8252 8310 8367 8423 8478 8532 8585 8637 8688 8738 8787 8835 8882 8928 8973 9017 9060 9102 9143 9183 9222 9260 593775
2080 2144 2209 2275 2342 2410 2479 2549 2620 2692 2765 2839 2914 2990 3067 3145 3224 3304 3385 3467 3550 3634 3719 3805 3892 3980 4069 4159 4250 4342 4435 4529 4624 4720 4817 4915 5014 5113 5211 5308 5404 5499 5593 5686 5778 5869 5959 6048 6136 6223 6309 6394 6478 6561 6643 6724 6804 6883 6961 7038 7114 7189 7263 7336 7408 7479 7549 7618 7686 7753 7819 7884 7948 8011 8073 8134 8194 8253 8311 8368 8424 8479 8533 8586 8638 8689 8739 8788 8836 8883 8929 8974 9018 9061 9103 9144 9184 9223 9261 9298 601156
2145 2210 2276 2343 2411 2480 2550 2621 2693 2766 2840 2915 2991 3068 3146 3225 3305 3386 3468 3551 3635 3720 3806 3893 3981 4070 4160 4251 4343 4436 4530 4625 4721 4818 4916 5015 5114 5212 5309 5405 5500 5594 5687 5779 5870 5960 6049 6137 6224 6310 6395 6479 6562 6644 6725 6805 6884 6962 7039 7115 7190 7264 7337 7409 7480 7550 7619 7687 7754 7820 7885 7949 8012 8074 8135 8195 8254 8312 8369 8425 8480 8534 8587 8639 8690 8740 8789 8837 8884 8930 8975 9019 9062 9104 9145 9185 9224 9262 9299 9335 608510
2211 2277 2344 2412 2481 2551 2622 2694 2767 2841 2916 2992 3069 3147 3226 3306 3387 3469 3552 3636 3721 3807 3894 3982 4071 4161 4252 4344 4437 4531 4626 4722 4819 4917 5016 5115 5213 5310 5406 5501 5595 5688 5780 5871 5961 6050 6138 6225 6311 6396 6480 6563 6645 6726 6806 6885 6963 7040 7116 7191 7265 7338 7410 7481 7551 7620 7688 7755 7821 7886 7950 8013 8075 8136 8196 8255 8313 8370 8426 8481 8535 8588 8640 8691 8741 8790 8838 8885 8931 8976 9020 9063 9105 9146 9186 9225 9263 9300 9336 9371 615835
2278 2345 2413 2482 2552 2623 2695 2768 2842 2917 2993 3070 3148 3227 3307 3388 3470 3553 3637 3722 3808 3895 3983 4072 4162 4253 4345 4438 4532 4627 4723 4820 4918 5017 5116 5214 5311 5407 5502 5596 5689 5781 5872 5962 6051 6139 6226 6312 6397 6481 6564 6646 6727 6807 6886 6964 7041 7117 7192 7266 7339 7411 7482 7552 7621 7689 7756 7822 7887 7951 8014 8076 8137 8197 8256 8314 8371 8427 8482 8536 8589 8641 8692 8742 8791 8839 8886 8932 8977 9021 9064 9106 9147 9187 9226 9264 9301 9337 9372 9406 623129
2346 2414 2483 2553 2624 2696 2769 2843 2918 2994 3071 3149 3228 3308 3389 3471 3554 3638 3723 3809 3896 3984 4073 4163 4254 4346 4439 4533 4628 4724 4821 4919 5018 5117 5215 5312 5408 5503 5597 5690 5782 5873 5963 6052 6140 6227 6313 6398 6482 6565 6647 6728 6808 6887 6965 7042 7118 7193 7267 7340 7412 7483 7553 7622 7690 7757 7823 7888 7952 8015 8077 8138 8198 8257 8315 8372 8428 8483 8537 8590 8642 8693 8743 8792 8840 8887 8933 8978 9022 9065 9107 9148 9188 9227 9265 9302 9338 9373 9407 9440 630390
2415 2484 2554 2625 2697 2770 2844 2919 2995 3072 3150 3229 3309 3390 3472 3555 3639 3724 3810 3897 3985 4074 4164 4255 4347 4440 4534 4629 4725 4822 4920 5019 5118 5216 5313 5409 5504 5598 5691 5783 5874 5964 6053 6141 6228 6314 6399 6483 6566 6648 6729 6809 6888 6966 7043 7119 7194 7268 7341 7413 7484 7554 7623 7691 7758 7824 7889 7953 8016 8078 8139 8199 8258 8316 8373 8429 8484 8538 8591 8643 8694 8744 8793 8841 8888 8934 8979 9023 9066 9108 9149 9189 9228 9266 9303 9339 9374 9408 9441 9473 637616
2485 2555 2626 2698 2771 2845 2920 2996 3073 3151 3230 3310 3391 3473 3556 3640 3725 3811 3898 3986 4075 4165 4256 4348 4441 4535 4630 4726 4823 4921 5020 5119 5217 5314 5410 5505 5599 5692 5784 5875 5965 6054 6142 6229 6315 6400 6484 6567 6649 6730 6810 6889 6967 7044 7120 7195 7269 7342 7414 7485 7555 7624 7692 7759 7825 7890 7954 8017 8079 8140 8200 8259 8317 8374 8430 8485 8539 8592 8644 8695 8745 8794 8842 8889 8935 8980 9024 9067 9109 9150 9190 9229 9267 9304 9340 9375 9409 9442 9474 9505 644805
2556 2627 2699 2772 2846 2921 2997 3074 3152 3231 3311 3392 3474 3557 3641 3726 3812 3899 3987 4076 4166 4257 4349 4442 4536 4631 4727 4824 4922 5021 5120 5218 5315 5411 5506 5600 5693 5785 5876 5966 6055 6143 6230 6316 6401 6485 6568 6650 6731 6811 6890 6968 7045 7121 7196 7270 7343 7415 7486 7556 7625 7693 7760 7826 7891 7955 8018 8080 8141 8201 8260 8318 8375 8431 8486 8540 8593 8645 8696 8746 8795 8843 8890 8936 8981 9025 9068 9110 9151 9191 9230 9268 9305 9341 9376 9410 9443 9475 9506 9536 651955
2628 2700 2773 2847 2922 2998 3075 3153 3232 3312 3393 3475 3558 3642 3727 3813 3900 3988 4077 4167 4258 4350 4443 4537 4632 4728 4825 4923 5022 5121 5219 5316 5412 5507 5601 5694 5786 5877 5967 6056 6144 6231 6317 6402 6486 6569 6651 6732 6812 6891 6969 7046 7122 7197 7271 7344 7416 7487 7557 7626 7694 7761 7827 7892 7956 8019 8081 8142 8202 8261 8319 8376 8432 8487 8541 8594 8646 8697 8747 8796 8844 8891 8937 8982 9026 9069 9111 9152 9192 9231 9269 9306 9342 9377 9411 9444 9476 9507 9537 9566 659064
2701 2774 2848 2923 2999 3076 3154 3233 3313 3394 3476 3559 3643 3728 3814 3901 3989 4078 4168 4259 4351 4444 4538 4633 4729 4826 4924 5023 5122 5220 5317 5413 5508 5602 5695 5787 5878 5968 6057 6145 6232 6318 6403 6487 6570 6652 6733 6813 6892 6970 7047 7123 7198 7272 7345 7417 7488 7558 7627 7695 7762 7828 7893 7957 8020 8082 8143 8203 8262 8320 8377 8433 8488 8542 8595 8647 8698 8748 8797 8845 8892 8938 8983 9027 9070 9112 9153 9193 9232 9270 9307 9343 9378 9412 9445 9477 9508 9538 9567 9595 666130
2775 2849 2924 3000 3077 3155 3234 3314 3395 3477 3560 3644 3729 3815 3902 3990 4079 4169 4260 4352 4445 4539 4634 4730 4827 4925 5024 5123 5221 5318 5414 5509 5603 5696 5788 5879 5969 6058 6146 6233 6319 6404 6488 6571 6653 6734 6814 6893 6971 7048 7124 7199 7273 7346 7418 7489 7559 7628 7696 7763 7829 7894 7958 8021 8083 8144 8204 8263 8321 8378 8434 8489 8543 8596 8648 8699 8749 8798 8846 8893 8939 8984 9028 9071 9113 9154 9194 9233 9271 9308 9344 9379 9413 9446 9478 9509 9539 9568 9596 9623 673151
2850 2925 3001 3078 3156 3235 3315 3396 3478 3561 3645 3730 3816 3903 3991 4080 4170 4261 4353 4446 4540 4635 4731 4828 4926 5025 5124 5222 5319 5415 5510 5604 5697 5789 5880 5970 6059 6147 6234 6320 6405 6489 6572 6654 6735 6815 6894 6972 7049 7125 7200 7274 7347 7419 7490 7560 7629 7697 7764 7830 7895 7959 8022 8084 8145 8205 8264 8322 8379 8435 8490 8544 8597 8649 8700 8750 8799 8847 8894 8940 8985 9029 9072 9114 9155 9195 9234 9272 9309 9345 9380 9414 9447 9479 9510 9540 9569 9597 9624 9650 680125
2926 3002 3079 3157 3236 3316 3397 3479 3562 3646 3731 3817 3904 3992 4081 4171 4262 4354 4447 4541 4636 4732 4829 4927 5026 5125 5223 5320 5416 5511 5605 5698 5790 5881 5971 6060 6148 6235 6321 6406 6490 6573 6655 6736 6816 6895 6973 7050 7126 7201 7275 7348 7420 7491 7561 7630 7698 7765 7831 7896 7960 8023 8085 8146 8206 8265 8323 8380 8436 8491 8545 8598 8650 8701 8751 8800 8848 8895 8941 8986 9030 9073 9115 9156 9196 9235 9273 9310 9346 9381 9415 9448 9480 9511 9541 9570 9598 9625 9651 9676 687050
3003 3080 3158 3237 3317 3398 3480 3563 3647 3732 3818 3905 3993 4082 4172 4263 4355 4448 4542 4637 4733 4830 4928 5027 5126 5224 5321 5417 5512 5606 5699 5791 5882 5972 6061 6149 6236 6322 6407 6491 6574 6656 6737 6817 6896 6974 7051 7127 7202 7276 7349 7421 7492 7562 7631 7699 7766 7832 7897 7961 8024 8086 8147 8207 8266 8324 8381 8437 8492 8546 8599 8651 8702 8752 8801 8849 8896 8942 8987 9031 9074 9116 9157 9197 9236 9274 9311 9347 9382 9416 9449 9481 9512 9542 9571 9599 9626 9652 9677 9701 693924
3081 3159 3238 3318 3399 3481 3564 3648 3733 3819 3906 3994 4083 4173 4264 4356 4449 4543 4638 4734 4831 4929 5028 5127 5225 5322 5418 5513 5607 5700 5792 5883 5973 6062 6150 6237 6323 6408 6492 6575 6657 6738 6818 6897 6975 7052 7128 7203 7277 7350 7422 7493 7563 7632 7700 7767 7833 7898 7962 8025 8087 8148 8208 8267 8325 8382 8438 8493 8547 8600 8652 8703 8753 8802 8850 8897 8943 8988 9032 9075 9117 9158 9198 9237 9275 9312 9348 9383 9417 9450 9482 9513 9543 9572 9600 9627 9653 9678 9702 9725 700745
3160 3239 3319 3400 3482 3565 3649 3734 3820 3907 3995 4084 4174 4265 4357 4450 4544 4639 4735 4832 4930 5029 5128 5226 5323 5419 5514 5608 5701 5793 5884 5974 6063 6151 6238 6324 6409 6493 6576 6658 6739 6819 6898 6976 7053 7129 7204 7278 7351 7423 7494 7564 7633 7701 7768 7834 7899 7963 8026 8088 8149 8209 8268 8326 8383 8439 8494 8548 8601 8653 8704 8754 8803 8851 8898 8944 8989 9033 9076 9118 9159 9199 9238 9276 9313 9349 9384 9418 9451 9483 9514 9544 9573 9601 9628 9654 9679 9703 9726 9748 707511
3240 3320 3401 3483 3566 3650 3735 3821 3908 3996 4085 4175 4266 4358 4451 4545 4640 4736 4833 4931 5030 5129 5227 5324 5420 5515 5609 5702 5794 5885 5975 6064 6152 6239 6325 6410 6494 6577 6659 6740 6820 6899 6977 7054 7130 7205 7279 7352 7424 7495 7565 7634 7702 7769 7835 7900 7964 8027 8089 8150 8210 8269 8327 8384 8440 8495 8549 8602 8654 8705 8755 8804 8852 8899 8945 8990 9034 9077 9119 9160 9200 9239 9277 9314 9350 9385 9419 9452 9484 9515 9545 9574 9602 9629 9655 9680 9704 9727 9749 9770 714220
3321 3402 3484 3567 3651 3736 3822 3909 3997 4086 4176 4267 4359 4452 4546 4641 4737 4834 4932 5031 5130 5228 5325 5421 5516 5610 5703 5795 5886 5976 6065 6153 6240 6326 6411 6495 6578 6660 6741 6821 6900 6978 7055 7131 7206 7280 7353 7425 7496 7566 7635 7703 7770 7836 7901 7965 8028 8090 8151 8211 8270 8328 8385 8441 8496 8550 8603 8655 8706 8756 8805 8853 8900 8946 8991 9035 9078 9120 9161 9201 9240 9278 9315 9351 9386 9420 9453 9485 9516 9546 9575 9603 9630 9656 9681 9705 9728 9750 9771 9791 720870
3403 3485 3568 3652 3737 3823 3910 3998 4087 4177 4268 4360 4453 4547 4642 4738 4835 4933 5032 5131 5229 5326 5422 5517 5611 5704 5796 5887 5977 6066 6154 6241 6327 6412 6496 6579 6661 6742 6822 6901 6979 7056 7132 7207 7281 7354 7426 7497 7567 7636 7704 7771 7837 7902 7966 8029 8091 8152 8212 8271 8329 8386 8442 8497 8551 8604 8656 8707 8757 8806 8854 8901 8947 8992 9036 9079 9121 9162 9202 9241 9279 9316 9352 9387 9421 9454 9486 9517 9547 9576 9604 9631 9657 9682 9706 9729 9751 9772 9792 9811 727459
3486 3569 3653 3738 3824 3911 3999 4088 4178 4269 4361 4454 4548 4643 4739 4836 4934 5033 5132 5230 5327 5423 5518 5612 5705 5797 5888 5978 6067 6155 6242 6328 6413 6497 6580 6662 6743 6823 6902 6980 7057 7133 7208 7282 7355 7427 7498 7568 7637 7705 7772 7838 7903 7967 8030 8092 8153 8213 8272 8330 8387 8443 8498 8552 8605 8657 8708 8758 8807 8855 8902 8948 8993 9037 9080 9122 9163 9203 9242 9280 9317 9353 9388 9422 9455 9487 9518 9548 9577 9605 9632 9658 9683 9707 9730 9752 9773 9793 9812 9830 733985
3570 3654 3739 3825 3912 4000 4089 4179 4270 4362 4455 4549 4644 4740 4837 4935 5034 5133 5231 5328 5424 5519 5613 5706 5798 5889 5979 6068 6156 6243 6329 6414 6498 6581 6663 6744 6824 6903 6981 7058 7134 7209 7283 7356 7428 7499 7569 7638 7706 7773 7839 7904 7968 8031 8093 8154 8214 8273 8331 8388 8444 8499 8553 8606 8658 8709 8759 8808 8856 8903 8949 8994 9038 9081 9123 9164 9204 9243 9281 9318 9354 9389 9423 9456 9488 9519 9549 9578 9606 9633 9659 9684 9708 9731 9753 9774 9794 9813 9831 9848 740446
3655 3740 3826 3913 4001 4090 4180 4271 4363 4456 4550 4645 4741 4838 4936 5035 5134 5232 5329 5425 5520 5614 5707 5799 5890 5980 6069 6157 6244 6330 6415 6499 6582 6664 6745 6825 6904 6982 7059 7135 7210 7284 7357 7429 7500 7570 7639 7707 7774 7840 7905 7969 8032 8094 8155 8215 8274 8332 8389 8445 8500 8554 8607 8659 8710 8760 8809 8857 8904 8950 8995 9039 9082 9124 9165 9205 9244 9282 9319 9355 9390 9424 9457 9489 9520 9550 9579 9607 9634 9660 9685 9709 9732 9754 9775 9795 9814 9832 9849 9865 746840
3741 3827 3914 4002 4091 4181 4272 4364 4457 4551 4646 4742 4839 4937 5036 5135 5233 5330 5426 5521 5615 5708 5800 5891 5981 6070 6158 6245 6331 6416 6500 6583 6665 6746 6826 6905 6983 7060 7136 7211 7285 7358 7430 7501 7571 7640 7708 7775 7841 7906 7970 8033 8095 8156 8216 8275 8333 8390 8446 8501 8555 8608 8660 8711 8761 8810 8858 8905 8951 8996 9040 9083 9125 9166 9206 9245 9283 9320 9356 9391 9425 9458 9490 9521 9551 9580 9608 9635 9661 9686 9710 9733 9755 9776 9796 9815 9833 9850 9866 9881 753165
3828 3915 4003 4092 4182 4273 4365 4458 4552 4647 4743 4840 4938 5037 5136 5234 5331 5427 5522 5616 5709 5801 5892 5982 6071 6159 6246 6332 6417 6501 6584 6666 6747 6827 6906 6984 7061 7137 7212 7286 7359 7431 7502 7572 7641 7709 7776 7842 7907 7971 8034 8096 8157 8217 8276 8334 8391 8447 8502 8556 8609 8661 8712 8762 8811 8859 8906 8952 8997 9041 9084 9126 9167 9207 9246 9284 9321 9357 9392 9426 9459 9491 9522 9552 9581 9609 9636 9662 9687 9711 9734 9756 9777 9797 9816 9834 9851 9867 9882 9896 759419
3916 4004 4093 4183 4274 4366 4459 4553 4648 4744 4841 4939 5038 5137 5235 5332 5428 5523 5617 5710 5802 5893 5983 6072 6160 6247 6333 6418 6502 6585 6667 6748 6828 6907 6985 7062 7138 7213 7287 7360 7432 7503 7573 7642 7710 7777 7843 7908 7972 8035 8097 8158 8218 8277 8335 8392 8448 8503 8557 8610 8662 8713 8763 8812 8860 8907 8953 8998 9042 9085 9127 9168 9208 9247 9285 9322 9358 9393 9427 9460 9492 9523 9553 9582 9610 9637 9663 9688 9712 9735 9757 9778 9798 9817 9835 9852 9868 9883 9897 9910 765600
4005 4094 4184 4275 4367 4460 4554 4649 4745 4842 4940 5039 5138 5236 5333 5429 5524 5618 5711 5803 5894 5984 6073 6161 6248 6334 6419 6503 6586 6668 6749 6829 6908 6986 7063 7139 7214 7288 7361 7433 7504 7574 7643 7711 7778 7844 7909 7973 8036 8098 8159 8219 8278 8336 8393 8449 8504 8558 8611 8663 8714 8764 8813 8861 8908 8954 8999 9043 9086 9128 9169 9209 9248 9286 9323 9359 9394 9428 9461 9493 9524 9554 9583 9611 9638 9664 9689 9713 9736 9758 9779 9799 9818 9836 9853 9869 9884 9898 9911 9923 771706
4095 4185 4276 4368 4461 4555 4650 4746 4843 4941 5040 5139 5237 5334 5430 5525 5619 5712 5804 5895 5985 6074 6162 6249 6335 6420 6504 6587 6669 6750 6830 6909 6987 7064 7140 7215 7289 7362 7434 7505 7575 7644 7712 7779 7845 7910 7974 8037 8099 8160 8220 8279 8337 8394 8450 8505 8559 8612 8664 8715 8765 8814 8862 8909 8955 9000 9044 9087 9129 9170 9210 9249 9287 9324 9360 9395 9429 9462 9494 9525 9555 9584 9612 9639 9665 9690 9714 9737 9759 9780 9800 9819 9837 9854 9870 9885 9899 9912 9924 9935 777735
4186 4277 4369 4462 4556 4651 4747 4844 4942 5041 5140 5238 5335 5431 5526 5620 5713 5805 5896 5986 6075 6163 6250 6336 6421 6505 6588 6670 6751 6831 6910 6988 7065 7141 7216 7290 7363 7435 7506 7576 7645 7713 7780 7846 7911 7975 8038 8100 8161 8221 8280 8338 8395 8451 8506 8560 8613 8665 8716 8766 8815 8863 8910 8956 9001 9045 9088 9130 9171 9211 9250 9288 9325 9361 9396 9430 9463 9495 9526 9556 9585 9613 9640 9666 9691 9715 9738 9760 9781 9801 9820 9838 9855 9871 9886 9900 9913 9925 9936 9946 783685
4278 4370 4463 4557 4652 4748 4845 4943 5042 5141 5239 5336 5432 5527 5621 5714 5806 5897 5987 6076 6164 6251 6337 6422 6506 6589 6671 6752 6832 6911 6989 7066 7142 7217 7291 7364 7436 7507 7577 7646 7714 7781 7847 7912 7976 8039 8101 8162 8222 8281 8339 8396 8452 8507 8561 8614 8666 8717 8767 8816 8864 8911 8957 9002 9046 9089 9131 9172 9212 9251 9289 9326 9362 9397 9431 9464 9496 9527 9557 9586 9614 9641 9667 9692 9716 9739 9761 9782 9802 9821 9839 9856 9872 9887 9901 9914 9926 9937 9947 9956 789554
4371 4464 4558 4653 4749 4846 4944 5043 5142 5240 5337 5433 5528 5622 5715 5807 5898 5988 6077 6165 6252 6338 6423 6507 6590 6672 6753 6833 6912 6990 7067 7143 7218 7292 7365 7437 7508 7578 7647 7715 7782 7848 7913 7977 8040 8102 8163 8223 8282 8340 8397 8453 8508 8562 8615 8667 8718 8768 8817 8865 8912 8958 9003 9047 9090 9132 9173 9213 9252 9290 9327 9363 9398 9432 9465 9497 9528 9558 9587 9615 9642 9668 9693 9717 9740 9762 9783 9803 9822 9840 9857 9873 9888 9902 9915 9927 9938 9948 9957 9965 795340
4465 4559 4654 4750 4847 4945 5044 5143 5241 5338 5434 5529 5623 5716 5808 5899 5989 6078 6166 6253 6339 6424 6508 6591 6673 6754 6834 6913 6991 7068 7144 7219 7293 7366 7438 7509 7579 7648 7716 7783 7849 7914 7978 8041 8103 8164 8224 8283 8341 8398 8454 8509 8563 8616 8668 8719 8769 8818 8866 8913 8959 9004 9048 9091 9133 9174 9214 9253 9291 9328 9364 9399 9433 9466 9498 9529 9559 9588 9616 9643 9669 9694 9718 9741 9763 9784 9804 9823 9841 9858 9874 9889 9903 9916 9928 9939 9949 9958 9966 9973 801041
4560 4655 4751 4848 4946 5045 5144 5242 5339 5435 5530 5624 5717 5809 5900 5990 6079 6167 6254 6340 6425 6509 6592 6674 6755 6835 6914 6992 7069 7145 7220 7294 7367 7439 7510 7580 7649 7717 7784 7850 7915 7979 8042 8104 8165 8225 8284 8342 8399 8455 8510 8564 8617 8669 8720 8770 8819 8867 8914 8960 9005 9049 9092 9134 9175 9215 9254 9292 9329 9365 9400 9434 9467 9499 9530 9560 9589 9617 9644 9670 9695 9719 9742 9764 9785 9805 9824 9842 9859 9875 9890 9904 9917 9929 9940 9950 9959 9967 9974 9980 806655
4656 4752 4849 4947 5046 5145 5243 5340 5436 5531 5625 5718 5810 5901 5991 6080 6168 6255 6341 6426 6510 6593 6675 6756 6836 6915 6993 7070 7146 7221 7295 7368 7440 7511 7581 7650 7718 7785 7851 7916 7980 8043 8105 8166 8226 8285 8343 8400 8456 8511 8565 8618 8670 8721 8771 8820 8868 8915 8961 9006 9050 9093 9135 9176 9216 9255 9293 9330 9366 9401 9435 9468 9500 9531 9561 9590 9618 9645 9671 9696 9720 9743 9765 9786 9806 9825 9843 9860 9876 9891 9905 9918 9930 9941 9951 9960 9968 9975 9981 9986 812180
4753 4850 4948 5047 5146 5244 5341 5437 5532 5626 5719 5811 5902 5992 6081 6169 6256 6342 6427 6511 6594 6676 6757 6837 6916 6994 7071 7147 7222 7296 7369 7441 7512 7582 7651 7719 7786 7852 7917 7981 8044 8106 8167 8227 8286 8344 8401 8457 8512 8566 8619 8671 8722 8772 8821 8869 8916 8962 9007 9051 9094 9136 9177 9217 9256 9294 9331 9367 9402 9436 9469 9501 9532 9562 9591 9619 9646 9672 9697 9721 9744 9766 9787 9807 9826 9844 9861 9877 9892 9906 9919 9931 9942 9952 9961 9969 9976 9982 9987 9991 817614
4851 4949 5048 5147 5245 5342 5438 5533 5627 5720 5812 5903 5993 6082 6170 6257 6343 6428 6512 6595 6677 6758 6838 6917 6995 7072 7148 7223 7297 7370 7442 7513 7583 7652 7720 7787 7853 7918 7982 8045 8107 8168 8228 8287 8345 8402 8458 8513 8567 8620 8672 8723 8773 8822 8870 8917 8963 9008 9052 9095 9137 9178 9218 9257 9295 9332 9368 9403 9437 9470 9502 9533 9563 9592 9620 9647 9673 9698 9722 9745 9767 9788 9808 9827 9845 9862 9878 9893 9907 9920 9932 9943 9953 9962 9970 9977 9983 9988 9992 9995 822955
4950 5049 5148 5246 5343 5439 5534 5628 5721 5813 5904 5994 6083 6171 6258 6344 6429 6513 6596 6678 6759 6839 6918 6996 7073 7149 7224 7298 7371 7443 7514 7584 7653 7721 7788 7854 7919 7983 8046 8108 8169 8229 8288 8346 8403 8459 8514 8568 8621 8673 8724 8774 8823 8871 8918 8964 9009 9053 9096 9138 9179 9219 9258 9296 9333 9369 9404 9438 9471 9503 9534 9564 9593 9621 9648 9674 9699 9723 9746 9768 9789 9809 9828 9846 9863 9879 9894 9908 9921 9933 9944 9954 9963 9971 9978 9984 9989 9993 9996 9998 828201
5050 5149 5247 5344 5440 5535 5629 5722 5814 5905 5995 6084 6172 6259 6345 6430 6514 6597 6679 6760 6840 6919 6997 7074 7150 7225 7299 7372 7444 7515 7585 7654 7722 7789 7855 7920 7984 8047 8109 8170 8230 8289 8347 8404 8460 8515 8569 8622 8674 8725 8775 8824 8872 8919 8965 9010 9054 9097 9139 9180 9220 9259 9297 9334 9370 9405 9439 9472 9504 9535 9565 9594 9622 9649 9675 9700 9724 9747 9769 9790 9810 9829 9847 9864 9880 9895 9909 9922 9934 9945 9955 9964 9972 9979 9985 9990 9994 9997 9999 10000 833350
171700 176749 181895 187136 192470 197895 203409 209010 214696 220465 226315 232244 238250 244331 250485 256710 263004 269365 275791 282280 288830 295439 302105 308826 315600 322425 329299 336220 343186 350195 357245 364334 371460 378621 385815 393040 400294 407575 414881 422210 429560 436929 444315 451716 459130 466555 473989 481430 488876 496325 503775 511224 518670 526111 533545 540970 548384 555785 563171 570540 577890 585219 592525 599806 607060 614285 621479 628640 635766 642855 649905 656914 663880 670801 677675 684500 691274 697995 704661 711270 717820 724309 730735 737096 743390 749615 755769 761850 767856 773785 779635 785404 791090 796691 802205 807630 812964 818205 823351 828400 50005000



Dulces Lunas!¡.
.
The Dark Shadow is my passion.

LeandroA

#21
Ahora si se entendió, no me cerraban los ejemplos, igual me hizo parir para sacar la primera fila  :rolleyes: , supongo que si pongo el code se termina el misterio.

pueden faltar algunos ajustes pero creo que es la idea
Código (vb) [Seleccionar]

Private Sub Form_Load()
   Dim mArray() As Double
   Dim X As Long, Y As Long
   Dim Num As Double

   Num = 10.98

   If Leandro_ZipZag(Num, mArray) Then

       '======Imprimir========
       For Y = 0 To UBound(mArray, 2)
           For X = 0 To UBound(mArray, 1)
               Debug.Print mArray(X, Y),
           Next
           Debug.Print
       Next

   End If
End Sub


Private Function Leandro_ZipZag(ByVal Num As Double, m() As Double) As Boolean
  Dim lSize As Long
  Dim X As Long, Y As Long, I As Long
  Dim Cont As Double
  Dim Factor As Double
  Dim nDecimal As Double

  'Numeros positivos
  If Num And &H80000000 Then Exit Function

  'Busca el cuadrado (By Karcrack)
  Do Until (Num And 7) = 1 Or (Num And 31) = 4 Or (Num And 127) = 16 Or (Num And 191) = 0
      Num = Num - 1
  Loop
  'Saca la parte decimal
  nDecimal = Num - Int(Num)
 
  'Tamaño de la matriz
  lSize = Sqr(Num)

  ReDim m(lSize, lSize + 1)

  'Rellena la primera mitad de la matriz
  For X = 0 To lSize
      Y = 1
      For I = X - 1 To 0 Step -1
         Cont = Cont + 1
         m(I, Y) = Cont + nDecimal
         Y = Y + 1
      Next
  Next
 
  'Rellena la Segunda mitad de la matriz
  For Y = 2 To lSize
      X = lSize - 1
      For I = Y To lSize
         Cont = Cont + 1
         m(X, I) = Cont + nDecimal
         X = X - 1
      Next
  Next

  'Suma las columnas
  For X = 0 To lSize
      Cont = 0
      For Y = 1 To lSize
          Cont = Cont + m(X, Y)
      Next
      m(X, Y) = Cont
  Next
 
  'Suma las Filas
  For Y = 1 To lSize + 1
      Cont = 0
      For X = 0 To lSize - 1
          Cont = Cont + m(X, Y)
      Next
      m(X, Y) = Cont
  Next
 
  'Rompe coco
  m(X, 0) = Cont
  Factor = Cont * 2

  Y = Y - 1

  For X = 0 To lSize - 1
       m(X, 0) = Factor + m(X, Y)
  Next

  Leandro_ZipZag = True

End Function


los decimales te la debo.

BlackZeroX

#22
.
Aqui esta el mio Xao.



102.562       107.562       112.562       46.098       
1.122         2.122         4.122         7.366       
3.122         5.122         7.122         15.366       
6.122         8.122         9.122         23.366       
10.366        15.366        20.366        46.098   



Código (Vb) [Seleccionar]


Option Explicit

Sub main()
Dim int_y               As Integer  '   //  Coordenada Y.
Dim int_x               As Integer  '   //  Coordenada X.
Dim dbl_arr_v()         As Double
Const n                 As Double = 9.122

    If BlackZeroX_ZigZag(n, dbl_arr_v()) Then
        For int_x = LBound(dbl_arr_v(), 1) To UBound(dbl_arr_v(), 1)
            For int_y = LBound(dbl_arr_v(), 2) To UBound(dbl_arr_v(), 2)
                Debug.Print dbl_arr_v(int_x, int_y),
            Next
            Debug.Print
        Next
    End If
End Sub

Public Function BlackZeroX_ZigZag(ByVal vNum As Double, ByRef vArrOut() As Double) As Boolean
Dim int_y               As Integer  '   //  Coordenada Y.
Dim int_x               As Integer  '   //  Coordenada X.
Dim int_i               As Integer  '   //  For Next Sumas.
Dim int_h               As Integer  '   //  Anchura (Altura = lng_w-1).
Dim int_c               As Integer  '   //  Cuadrado del ZigZag.
Dim dbl_zz              As Double   '   //  Valores del ZigZag.

    int_c = Int(Sqr(vNum))
    int_h = int_c + 1
    ReDim vArrOut(0 To int_h, 0 To int_c)
    dbl_zz = vNum - Int(vNum)
   
    For dbl_zz = 1 + dbl_zz To int_c * int_c + dbl_zz
        vArrOut(int_y + 1, int_x) = dbl_zz
        int_x = int_x - 1
        int_y = int_y + 1
        If int_y > (int_c - 1) Then
            For int_i = 1 To int_c
                '   //  Columnas
                vArrOut(int_y + 1, int_x + 1) = vArrOut(int_y + 1, int_x + 1) + vArrOut(int_i, int_x + 1)
                '   //  Filas
                vArrOut(int_x + 2, int_y) = vArrOut(int_x + 2, int_y) + vArrOut(int_x + 2, int_i - 1)
            Next int_i
            '   //  Esquina Inferior Derecha
            vArrOut(int_c + 1, int_c) = vArrOut(int_c + 1, int_c) + vArrOut(int_y + 1, int_x + 1)
            int_y = int_x + 2
            int_x = (int_c - 1)
        ElseIf int_x < 0 Then
            int_x = int_y
            int_y = 0
        End If
    Next dbl_zz
   
    '   //  Esquina Superior Derecha
    vArrOut(0, int_y) = vArrOut(int_c + 1, int_c)
    '   //  Celdas restantes de la 1ra fila
    For int_x = 0 To int_x
        vArrOut(0, int_x) = vArrOut(int_h, int_x) + (vArrOut(0, int_y) * 2)
    Next
   
    BlackZeroX_ZigZag = True    '   //  Not (Not vArrOut()) - 1 No se debe comprobar asi una rray por que hace que el codigo produsca errores.
   
End Function



Temibles Lunas!¡.
The Dark Shadow is my passion.

krabby

bueno ps acabe mi code, me costo mucho, pero aki sta ps.

Option Explicit
'modKrabby
'modulo bas
Public Function Krabby_ZigZag(Numero As Long) As Boolean
   Dim Columnas As Long, Filas As Long
   Dim NumeroValido As Long
   Dim Num As Long, Base As Long
   Dim MyX As Long, MyY As Long
   Dim CeldaAbajoLibre As Long
   Dim Celda() As Long, Resto As Long
   Dim cadena As String
   
   'variables destino
   Dim FilasDestino As Long, ColumnasDestino As Long
   Dim BaseDestino As Long
   Dim CeldaDestino() As Long
   Dim Suma As Long
   Dim SumaUltimaFila As Long
   
   NumeroValido = Int(Sqr(Numero)) * Int(Sqr(Numero))
   Columnas = Int(Sqr(Numero))
   Filas = Int(Sqr(Numero))
   ReDim Celda(1 To NumeroValido) As Long
   Dim X As Long, Y As Long
   For X = 1 To Columnas
       MyY = 1
       MyX = X
       CeldaAbajoLibre = X
       Num = Num + 1
       Base = (MyY - 1) * Columnas
       Celda(Base + MyX) = Num
       If CeldaAbajoLibre > 1 Then
           For Y = 1 To CeldaAbajoLibre - 1
               MyX = MyX - 1
               Num = Num + 1
               MyY = MyY + 1
               Base = (MyY - 1) * Columnas
               Celda(Base + MyX) = Num
           Next Y
       End If
   Next X
   
   
   Resto = Columnas - 1
   Dim MyY2 As Long
   MyY = 1
   For X = Resto To 1 Step -1
       MyY = MyY + 1
       MyX = Columnas
       MyY2 = MyY
       CeldaAbajoLibre = X
       Num = Num + 1
       Base = (MyY2 - 1) * Columnas
       Celda(Base + MyX) = Num
       If CeldaAbajoLibre > 1 Then
           For Y = 1 To CeldaAbajoLibre - 1
               MyX = MyX - 1
               Num = Num + 1
               MyY2 = MyY2 + 1
               Base = (MyY2 - 1) * Columnas
               Celda(Base + MyX) = Num
               
           Next Y
       End If
   Next X
   'imprime
   For X = 1 To Columnas
       Base = (X - 1) * Columnas
       For Y = Base + 1 To Base + Columnas
           cadena = cadena & Celda(Y) & " "
       Next Y
       cadena = cadena & vbCrLf
   Next X
   Debug.Print cadena
   'Open "c:\aa.txt" For Append As #1
   'Print #1, cadena
   'Print #1, extra
   'Close #1
   
   
   'pasa los numero a la celda destino
   FilasDestino = Filas + 1      '1ra fila de sumar
   FilasDestino = FilasDestino + 1     'ultima fila de sumas
   ColumnasDestino = Columnas + 1     'ultima columna de sumas
   ReDim CeldaDestino(1 To (FilasDestino * ColumnasDestino)) As Long
   For X = 1 To Filas
       For Y = 1 To Columnas
           Base = (X - 1) * Columnas
           BaseDestino = (X) * ColumnasDestino
           CeldaDestino(BaseDestino + Y) = Celda(Base + Y)
           Suma = Suma + CeldaDestino(BaseDestino + Y)
       Next Y
       CeldaDestino(BaseDestino + ColumnasDestino) = Suma
       Suma = 0
   Next X
   '**************************************
   'ultimo agregado (codigo perdido)
   For X = 1 To ColumnasDestino - 1
       For Y = 2 To FilasDestino - 1
           BaseDestino = (Y - 1) * ColumnasDestino
           Suma = Suma + CeldaDestino(BaseDestino + X)
       Next Y
       BaseDestino = (FilasDestino - 1) * ColumnasDestino
       CeldaDestino(BaseDestino + X) = Suma
       Suma = 0
   Next X
   
   
   '************************************
   'ultimo codigo agregado al final
   
'*****************************************
   'suma de la ultima fila
   For X = 1 To ColumnasDestino - 1
       BaseDestino = (FilasDestino - 1) * ColumnasDestino
       Suma = Suma + CeldaDestino(BaseDestino + X)
   Next X
   CeldaDestino(BaseDestino + ColumnasDestino) = Suma
   Suma = 0
   
   '***********************************
   'suma vertical de la ultima columna
   For X = 2 To FilasDestino - 1
       BaseDestino = (X - 1) * ColumnasDestino
       Suma = Suma + CeldaDestino(BaseDestino + ColumnasDestino)
   Next X
   BaseDestino = 0   'primera fila
   CeldaDestino(BaseDestino + ColumnasDestino) = Suma
   Suma = 0
   
   '***********************************
   'obtiene la suma de la ultima fila para despues sumarlo
   'a las columnas y obtener el resultado de las sumas de la primera fila
   For X = 1 To ColumnasDestino
       BaseDestino = (FilasDestino - 1) * ColumnasDestino
       Suma = Suma + CeldaDestino(BaseDestino + X)
   Next X
   SumaUltimaFila = Suma
   Suma = 0
   Debug.Print "LEEME *****:"
   Debug.Print "BaseDestino="; BaseDestino
   Debug.Print "columnas="; Columnas
   Debug.Print "SumaUltimaFila="; SumaUltimaFila
   
   '*************************************
   'suma de la primera fila
   For X = 1 To ColumnasDestino - 1
       For Y = 2 To FilasDestino - 1
           BaseDestino = (Y - 1) * ColumnasDestino
           Suma = Suma + CeldaDestino(BaseDestino + X)
       Next Y
       Suma = Suma + SumaUltimaFila
       BaseDestino = 0    '1ra fila
       CeldaDestino(BaseDestino + X) = Suma
       Suma = 0
   Next X
   
   '**********************************************
   
   'imprime las celdas destino
   cadena = ""
   Debug.Print "*************************************" & vbCrLf
       'For X = 1 To ColumnasDestino
       'BaseDestino = (X - 1) * ColumnasDestino
       'For Y = BaseDestino + 1 To BaseDestino + ColumnasDestino
           'cadena = cadena & CeldaDestino(Y) & " "
       'Next Y
       'cadena = cadena & vbCrLf
   'Next X
   
   
For X = 1 To FilasDestino
   For Y = 1 To ColumnasDestino
       BaseDestino = (X - 1) * ColumnasDestino
       cadena = cadena & CeldaDestino(BaseDestino + Y) & " "
   Next Y
   cadena = cadena & vbCrLf
Next X


   Debug.Print cadena
End Function


Option Explicit
'Form1
Private Sub Form_Load()
   Krabby_ZigZag 64
End Sub


use las etiquetas de codigo simple para que se pueda hacer copy/paste al codigo por si kieren probarlo.
nota: no funka con el numero cero "0" , por que mi array empieza desde "1", black en el 1er post dijiste q no importaba  si el array comienza de "0" o "1".

-Veo que has cambiado las reglas, ahora es "bidimensional", es obligatorio? o lo dejo asi?

edito:
PD: me adelante a las 3 horas q te dije  xp xp  :xD :xD

Psyke1

Yo posteare en los próximos días, que actualmente no tengo mucho tiempo. :-(
@krabby
Cita de: krabby en  4 Enero 2011, 03:19 AM
-Veo que has cambiado las reglas, ahora es "bidimensional", es obligatorio? o lo dejo asi?
Hombre, pues si especificó que es bidimensional, deberia serlo (creo yo)... :silbar:

DoEvents! :P

79137913

#25
HOLA!!!

Me costo bastante, se que funciona , pero seguro es lentisima :P, tendria que aprovechar mas los bucles (Ya esta!), pero es un lio XD.

AGREGUE DECIMALES: Problema, hay que cargarlos por separado. XD sino tarda demasiado la funcion.

Código (vb) [Seleccionar]
Private Function ZZ(n As Long, M() As Double, Optional DECIMALES As Double)
Dim x As Integer
Dim y As Integer
Dim SQ_Root As Integer
Dim ACUM As Double
Dim ACUM2 As Double

SQ_Root = Int(Sqr(n)) 'GRACIAS BLACK POR SQR

ReDim M(SQ_Root, SQ_Root + 1)

M(0, 1) = 1 '+ Dec_Part

ACUM = 0
ACUM2 = 0

For x = 1 To SQ_Root - 1 'PRIMERA LINEA Y PRIMERA COLUMNA
        M(x, 1) = M(x - 1, 1) + x  'PRIMERA LINEA
        M(0, x + 1) = M(0, x) + x + 1 'PRIMERA COLUMNA
        ACUM = ACUM + M(0, x + 1)
        ACUM2 = ACUM2 + M(x, 1)
Next

M(0, SQ_Root + 1) = ACUM + M(0, 1) 'TOTAL DE PRIMERA COLUMNA
M(SQ_Root, 1) = ACUM2 + M(0, 1) 'TOTAL DE PRIMERA FILA
ACUM = 0
ACUM2 = 0

For x = 1 To SQ_Root - 1 'ULTIMA LINEA Y ULTIMA COLUMNA
    M(x, SQ_Root) = M(x - 1, SQ_Root) + SQ_Root - x  'ULTIMA LINEA
    M(SQ_Root - 1, x + 1) = M(x - 1, SQ_Root) + 1  'ULTIMA COLUMNA
    ACUM = ACUM + M(SQ_Root - 1, x + 1)
    ACUM2 = ACUM2 + M(x, SQ_Root)
Next

M(SQ_Root - 1, SQ_Root + 1) = ACUM + M(SQ_Root - 1, 1) 'TOTAL DE ULTIMA COLUMNA
M(SQ_Root, SQ_Root) = ACUM2 + M(0, SQ_Root) 'TOTAL DE ULTIMA FILA
   
For y = 2 To SQ_Root - 1 'RELLENO (DEL CUADRO INTERIOR) Y TOTALES FILAS
    ACUM = 0
    For x = 1 To SQ_Root - 2
        M(x, y) = 1 + M(x + 1, y - 1)
        ACUM = ACUM + M(x, y)
    Next
    ACUM = ACUM + M(0, y) + M(SQ_Root - 1, y)
    M(SQ_Root, y) = ACUM
Next

For x = 1 To SQ_Root - 2 'TOTALES COLUMNAS INTERNAS
    ACUM = 0
    For y = 1 To SQ_Root
        ACUM = ACUM + M(x, y)
    Next
    M(x, SQ_Root + 1) = ACUM
Next

ACUM = 0

If DECIMALES <> 0 Then
For x = 0 To SQ_Root - 1
    For y = 1 To SQ_Root
        M(x, y) = M(x, y) + DECIMALES
    Next
Next
DECIMALES = DECIMALES * SQ_Root
For x = 0 To SQ_Root
    M(x, SQ_Root + 1) = M(x, SQ_Root + 1) + DECIMALES
    M(SQ_Root, x + 1) = M(SQ_Root, x + 1) + DECIMALES
Next
End If

For x = 0 To SQ_Root - 1 'ESQUINAS
    ACUM = ACUM + M(x, SQ_Root + 1)
Next

M(SQ_Root, SQ_Root + 1) = ACUM
M(SQ_Root, 0) = ACUM

For x = 0 To SQ_Root - 1 'PRIMERA LINEA RARA QUE NO TIENE SENTIDO
    M(x, 0) = SQ_Root ^ 4 + M(x, SQ_Root + 1) + SQ_Root ^ 2
Next

    ZZ = True
Exit Function
Err_:
    ZZ = False
End Function


GRACIAS POR LEER!!!
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

79137913                          *Shadow Scouts Team*

krabby

si alguien ya hizo un test de velocidad que lo cuelgue de una vez para ir probando como vamos.

raul338

#27
Cita de: 79137913 en  4 Enero 2011, 17:17 PM
Código (vb) [Seleccionar]

For X = 0 To SQ_Root - 1 'PRIMERA LINEA RARA QUE NO TIENE SENTIDO


Mi voto para el :xD

Yo no participare, no tengo ganas :xD

79137913

HOLA!!!

Listo, ahi mejore un poco la mia, igual seguro es muy lenta. Espero que alguien se ponga con el Test.

GRACIAS POR LEER!!!
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

79137913                          *Shadow Scouts Team*

BlackZeroX

.
@79137913

Código (vb) [Seleccionar]


SQ_Root = Int(N ^ 0.5)



La potencia con fracciones son mas lentas que las raiz, aun que sean equivalentes... VB la convierte a raiz pero tarda mas que hacer la raiz misma, en otras palabras usa sqr().

Dulces Lunas!¡.
The Dark Shadow is my passion.