A276729 Number of nonprime digits in the decimal expansion of n.

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

Offset

0,11

Links

Robert Israel, Table of n, a(n) for n = 0..10000

Formula

a(n) = A055642(n) - A193238(n).

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

Cf. A055642, A193238, A085557, A046034 (indices of 0's), A084984, A085558, A202267, A202268.

Cf. A011557 (integers that give records).

Sequence in context: A060709 A035222 A136436 * A257629 A143331 A167677

Adjacent sequences: A276726 A276727 A276728 * A276730 A276731 A276732

Keyword

nonn,base,easy

Author

M. F. Hasler, Sep 16 2016

Status

approved