A076492 Number of common decimal digits of n! and (n+1)!.
0, 0, 0, 1, 2, 1, 2, 3, 5, 4, 4, 3, 4, 4, 3, 5, 8, 7, 7, 6, 5, 7, 9, 7, 8, 9, 8, 8, 8, 9, 9, 9, 10, 10, 10, 10, 9, 9, 10, 9, 9, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10
Offset: 1
Links
- Diana Mecum, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Table[Length[Intersection[IntegerDigits[(n+1)!], IntegerDigits[n!]]], {n, 1, 100}] Length[Intersection[#[[1]],#[[2]]]]&/@Partition[IntegerDigits[ Range[ 90]!],2,1] (* Harvey P. Dale, Jun 26 2021 *)
Extensions
More terms from Diana L. Mecum, Jun 17 2007