高校数学の質問スレ Part438

R言語で検証
> apply(expand.grid(1:6,1:6),1,\(xy) !(xy[1]^xy[2]+xy[2]^xy[1])%%13)
[1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
[14] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
[27] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE