A175959 Positions of 1's in A001191 (Digits of squares).

1, 4, 15, 16, 19, 21, 22, 25, 28, 45, 51, 75, 81, 82, 86, 90, 91, 94, 98, 102, 106, 110, 113, 114, 118, 121, 122, 126, 130, 139, 140, 153, 161, 172, 179, 193, 201, 233, 241, 243, 273, 281, 313, 315, 321, 340, 353, 354, 359, 363, 364, 369, 374, 377, 379, 380, 384

Offset: 1

Author

Zak Seidov, Oct 30 2010

Keywords

• base
• nonn

Crossrefs

Cf. A001191

Programs

Mathematica

Flatten[Position[Flatten[IntegerDigits/@(Range[200]^2)],1]] (* Harvey P. Dale, Aug 14 2014 *)