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

Offset: 1

Author

Henry Bottomley, Jun 06 2000

Keywords

• nonn
• base
• easy

Links

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

Crossrefs

Cf. A002796, A038769.

Programs

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

Mathematica

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