Radical of an integer: Difference between revisions
Content added Content deleted
(J) |
|||
Line 28: | Line 28: | ||
* OEIS sequence [[oeis:A007947|A007947: Largest square free number dividing n]] |
* OEIS sequence [[oeis:A007947|A007947: Largest square free number dividing n]] |
||
<br> |
<br> |
||
=={{header|J}}== |
|||
<syntaxhighlight lang=J> ~.&.q: 1+i.5 10 |
|||
1 2 3 2 5 6 7 2 3 10 |
|||
11 6 13 14 15 2 17 6 19 10 |
|||
21 22 23 6 5 26 3 14 29 30 |
|||
31 2 33 34 35 6 37 38 39 10 |
|||
41 42 43 22 15 46 47 6 7 10 |
|||
~.&.q: 99999 499999 999999 |
|||
33333 3937 111111 |
|||
(~.,.#/.~) #@~.@q: 1+i.1e6 |
|||
0 1 |
|||
1 78734 |
|||
2 288726 |
|||
3 379720 |
|||
4 208034 |
|||
5 42492 |
|||
6 2285 |
|||
7 8</syntaxhighlight> |
|||
=={{header|jq}}== |
=={{header|jq}}== |
||
'''Adapted from [[#Wren|Wren]]''' |
'''Adapted from [[#Wren|Wren]]''' |