A095918 - OEIS

%I #8 Apr 14 2024 23:25:07

%S 1,10,13,21,23,31,37,43,47,53,67,73,89,97,100,103,107,127,131,133,139,

%T 143,151,157,161,163,179,187,221,223,233,239,253,257,263,269,293,299,

%U 301,307,311,319,331,343,347,367,373,377,389,391,397,433,437,443,449

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

%H Harvey P. Dale, <a href="/A095918/b095918.txt">Table of n, a(n) for n = 1..1000</a>

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

%t Select[Range[500],PrimeQ[#+Max[IntegerDigits[#]!]]&] (* _Harvey P. Dale_, Sep 01 2017 *)

%Y Cf. A054055.

%K base,easy,nonn

%O 1,2

%A _Jason Earls_, Jul 11 2004