A108933 Numbers n such that the absolute value of (n - sum of the factorials of its digits) is prime.

3, 14, 20, 24, 25, 30, 37, 43, 50, 53, 59, 60, 67, 73, 79, 80, 97, 100, 105, 110, 115, 124, 125, 134, 138, 146, 151, 152, 158, 171, 172, 198, 201, 202, 225, 227, 235, 243, 249, 250, 255, 259, 260, 265, 295, 301, 302, 306, 314, 318, 320, 325, 327, 330, 343, 347

Offset: 1

Author

Jason Earls, Jul 20 2005

Keywords

• base
• easy
• nonn

Comments

6*10^843-1 generates an 844-digit prime.

Examples

			a(5)=25 because |25-(2!+5!)| = 97, a prime.
		

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A108911.

Programs

Mathematica

Select[Range[400],PrimeQ[Abs[#-Total[IntegerDigits[#]!]]]&] (* Harvey P. Dale, Oct 03 2017 *)