In[]:=
Series[Exp[x],{x,0,3}]
Out[]=
1+x+
2
x
2
+
3
x
6
+
4
O[x]
In[]:=
GraphData["PappusGraph"]
Out[]=