A096128 Numbers k with the property that reversing the digits and adding the largest digit produces a prime.

1, 10, 12, 16, 18, 27, 29, 34, 45, 49, 56, 67, 89, 100, 106, 108, 116, 120, 122, 128, 138, 146, 158, 160, 161, 163, 164, 180, 183, 207, 209, 217, 237, 239, 245, 251, 252, 254, 255, 267, 269, 270, 271, 273, 274, 289, 290, 293, 295, 296, 308, 316, 318, 340, 343

Offset

1,2

Links

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

Example

18 is a term because 81 + 8 = 89, a prime.

Mathematica

rdQ[n_]:=Module[{idn=IntegerDigits[n]}, PrimeQ[FromDigits[Reverse[ idn]]+ Max[idn]]]; Select[Range[350], rdQ] (* Harvey P. Dale, Dec 22 2013 *)

Crossrefs

Sequence in context: A057485 A162825 A107836 * A334939 A063192 A109604

Adjacent sequences: A096125 A096126 A096127 * A096129 A096130 A096131

Keyword

base,easy,nonn

Author

Jason Earls, Jul 23 2004

Status

approved