import sys
input = sys.stdin.readline

# エラトステネスの篩を用いた素因数分解・約数列挙
MAX=10**6+10 # 使いたい最大値を指定

# Sieve[i]で、iの最も小さい1でない約数を返す。
Sieve=[i for i in range(MAX)]

for i in range(2,MAX):
    if Sieve[i]!=i:
        continue
    
    for j in range(i,MAX,i):
        if Sieve[j]==j:
            Sieve[j]=i

# 素因数分解
def fact(x):
    D=dict()
    while x!=1:
        k=Sieve[x]
        if k in D:
            D[k]+=1
        else:
            D[k]=1
        x//=k
    return D

# 約数列挙
def faclist(x):
    LIST=[1]
    while x!=1:
        k=Sieve[x]
        count=0
        while x%k==0:
            count+=1
            x//=k

        LIST2=[]
        for l in LIST:
            for i in range(1,count+1):
                LIST2.append(l*k**i)
        LIST+=LIST2

    return LIST

from collections import defaultdict
from math import gcd,lcm

mod=998244353

N,K=list(map(int,input().split()))
A=list(map(int,input().split()))

MAX=N-N//K
ANS=1

D=defaultdict(list)

for a in A:
    F=fact(a)

    for f in F:
        D[f].append(F[f])
        
for p in D:
    L=D[p]
    L.sort(reverse=True)

    if len(L)>MAX:
        c=L[MAX]

        #print(p,L,c)

        ANS=ANS*pow(p,c,mod)%mod

print(ANS)