Self numbers: Difference between revisions
Content added Content deleted
(Added Algol 68) |
|||
Line 15: | Line 15: | ||
=={{header|ALGOL 68}}== |
=={{header|ALGOL 68}}== |
||
{{Trans|Go}} |
{{Trans|Go}} |
||
<lang algol68>BEGIN # find some self numbers numbers n such that |
<lang algol68>BEGIN # find some self numbers numbers n such that there is no g such that g + sum of g's digits = n # |
||
INT max number = 1 999 999 999 + 82; # maximum n plus g we will condifer # |
INT max number = 1 999 999 999 + 82; # maximum n plus g we will condifer # |
||
# sieve the self numbers up to 1 999 999 999 # |
# sieve the self numbers up to 1 999 999 999 # |