OFFSET
1,2
EXAMPLE
12 is in the sequence because 12^12 = 8916100448256 has 9 even digits,
4 odd digits and 13 total digits, yielding the prime 9413.
MATHEMATICA
deneatQ[n_]:=Module[{idn=IntegerDigits[n^n]}, PrimeQ[FromDigits[ Join[ IntegerDigits[ Count[ idn, _?EvenQ]], IntegerDigits[Count[idn, _?OddQ]], IntegerDigits[Length[idn]]]]]]; Select[Range[1200], deneatQ] (* Harvey P. Dale, Aug 04 2015 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Jason Earls, Jun 03 2005
STATUS
approved