OFFSET
1,2
MATHEMATICA
t = {}; Do[If[PrimeQ[(n^Total[IntegerDigits[n]]) + 1], AppendTo[t, n]], {n, 10000}]; t
Select[Range[10000], PrimeQ[#^Total[IntegerDigits[#]]+1]&] (* Harvey P. Dale, Aug 26 2019 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vicente Izquierdo Gomez, Aug 15 2012
STATUS
approved