Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A095824
Numbers k such that k + largest digit of k is prime.
0
1, 10, 21, 43, 54, 61, 65, 72, 76, 81, 92, 94, 98, 100, 152, 161, 172, 174, 183, 185, 190, 221, 230, 252, 263, 265, 270, 274, 276, 285, 298, 310, 343, 354, 361, 372, 376, 381, 392, 452, 461, 472, 483, 490, 494, 504, 542, 552, 563, 565, 570, 585, 590, 592, 598
OFFSET
1,2
FORMULA
a(n) ~ n log n. - Charles R Greathouse IV, Jun 13 2017
EXAMPLE
54 is a term because 54 + 5 = 59, a prime.
MATHEMATICA
Select[Range[600], PrimeQ[#+Max[IntegerDigits[#]]]&] (* Harvey P. Dale, May 19 2016 *)
PROG
(PARI) is(n)=isprime(vecmax(digits(n))+n) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
Cf. A054055.
Sequence in context: A089584 A192743 A280435 * A086225 A240994 A014007
KEYWORD
base,easy,nonn
AUTHOR
Jason Earls, Jul 10 2004
STATUS
approved