# Numbers with similar powers

## Husk, 10 bytes

```
§ḟ¤≡ȯÖLgp→
```

Try it online!

### Explantion

```
§ḟ → Find the first number starting from the input + 1 such that...
p The prime factorisation
g with equal elements grouped together
ȯÖL and sorted by length of groups
¤≡ has the same shape as the above applied to the input.
```

## Mathematica, 61 bytes

```
(f[x_]:=Sort[Last/@FactorInteger@x];s=#;While[f@++s!=f@#];s)&
```

Try it online!

*-4 bytes from @Misha Lavrov*

## Jelly, ~~15~~ 14 bytes

1 byte thanks to Erik the Outgolfer.

```
ÆEḟ0Ṣ
,Ç€Eð2#Ṫ
```

Try it online!