%I #4 Aug 14 2014 18:29:24
%S 1,4,15,16,19,21,22,25,28,45,51,75,81,82,86,90,91,94,98,102,106,110,
%T 113,114,118,121,122,126,130,139,140,153,161,172,179,193,201,233,241,
%U 243,273,281,313,315,321,340,353,354,359,363,364,369,374,377,379,380,384
%N Positions of 1's in A001191 (Digits of squares).
%t Flatten[Position[Flatten[IntegerDigits/@(Range[200]^2)],1]] (* _Harvey P. Dale_, Aug 14 2014 *)
%Y Cf. A001191
%K base,nonn
%O 1,2
%A _Zak Seidov_, Oct 30 2010