OFFSET
1,1
EXAMPLE
53777 is a term because 53777 is a prime with only prime digits and 5+3+7+7+7=29, 2+9=11 and 1+1=2 are all prime.
MATHEMATICA
iifpQ[n_]:=AllTrue[NestWhileList[Total[IntegerDigits[#]]&, n, #>9&], PrimeQ]; Select[Prime[Range[20000]], AllTrue[IntegerDigits[#], PrimeQ]&&iifpQ[#]&] (* Harvey P. Dale, Jul 18 2021 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Rick L. Shepherd, Apr 21 2002
STATUS
approved