A117229 Number of decimal digits of n in {0,1,4,8,9}

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

Offset

0,11

Comments

Previous name was "Number of perfect powers A001597 seen in the base 10 representation of n". - Felix Fröhlich, Aug 29 2014

Links

Table of n, a(n) for n=0..104.

Maple

f:= n -> nops(select(member, convert(n, base, 10), {0, 1, 4, 8, 9})):
map(f, [$0..1000]); # Robert Israel, Aug 12 2014

Prog

(PARI) a(n, v= [1, 1, 0, 0, 1, 0, 0, 0, 1, 1]) = {if (!n, return (1)); d = digits(n); sum(i=1, #d, v[d[i]+1]); } \\ Michel Marcus, Aug 10 2014

Crossrefs

Sequence in context: A255481 A241418 A330348 * A264119 A225518 A269972

Adjacent sequences: A117226 A117227 A117228 * A117230 A117231 A117232

Keyword

base,easy,nonn

Author

Giovanni Teofilatto, Apr 22 2006

Extensions

New definition by Robert Israel and Felix Fröhlich, Aug 08 2014

Status

approved