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,1

Comments

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

Links

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

Example

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

Mathematica

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

Crossrefs

Cf. A108911.

Sequence in context: A121459 A121226 A063633 * A271384 A015639 A019000

Adjacent sequences: A108930 A108931 A108932 * A108934 A108935 A108936

Keyword

base,easy,nonn

Author

Jason Earls, Jul 20 2005

Status

approved