Inconsummate numbers in base 10: Difference between revisions
Content added Content deleted
(→{{header|Python}}: correct the max search point) |
(J) |
||
Line 201: | Line 201: | ||
</pre> |
</pre> |
||
=={{header|J}}== |
|||
With: |
|||
<syntaxhighlight lang=J>dsum=: [: +/"(1) 10&#.inv NB. digital sum |
|||
incons=: (-. (% dsum))&(1+i.) (90* 10 >.&.^. ]) NB. exclude many digital sum ratios</syntaxhighlight> |
|||
We get: |
|||
<syntaxhighlight lang=J> 5 10$incons 1000 |
|||
62 63 65 75 84 95 161 173 195 216 |
|||
261 266 272 276 326 371 372 377 381 383 |
|||
386 387 395 411 416 422 426 431 432 438 |
|||
441 443 461 466 471 476 482 483 486 488 |
|||
491 492 493 494 497 498 516 521 522 527 |
|||
999 { incons 10000 |
|||
6996 |
|||
9999 { incons 100000 |
|||
59853 |
|||
99999 { incons 1000000 |
|||
536081</syntaxhighlight> |
|||
=={{header|Pascal}}== |
=={{header|Pascal}}== |
||
==={{header|Free Pascal}}=== |
==={{header|Free Pascal}}=== |