|
%I #11 Dec 15 2017 17:36:31
%S 1,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,2,0,1,1,
%T 0,0,0,0,0,0,2,0,0,0,0,1,0,1,1,1,2,1,1,1,0,1,0,0,0,0,2,0,0,0,1,0,0,0,
%U 0,0,2,1,0,0,0,0,0,0,1,0,2,0,0,0,1,0,0,0,0,0,2,0,0,0,0,1,0,1,1,1,4,2,2,2,1
%N Number of 0's in decimal expansion of n^2.
%H G. C. Greubel, <a href="/A086008/b086008.txt">Table of n, a(n) for n = 0..1000</a>
%e 10^2 = 100, so a(10)=2 and 32^2 = 1024, so a(32)=1.
%t DigitCount[(Range[0, 100])^2, 10, 0] (* _G. C. Greubel_, Dec 13 2016 *)
%o (PARI) A086008(n)=!n+#select(d->!d,digits(n^2)) \\ _M. F. Hasler_, Feb 21 2016
%Y Cf. 1's A086009, 2's A086010, 3's A086011, 4's A086012, 5's A086013, 6's A086014, 7's A086015, 8's A086016, 9's A086017.
%Y Cf. A269250 for the n^3 analog.
%K base,nonn
%O 0,11
%A _Jason Earls_, Jul 07 2003
|
