Back to Mathematica. Ignoring normalization constants, this shows that that the 1s and 2s orbitals have zero overlap:
In[1]:= psi1s[r_] = Exp[-r/a0];
psi2s[r_] = (2 - r/a0) Exp[-r/(2 a0)];
In[4]:= Integrate[psi1s[r]*psi2s[r] r^2, {r, 0, \[Infinity]}]
Out[4]= ConditionalExpression[0, Re[a0] > 0]
since a0 is a positive constant.