OFFSET
1,5
LINKS
Diana Mecum, Table of n, a(n) for n = 1..1000
MATHEMATICA
Table[Length[Intersection[IntegerDigits[(n+1)!, InterDigits[n! ]]], {n, 1, 100}]
Length[Intersection[#[[1]], #[[2]]]]&/@Partition[IntegerDigits[ Range[ 90]!], 2, 1] (* Harvey P. Dale, Jun 26 2021 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Labos Elemer, Oct 21 2002
EXTENSIONS
More terms from Diana L. Mecum, Jun 17 2007
STATUS
approved