%I #2 Mar 30 2012 17:26:35
%S 11,101,110,111,119,121,131,141,411,511,1001,1010,1011,1012,1013,1014,
%T 1019,1021,1031,1041,1051,1061,1071,1081,1091,1100,1101,1102,1103,
%U 1104,1105,1109,1110,1111,1119,1121,1123,1127,1129,1131,1132,1139,1141,1142
%N Numbers n with property that both n and n^2 have at least two 1's.
%t Reap[Do[If[Count[IntegerDigits[n^2],1]>1&&Count[IntegerDigits[n],1]>1,Print[n];Sow[n]],{n,10^4}]][[2,1]]
%K base,nonn
%O 1,1
%A _Zak Seidov_, Oct 31 2010