A254130 Numbers whose factorials are exclusionary: numbers n such that n and n! have no digits in common.
0, 3, 5, 6, 7, 8, 9, 13, 16
Offset: 1
Examples
13! = 6227020800. 13 and 6227020800 have no digits in common, so 13 is a term of the sequence.
Programs
-
Mathematica
Select[Range[0,16],DisjointQ[IntegerDigits[#],IntegerDigits[#!]]&] (* Ivan N. Ianakiev, May 04 2015 *)
-
PARI
is(n)=#setintersect(Set(digits(n)), Set(digits(n!)))==0
Comments