login
A175963
Numbers n with property that both n and n^2 have at least two 1's.
0
11, 101, 110, 111, 119, 121, 131, 141, 411, 511, 1001, 1010, 1011, 1012, 1013, 1014, 1019, 1021, 1031, 1041, 1051, 1061, 1071, 1081, 1091, 1100, 1101, 1102, 1103, 1104, 1105, 1109, 1110, 1111, 1119, 1121, 1123, 1127, 1129, 1131, 1132, 1139, 1141, 1142
OFFSET
1,1
MATHEMATICA
Reap[Do[If[Count[IntegerDigits[n^2], 1]>1&&Count[IntegerDigits[n], 1]>1, Print[n]; Sow[n]], {n, 10^4}]][[2, 1]]
CROSSREFS
Sequence in context: A292731 A225534 A245475 * A359610 A239236 A043494
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Oct 31 2010
STATUS
approved