login
Digits of n^2 include digits of n, n does not end in 0.
1

%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_