A083689 Numbers n such that the sum of the factorials of the digits of n! is prime.

2, 19, 24, 35, 40, 41, 42, 43, 73, 90, 125, 135, 180, 188, 209, 216, 217, 236, 241, 242, 267, 280, 304, 308, 321, 334, 343, 402, 409, 411, 436, 472, 475, 485, 487, 497, 572, 624, 635, 637, 647, 669, 689, 713, 751, 807, 844, 857, 902, 913, 930, 934, 947, 956

Offset

1,1

Links

Table of n, a(n) for n=1..54.

Example

a(2)=19 because 19! = 121645100408832000
and 1!+2!+1!+6!+4!+5!+1!+0!+0!+4!+0!+8!+8!+3!+2!+0!+0!+0! = 81547 a prime.

Mathematica

Select[Range[1000], PrimeQ[Total[IntegerDigits[#!]!]]&] (* Harvey P. Dale, Nov 25 2018 *)

Crossrefs

Sequence in context: A004023 A186682 A031030 * A102617 A365235 A290163

Adjacent sequences: A083686 A083687 A083688 * A083690 A083691 A083692

Keyword

base,nonn

Author

Jason Earls, Jun 15 2003

Status

approved