|
%I #11 Apr 13 2024 19:05:00
%S 1,10,21,61,65,74,76,81,87,98,110,130,176,190,230,243,270,274,285,298,
%T 322,374,403,423,470,472,474,483,490,504,534,552,585,598,605,611,670,
%U 698,716,730,734,744,752,754,783,807,825,837,855,890,902,910,922,952
%N Numbers k such that k^2 + largest digit of k is prime.
%e a(5) = 65 because 65^2 + 6 = 4231, a prime.
%t Select[Range[1000], PrimeQ[#^2 + Max[IntegerDigits[#]]] &] (* _Harvey P. Dale_, Jan 13 2011 *)
%Y Cf. A054055.
%K base,easy,nonn,changed
%O 1,2
%A _Jason Earls_, Jul 13 2004
|
