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

Adjacent sequences: A055636 A055637 A055638 * A055640 A055641 A055642

Keyword

nonn,base,easy

Author

Henry Bottomley, Jun 06 2000

Status

approved