OFFSET
1,4
PROG
Contribution from Chris Cummins (cummins(AT)mathstat.concordia.ca), Apr 16 2010: (Start)
(GAP) max:=25;
for n in [1..max] do
ir:=Irr(CharacterTable(SymmetricGroup(n)));
Print(Maximum(List(ir, m->Length(Filtered(List(m, IsZero), k->k=true)))));
if n<max then Print(", "); else Print("\n"); fi;
od; (End)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Yuval Dekel (dekelyuval(AT)hotmail.com), Jul 24 2003
EXTENSIONS
More terms computed using GAP. Chris Cummins (cummins(AT)mathstat.concordia.ca), Apr 16 2010
a(26)-a(30) from Alexander R. Miller, Jul 16 2020
STATUS
approved