A086014 Number of 6's in decimal expansion of n^2.

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

Offset

0,27

Links

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

Mathematica

Table[DigitCount[n^2, 10, 6], {n, 0, 110}] (* Harvey P. Dale, May 24 2014 *)

Prog

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

Crossrefs

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

Cf. A269246 for the n^3 analog.

Sequence in context: A353377 A294266 A127475 * A025437 A066032 A035187

Adjacent sequences: A086011 A086012 A086013 * A086015 A086016 A086017

Keyword

base,nonn

Author

Jason Earls, Jul 07 2003

Status

approved