OFFSET
1,1
LINKS
Zak Seidov, Table of n, a(n) for n = 1..2091 (all terms up to 10^7)
MATHEMATICA
Select[Range[1125], LessEqual@@(id=IntegerDigits[#])&&PrimeQ[Total[id^2]]&] (* Ray Chandler, Dec 31 2013 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Dec 31 2013
STATUS
approved