Find the smallest number N with the property that its first
3 multiples (i.e. N,2N,3N) contain the digit
7.
Analytical solution preferred.
Bonus: Same for the first 4 multiples.
Several examples of 4 or 5 multiples included.
N; multiples; the multiples
237 3 237 474 711
357 3 357 714 1071
379 3 379 758 1137
587 3 587 1174 1761
739 3 739 1478 2217
789 3 789 1578 2367
857 3 857 1714 2571
879 3 879 1758 2637
1237 3 1237 2474 3711
1357 3 1357 2714 4071
1379 3 1379 2758 4137
1587 3 1587 3174 4761
1739 3 1739 3478 5217
1789 4 1789 3578 5367 7156
1857 4 1857 3714 5571 7428
1879 4 1879 3758 5637 7516
2237 3 2237 4474 6711
2337 3 2337 4674 7011
2357 3 2357 4714 7071
2367 3 2367 4734 7101
2370 3 2370 4740 7110
2371 3 2371 4742 7113
2372 3 2372 4744 7116
2373 3 2373 4746 7119
2374 3 2374 4748 7122
2375 3 2375 4750 7125
2376 3 2376 4752 7128
2377 3 2377 4754 7131
2378 3 2378 4756 7134
2379 3 2379 4758 7137
2387 3 2387 4774 7161
2397 3 2397 4794 7191
2437 4 2437 4874 7311 9748
2487 3 2487 4974 7461
2537 3 2537 5074 7611
2587 3 2587 5174 7761
2637 3 2637 5274 7911
2739 3 2739 5478 8217
2789 3 2789 5578 8367
2857 3 2857 5714 8571
2879 3 2879 5758 8637
3237 3 3237 6474 9711
3357 3 3357 6714 10071
3379 3 3379 6758 10137
3557 3 3557 7114 10671
3567 3 3567 7134 10701
3570 3 3570 7140 10710
3571 3 3571 7142 10713
3572 3 3572 7144 10716
3573 3 3573 7146 10719
3574 3 3574 7148 10722
3575 3 3575 7150 10725
3576 3 3576 7152 10728
3577 3 3577 7154 10731
3578 3 3578 7156 10734
3579 3 3579 7158 10737
3587 3 3587 7174 10761
3597 3 3597 7194 10791
3657 3 3657 7314 10971
3679 4 3679 7358 11037 14716
3709 3 3709 7418 11127
3719 4 3719 7438 11157 14876
3724 3 3724 7448 11172
3725 3 3725 7450 11175
3726 3 3726 7452 11178
3729 3 3729 7458 11187
3739 3 3739 7478 11217
3749 3 3749 7498 11247
3757 3 3757 7514 11271
3758 3 3758 7516 11274
3759 3 3759 7518 11277
3769 4 3769 7538 11307 15076
3779 3 3779 7558 11337
3789 3 3789 7578 11367
3790 3 3790 7580 11370
3791 3 3791 7582 11373
3792 3 3792 7584 11376
3793 4 3793 7586 11379 15172
3799 3 3799 7598 11397
3857 3 3857 7714 11571
3879 3 3879 7758 11637
3907 3 3907 7814 11721
3917 3 3917 7834 11751
3927 4 3927 7854 11781 15708
3957 3 3957 7914 11871
3979 3 3979 7958 11937
4237 3 4237 8474 12711
4357 5 4357 8714 13071 17428 21785
4379 4 4379 8758 13137 17516
4587 3 4587 9174 13761
4739 3 4739 9478 14217
4789 3 4789 9578 14367
4857 3 4857 9714 14571
4879 3 4879 9758 14637
5237 3 5237 10474 15711
5357 3 5357 10714 16071
5379 3 5379 10758 16137
5587 3 5587 11174 16761
5687 4 5687 11374 17061 22748
5735 3 5735 11470 17205
5736 3 5736 11472 17208
5737 3 5737 11474 17211
5738 3 5738 11476 17214
5739 3 5739 11478 17217
5785 3 5785 11570 17355
5786 3 5786 11572 17358
5787 3 5787 11574 17361
5788 3 5788 11576 17364
5789 3 5789 11578 17367
5837 3 5837 11674 17511
5857 3 5857 11714 17571
5867 3 5867 11734 17601
5870 3 5870 11740 17610
5871 3 5871 11742 17613
5872 3 5872 11744 17616
5873 3 5873 11746 17619
5874 3 5874 11748 17622
5875 3 5875 11750 17625
5876 3 5876 11752 17628
5877 3 5877 11754 17631
5878 3 5878 11756 17634
5879 3 5879 11758 17637
5887 3 5887 11774 17661
5897 3 5897 11794 17691
5937 4 5937 11874 17811 23748
5987 3 5987 11974 17961
6237 3 6237 12474 18711
6357 3 6357 12714 19071
6379 3 6379 12758 19137
6587 3 6587 13174 19761
6739 3 6739 13478 20217
6789 4 6789 13578 20367 27156
6857 4 6857 13714 20571 27428
6879 4 6879 13758 20637 27516
7039 3 7039 14078 21117
7089 3 7089 14178 21267
7139 3 7139 14278 21417
7189 4 7189 14378 21567 28756
7235 3 7235 14470 21705
7236 3 7236 14472 21708
7237 3 7237 14474 21711
7238 3 7238 14476 21714
7239 3 7239 14478 21717
7289 3 7289 14578 21867
7339 3 7339 14678 22017
7357 3 7357 14714 22071
7358 3 7358 14716 22074
7359 3 7359 14718 22077
7369 4 7369 14738 22107 29476
7379 3 7379 14758 22137
7389 3 7389 14778 22167
7390 3 7390 14780 22170
7391 3 7391 14782 22173
7392 3 7392 14784 22176
7393 4 7393 14786 22179 29572
7399 3 7399 14798 22197
7439 5 7439 14878 22317 29756 37195
7489 3 7489 14978 22467
7539 3 7539 15078 22617
7585 3 7585 15170 22755
7586 3 7586 15172 22758
7587 3 7587 15174 22761
7588 3 7588 15176 22764
7589 3 7589 15178 22767
7639 3 7639 15278 22917
7689 4 7689 15378 23067 30756
7739 3 7739 15478 23217
7789 3 7789 15578 23367
7839 3 7839 15678 23517
7857 3 7857 15714 23571
7858 3 7858 15716 23574
7859 3 7859 15718 23577
7869 4 7869 15738 23607 31476
7879 3 7879 15758 23637
7889 3 7889 15778 23667
7890 3 7890 15780 23670
7891 3 7891 15782 23673
7892 3 7892 15784 23676
7893 4 7893 15786 23679 31572
7899 3 7899 15798 23697
7939 4 7939 15878 23817 31756
7989 3 7989 15978 23967
8237 3 8237 16474 24711
8357 3 8357 16714 25071
8379 3 8379 16758 25137
8557 3 8557 17114 25671
8567 3 8567 17134 25701
8570 3 8570 17140 25710
8571 3 8571 17142 25713
8572 3 8572 17144 25716
8573 3 8573 17146 25719
8574 3 8574 17148 25722
8575 3 8575 17150 25725
8576 3 8576 17152 25728
8577 3 8577 17154 25731
8578 3 8578 17156 25734
8579 3 8579 17158 25737
8587 3 8587 17174 25761
8597 3 8597 17194 25791
8657 3 8657 17314 25971
8679 4 8679 17358 26037 34716
8709 3 8709 17418 26127
8719 4 8719 17438 26157 34876
8724 3 8724 17448 26172
8725 3 8725 17450 26175
8726 3 8726 17452 26178
8729 3 8729 17458 26187
8739 3 8739 17478 26217
8749 3 8749 17498 26247
8757 3 8757 17514 26271
8758 3 8758 17516 26274
8759 3 8759 17518 26277
8769 4 8769 17538 26307 35076
8779 3 8779 17558 26337
8789 3 8789 17578 26367
8790 3 8790 17580 26370
8791 3 8791 17582 26373
8792 3 8792 17584 26376
8793 4 8793 17586 26379 35172
8799 3 8799 17598 26397
8857 3 8857 17714 26571
8879 3 8879 17758 26637
8907 3 8907 17814 26721
8917 3 8917 17834 26751
8927 4 8927 17854 26781 35708
8957 3 8957 17914 26871
8979 3 8979 17958 26937
9037 3 9037 18074 27111
9087 3 9087 18174 27261
9137 3 9137 18274 27411
9187 4 9187 18374 27561 36748
9237 3 9237 18474 27711
9287 4 9287 18574 27861 37148
9357 5 9357 18714 28071 37428 46785
9379 4 9379 18758 28137 37516
9587 3 9587 19174 28761
9739 3 9739 19478 29217
9789 3 9789 19578 29367
9857 3 9857 19714 29571
9879 3 9879 19758 29637
DefDbl A-Z
Dim crlf$
Private Sub Form_Load()
Form1.Visible = True
Text1.Text = ""
crlf = Chr$(13) + Chr$(10)
For n = 17 To 9999
DoEvents
ct7 = 0
nn = n
Do
s$ = Str$(nn)
If InStr(s, "7") > 0 Then
ct7 = ct7 + 1
Else
Exit Do
End If
nn = nn + n
Loop
If ct7 > 2 Then
Text1.Text = Text1.Text & n & Str(ct7)
Text1.Text = Text1.Text & " "
For i = 1 To ct7
Text1.Text = Text1.Text & Str(i * n)
Next
Text1.Text = Text1.Text & crlf
End If
Next
Text1.Text = Text1.Text & crlf & " done"
End Sub
|
|
Posted by Charlie
on 2016-04-01 10:48:18 |
computer finds overlooked values
