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
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
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