login
A095920
Numbers k such that k + (largest digit of k)! is a palindromic prime.
1
1, 10, 100, 253, 6271, 6371, 12611, 13621, 15331, 15431, 15641, 25763, 26473, 30187, 30287, 30713, 31603, 33743, 34633, 35033, 35233, 36553, 38167, 38467, 38567, 65167, 65467, 65567, 66277, 70517, 71327, 71627, 72337, 72437, 73447, 73747
OFFSET
1,2
LINKS
EXAMPLE
6271 is a term because 6271 + 7! = 11311.
MATHEMATICA
ppQ[n_]:=Module[{c=n+Max[IntegerDigits[n]]!}, PrimeQ[c]&&PalindromeQ[c]]; Select[Range[75000], ppQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 30 2017 *)
CROSSREFS
Sequence in context: A208065 A207930 A207847 * A207602 A207028 A207173
KEYWORD
base,nonn
AUTHOR
Jason Earls, Jul 11 2004
STATUS
approved