|
%I #4 Aug 25 2013 09:06:47
%S 3,5,7,13,31,47,103,179,197,227,269,281,317,353,359,379,383,389,439,
%T 467,499,547,577,593,619,647,739,757,829,887,953,983,1069,1097,1129,
%U 1187,1193,1229,1307,1367,1453,1459,1489,1579,1601,1627,1663,1753,1783,1873
%N Primes p such that p minus sum of integer of square root of its digits is a prime
%e n(5)=31 since 31-[int(sqrt(3))+int(sqrt(1))]=31-1-1=29 is prime.
%t Select[Prime[Range[300]],PrimeQ[#-Total[Floor/@Sqrt[IntegerDigits[#]]]]&] (* _Harvey P. Dale_, Aug 25 2013 *)
%Y Cf. A179632
%K nonn,base
%O 1,1
%A _Carmine Suriano_, Jul 21 2010
|
