This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A055639 #10 Sep 08 2022 08:45:01 %S A055639 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, %T A055639 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, %U A055639 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 %N A055639 Number of nonzero digits of n which are not factors of n. %H A055639 Marius A. Burtea, <a href="/A055639/b055639.txt">Table of n, a(n) for n = 1..5000</a> %t A055639 Array[Count[Position[Most@ DigitCount@ #, _?(# > 0 &)][[All, 1]], k_ /; Mod[#, k] != 0] &, 105] (* _Michael De Vlieger_, Dec 23 2019 *) %o A055639 (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 %Y A055639 Cf. A002796, A038769. %K A055639 nonn,base,easy %O A055639 1,23 %A A055639 _Henry Bottomley_, Jun 06 2000