Revision 9df60ccb-e2fe-4102-ac05-b1fd3545f40a - Code Golf Stack Exchange

# [APL (Dyalog Unicode)], 10 bytes

<!-- language-all: lang-apl -->

 ∨/1~⍨(⊢∨⍳)

[Try it online!][TIO-klqwyv2t]

[APL (Dyalog Unicode)]: https://www.dyalog.com/
[TIO-klqwyv2t]: https://tio.run/##SyzI0U2pTMzJT///P@1R24RHHSv0Dese9a7QeNS1CMh51LtZ8/9/9ZCi0pKMSit1rjQFIyA2BmITILYAYksgNjQDSZiCCHOQNEiNCUjCDKzKEKTE2NiQi0vdLTGnGGIOSIsh2DAQyxSk0NDSGGSiqYWhCQA "APL (Dyalog Unicode) – Try It Online"

Outputs 1 if it isn't almost-prime, some other positive integer otherwise.

```
∨/1~⍨(⊢∨⍳)
 (⊢∨⍳) ⍝ All divisors
 1~⍨ ⍝ Remove 1
∨/ ⍝ GCD
```