login
Numbers n with property that both n and n^2 have at least two 1's.
0

%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