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
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Oct 31 2010
STATUS
approved