A086009 Number of 1's in decimal expansion of n^2.

0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 1, 2, 1, 1, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 2, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 0, 2, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 1, 0, 0, 1, 1, 2, 1, 1, 2

Offset

0,12

Links

G. C. Greubel, Table of n, a(n) for n = 0..1000

Example

4^2 = 16, so a(4)=1 and 11^2 = 121, so a(11)=2.

Mathematica

DigitCount[(Range[0, 100])^2, 10, 1] (* G. C. Greubel, Dec 13 2016 *)

Prog

(PARI) A086009(n)=#select(d->d==1, digits(n^2)) \\ M. F. Hasler, Feb 21 2016

Crossrefs

Cf. 0's A086008, 2's A086010, 3's A086011, 4's A086012, 5's A086013, 6's A086014, 7's A086015, 8's A086016, 9's A086017.

Cf. A269241 for the n^3 analog.

Sequence in context: A321144 A309048 A086072 * A086010 A321929 A089198

Adjacent sequences: A086006 A086007 A086008 * A086010 A086011 A086012

Keyword

base,nonn

Author

Jason Earls, Jul 07 2003

Status

approved