The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #8 Jun 29 2013 23:39:18
%S 1,5,6,11,25,27,63,64,74,76,95,96,101,105,125,139,142,205,255,261,275,
%T 277,278,285,305,364,371,376,405,421,441,463,472,493,497,501,502,503,
%U 504,505,506,507,508,509,523,524,525,593,601,602,603,605,625,631,642
%N Digits of n^2 include digits of n, n does not end in 0.
%t Select[Range[642], Count[Table[DigitCount[#^2, 10, k] - DigitCount[#, 10, k], {k, Union[x = IntegerDigits[#]]}], _?Negative] == 0 && Last[x] != 0 &] (* _Jayanta Basu_, Jun 29 2013 *)
%K nonn,base
%O 1,2
%A _David W. Wilson_