Voozh

A055639

Number of nonzero digits of n which are not factors of n.

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,23

LINKS

Marius A. Burtea, Table of n, a(n) for n = 1..5000

MATHEMATICA

Array[Count[Position[Most@ DigitCount@ #, _?(# > 0 &)][[All, 1]], k_ /; Mod[#, k] != 0] &, 105] (* Michael De Vlieger, Dec 23 2019 *)

PROG

(Magma) [#[c:c in Intseq(k) |not IsZero(c) and k mod c ne 0]:k in [1..105]]; // Marius A. Burtea, Dec 23 2019

CROSSREFS

Cf. A002796, A038769.

Sequence in context: A181953 A025911 A060184 * A156542 A307990 A066360