Sum of square and cube digits of an integer are primes: Difference between revisions
Sum of square and cube digits of an integer are primes (view source)
Revision as of 13:17, 2 January 2022
, 2 years ago→{{header|ALGOL 68}}: Use a more sensible sieve size
Not a robot (talk | contribs) (Add CLU) |
(→{{header|ALGOL 68}}: Use a more sensible sieve size) |
||
Line 16:
INT max number = 99; # maximum number to consider #
PR read "primes.incl.a68" PR
[]BOOL prime = PRIMESIEVE (
INT n := max number * max number * max number;
WHILE ( n OVERAB 10 ) > 0 DO
d sum +:= 9
OD;
d sum
);
# returns the sum of the digits of n #
OP DIGITSUM = ( INT n )INT:
|