OFFSET
1,1
EXAMPLE
n(5)=31 since 31-[int(sqrt(3))+int(sqrt(1))]=31-1-1=29 is prime.
MATHEMATICA
Select[Prime[Range[300]], PrimeQ[#-Total[Floor/@Sqrt[IntegerDigits[#]]]]&] (* Harvey P. Dale, Aug 25 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Carmine Suriano, Jul 21 2010
STATUS
approved