# Create your own mathematical mysteries: Appendix

### BASIC code to find the Humble Numbers and their variations

10 CLS

20 DIM P(100)

30 FOR N = 2 TO 100

40 M = N

50 I = 1

60 T = 0

70 FOR B = 1 TO 100: P(B) = 0: NEXT B

80 FOR F = 2 TO SQR(N) + .1

90 S = 0

100 IF M / F <> INT(M / F) THEN GOTO 150

110 IF S = 0 THEN P(I) = F: I = I + 1

120 M = M / F

130 S = 1

140 GOTO 100

150 IF F * F > M THEN F = SQR(N) + .1

160 NEXT F

170 IF P(1) <> 0 THEN T = 1 / P(1)

180 FOR A = 1 TO I - 1:

190 IF (P(A) <> 0 AND P(A + 1) <> 0) THEN T = T + P(A) / P(A + 1)

200 IF (P(A) <> 0 AND P(A + 1) = 0) THEN T = T + P(A) / M

210 NEXT A

220 T = T + (M / N) - ((I + 2) / N)

230 IF T = 1 THEN PRINT T; "N"; N

240 NEXT N

### What are the Humble numbers?

The first few number that satisfy this criteria are: 6, 10, 14, 15, 22, 26, 34, 35, 38, 46, 58, 62, 74, 82, 86, 94,106, 118, 122, 134, 142, 143, 146, 158, 166, 178, 194,…..