This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A126206 #13 May 19 2019 17:47:56 %S A126206 0,1,0,1,0,1,1,1,0,2,1,3,0,1,2,2,2,1,1,3,0,3,3,3,2,2,2,3,1,2,2,3,4,3, %T A126206 1,3,3,4,2,4,2,4,2,2,3,4,3,3,3,3,2,2,3,5,2,4,2,4,4,3,3,3,4,4,6,5,5,4, %U A126206 2,9,5,2,4,6,4,7,4,2,5,4,3,4,8,4,7,9,2,8,4,7,3,10,9,5,3,5,8,8,3,10,4 %N A126206 Number of 4's in the decimal expansion of 4^n. %H A126206 Robert Israel, <a href="/A126206/b126206.txt">Table of n, a(n) for n = 0..10000</a> %e A126206 a(11)=3 because 4^11 = 4194304 with three 4's. %p A126206 P:=proc(n) local i,k,x,y,w,cont; y:=4; k:=y; for i from 0 by 1 to n do x:=y^i; cont:=0; while x>0 do w:=x-trunc(x/10)*10; if w=k then cont:=cont+1; fi; x:=trunc(x/10); od; print(cont); od; end: P(100); %p A126206 # Alternative: %p A126206 map(n -> numboccur(4, convert(4^n,base,10)), [$0..100]); # _Robert Israel_, Jul 18 2018 %t A126206 DigitCount[4^#,10,4]&/@Range[0,150] (* _Harvey P. Dale_, Feb 01 2011 *) %Y A126206 Cf. A065710, A126205, A126207, A126208, A126209, A126210, A126211. %K A126206 nonn,base %O A126206 0,10 %A A126206 _Paolo P. Lava_ and _Giorgio Balzarotti_, Dec 20 2006