Duffinian numbers: Difference between revisions
Content added Content deleted
m (→{{header|ALGOL 68}}: tweak) |
(J) |
||
Line 166: | Line 166: | ||
8449 8450 8451 |
8449 8450 8451 |
||
</pre> |
</pre> |
||
=={{header|J}}== |
|||
Implementation: |
|||
<lang J>sigmasum=: >:@#.~/.~&.q: |
|||
composite=: 1&< * 0 = 1&p: |
|||
duffinian=: composite * 1 = ] +. sigmasum</lang> |
|||
Task examples: |
|||
<lang J> 5 10$(#~ duffinian) 1+i.1000 |
|||
4 8 9 16 21 25 27 32 35 36 |
|||
39 49 50 55 57 63 64 65 75 77 |
|||
81 85 93 98 100 111 115 119 121 125 |
|||
128 129 133 143 144 155 161 169 171 175 |
|||
183 185 187 189 201 203 205 209 215 217 |
|||
(i.3)+/~15 {.(#~ 1 1 1 E. duffinian) 1+i.100000 |
|||
63 64 65 |
|||
323 324 325 |
|||
511 512 513 |
|||
721 722 723 |
|||
899 900 901 |
|||
1443 1444 1445 |
|||
2303 2304 2305 |
|||
2449 2450 2451 |
|||
3599 3600 3601 |
|||
3871 3872 3873 |
|||
5183 5184 5185 |
|||
5617 5618 5619 |
|||
6049 6050 6051 |
|||
6399 6400 6401 |
|||
8449 8450 8451</lang> |
|||
=={{header|Julia}}== |
=={{header|Julia}}== |