Pascal's Triangle

Usage:  
To generate Pascal's triangle from rows 0 to n:   PT[n]
To shade values divisible by m:  PT[n,m]
Values will be displayed for rows up to n=20.

PT[10]

Initialization Cells

Comb[n_,r_]:=((n!)/((n-r)!r!))

PT[n_,m_:29]:=Module[{},
Show[Table[Table[
{Graphics[ {EdgeForm[Black],
If[Mod[Comb[j,i],m]==0,Red,White],
Polygon[Table[{Cos[t]+i  2.Cos[π/6]-j  Cos[π/6], Sin[t]+-j 1.5},{t,π/6,2.π-π/6,π/3.}]]}],
If[n≤20,Graphics[Text[Comb[j,i],{i 2Cos[π/6]-j Cos[π/6],-j 1.5}]],{}]},
{i,0,j}],{j,0,n}]]]