harshad(1000)

Booleano: verdadero

enumerar(condsuc(niven(n),n,n,0,25),1)

VectorEvaluado: | 1 1 | | 2 2 | | 3 3 | | 4 4 | | 5 5 | | 6 6 | | 7 7 | | 8 8 | | 9 9 | | 10 10 | | 11 12 | | 12 18 | | 13 20 | | 14 21 | | 15 24 |

enumerar(condsuc(niven(n,2),[adigitos(n,2,''),n],n,1,200),1)

VectorEvaluado: | 1 ['1',1] | | 2 ['10',2] | | 3 ['100',4] | | 4 ['110',6] | | 5 ['1000',8] | | 6 ['1010',10] | | 7 ['1100',12] | | 8 ['10000',16] | | 9 ['10010',18] | | 10 ['10100',20] | | 11 ['10101',21] | | 12 ['11000',24] | | 13 ['100000',32] | | 14 ['100010',34] | | 15 ['100100',36] | | 16 ['101000',40] | | 17 ['101010',42] | | 18 ['110000',48] | | 19 ['110111',55] | | 20 ['111100',60] | | 21 ['1000000',64] | | 22 ['1000010',66] | | 23 ['1000100',68] | | 24 ['1000101',69] | | 25 ['1001000',72] | | 26 ['1010000',80] | | 27 ['1010001',81] | | 28 ['1010100',84] | | 29 ['1011100',92] | | 30 ['1100000',96] | | 31 ['1101100',108] | | 32 ['1101110',110] | | 33 ['1110011',115] | | 34 ['1110100',116] | | 35 ['1111000',120] | | 36 ['1111110',126] | | 37 ['10000000',128] | | 38 ['10000010',130] | | 39 ['10000100',132] | | 40 ['10001000',136] | | 41 ['10001010',138] | | 42 ['10010000',144] | | 43 ['10011011',155] | | 44 ['10011100',156] | | 45 ['10100000',160] | | 46 ['10100010',162] | | 47 ['10101000',168] | | 48 ['10101100',172] | | 49 ['10110100',180] | | 50 ['10111000',184] | | 51 ['10111001',185] | | 52 ['11000000',192] |