A095679 Numbers k such that k^2 + largest digit of k is prime.

1, 10, 21, 61, 65, 74, 76, 81, 87, 98, 110, 130, 176, 190, 230, 243, 270, 274, 285, 298, 322, 374, 403, 423, 470, 472, 474, 483, 490, 504, 534, 552, 585, 598, 605, 611, 670, 698, 716, 730, 734, 744, 752, 754, 783, 807, 825, 837, 855, 890, 902, 910, 922, 952

Offset

1,2

Links

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

Example

a(5) = 65 because 65^2 + 6 = 4231, a prime.

Mathematica

Select[Range[1000], PrimeQ[#^2 + Max[IntegerDigits[#]]] &] (* Harvey P. Dale, Jan 13 2011 *)

Crossrefs

Cf. A054055.

Sequence in context: A156592 A045973 A397270 * A095192 A356761 A096564

Adjacent sequences: A095676 A095677 A095678 * A095680 A095681 A095682

Keyword

base,easy,nonn

Author

Jason Earls, Jul 13 2004

Status

approved