A095824 Numbers k such that k + largest digit of k is prime.

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

Links

Table of n, a(n) for n=1..55.

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

Adjacent sequences: A095821 A095822 A095823 * A095825 A095826 A095827

Keyword

base,easy,nonn

Author

Jason Earls, Jul 10 2004

Status

approved