ll N,a,d[101];{rd(N);for(;N--;++d[a])rd(a);rep(i,101)rep(j,i)N+=d[i]*d[j]*d[0..j-1];wt(N%=1d9+7);}