A095918 Numbers k such that k + (largest digit of k)! is prime.

1, 10, 13, 21, 23, 31, 37, 43, 47, 53, 67, 73, 89, 97, 100, 103, 107, 127, 131, 133, 139, 143, 151, 157, 161, 163, 179, 187, 221, 223, 233, 239, 253, 257, 263, 269, 293, 299, 301, 307, 311, 319, 331, 343, 347, 367, 373, 377, 389, 391, 397, 433, 437, 443, 449

Offset

1,2

Links

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

Example

37 is a term because 37 + 7! = 5077, a prime.

Mathematica

Select[Range[500], PrimeQ[#+Max[IntegerDigits[#]!]]&] (* Harvey P. Dale, Sep 01 2017 *)

Crossrefs

Cf. A054055.

Sequence in context: A363079 A159839 A129075 * A191969 A018785 A176762

Adjacent sequences: A095915 A095916 A095917 * A095919 A095920 A095921

Keyword

base,easy,nonn

Author

Jason Earls, Jul 11 2004

Status

approved