OFFSET
1,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Prime[Range[3000]], IntegerQ[Sqrt[Total[IntegerDigits[#]!]]]&] (* Harvey P. Dale, Apr 11 2016 *)
PROG
(PARI) isok(n) = isprime(n) && (d = digits(n)) && issquare(sum(i=1, #d, d[i]!)); \\ Michel Marcus, Jan 06 2014
CROSSREFS
KEYWORD
base,nonn
AUTHOR
G. L. Honaker, Jr., Feb 05 2000
EXTENSIONS
More terms from Michel Marcus, Jan 06 2014
STATUS
approved