A093325 -id:A093325 - cp's OEIS frontend

A188264 Numbers m that are divisible by the product of the factorials of their digits in base 10.

1, 2, 10, 11, 12, 20, 30, 100, 101, 102, 110, 111, 112, 120, 132, 200, 210, 212, 220, 240, 300, 312, 1000, 1001, 1002, 1010, 1011, 1012, 1020, 1032, 1100, 1101, 1102, 1104, 1110, 1111, 1112, 1120, 1200, 1210, 1212, 1220, 1320, 2000, 2010, 2012, 2020, 2100, 2110, 2112

Offset: 1

Jaroslav Krizek, Mar 25 2011

			Number 30 is in sequence because 30 is divisible by the product of factorials 3!*0! = 6.

Reinhard Zumkeller, Table of n, a(n) for n = 1..1000

Cf. A061602, A066459, A093325.

Cf. A066459, A000142, A197181.

import Data.List (elemIndices)
a188264 n = a188264_list !! (n-1)
a188264_list =
   map (+ 1) $ elemIndices 0 $ zipWith mod [1..] $ map a066459 [1..]
-- Reinhard Zumkeller, Oct 11 2011

Select[Range[2200],Divisible[#,Times@@(IntegerDigits[#]!)]&] (* Harvey P. Dale, May 24 2017 *)

A247227 Numbers that divide the sum of the factorials of their digits in base 10.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 19, 56, 71, 93, 145, 219, 758, 768, 7584, 7684, 9696, 10081, 21993, 40585

Offset: 1

Jaroslav Krizek, Dec 25 2014

Numbers n such that n divides A061602(n).
Finite sequence with 23 terms.
Subsequence of numbers n such that A061602(n) >= n. The largest such number is 1999999.
Sequence of values A061602(a(n)) / a(n): 1, 1, 2, 6, 24, 120, 720, 5040, 40320, 19099, 15, 71, 3902, 1, 1657, 60, 60, 6, 6, 75, 4, 33, 1.
Supersequence of A014080 (whose terms are the numbers n such that A061602(n) / n = 1).

			19 is in the sequence because 19 divides 1! + 9! = 1 + 362880 = 362881; 362881 / 19 = 19099.

Cf. A014080, A061602, A093325, A197181.

[n: n in [1..2000000] | &+[ Factorial(d): d in Intseq(n)] mod n eq 0]

Select[Range[50000], Mod[Plus @@ Factorial[IntegerDigits[#]], #] == 0 &] (* Michael De Vlieger, Dec 26 2014 *)

for(k=1,10^5,d=digits(k);s=sum(i=1,#d,d[i]!);if(!(s%k),print1(k,", "))) \\ Derek Orr, Dec 30 2014

cp's OEIS Frontend

A188264 Numbers m that are divisible by the product of the factorials of their digits in base 10.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Haskell

Mathematica