OFFSET
0,12
MAPLE
P:=proc(n) local i, k, x, y, w, cont; y:=8; 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);
MATHEMATICA
DigitCount[8^Range[0, 100], 10, 8] (* Harvey P. Dale, Jan 28 2013 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Paolo P. Lava and Giorgio Balzarotti, Dec 20 2006
STATUS
approved