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 A178223 #11 Mar 30 2012 18:35:53 %S A178223 1,2,4,20,21,22,23,24,25,26,27,30,31,32,33,34,35,36,37,39,40,41,42,43, %T A178223 44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66, %U A178223 67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112 %N A178223 Numbers n such that the digits of n are also digits of n! (counting multiplicity). %e A178223 23 is in the sequence because 2 and 3 are digits of 23! = 25852016738884976640000 ; %e A178223 28 is not in the sequence because 2 is not a digit of 28! = 304888344611713860501504000000. %e A178223 11 is not in the sequence because 11! = 39916800 contains only a single "1". %t A178223 Reap[Do[a = DigitCount[n!]; b = DigitCount[n]; If[Min[a-b] >= 0, Sow[n]], {n, 1, 10^3}]][[2, 1]] %Y A178223 Cf. A064827 %K A178223 nonn,base %O A178223 1,2 %A A178223 _Michel Lagneau_, Dec 20 2010