OFFSET
0,11
LINKS
Robert Israel, Table of n, a(n) for n = 0..10000
FORMULA
a(A046034(n)) = 0. - Gordon Atkinson, Sep 06 2019
MAPLE
f:= proc(n) local t; option remember;
t:= n mod 10;
procname((n-t)/10) + `if`(member(t, [2, 3, 5, 7]), 0, 1)
end proc:
f(0):= 0:
1, seq(f(i), i=1..100); # Robert Israel, Feb 27 2019
PROG
(PARI) a(n)=#select(t->!isprime(t), digits(n))
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
M. F. Hasler, Sep 16 2016
STATUS
approved