%I A100408
%S A100408 2,7,19,21,25,49,51,1071
%N A100408 Numbers n such that n^n-2 is prime.
%C A100408 Except for the first term all terms are odd.
%C A100408 Numbers n such that n^n+7 is prime gives the (as yet) too-short sequence 
               2,4,6,32,...
%e A100408 51 is in the sequence because 51^51-2 is prime. 1071^1071-2 is a probable 
               prime.
%t A100408 Do[If[PrimeQ[n^n-2], Print[n]], {n, 1111}]
%Y A100408 Cf. A100407.
%Y A100408 Sequence in context: A046866 A000988 A002214 this_sequence A140562 A140550 
               A103034
%Y A100408 Adjacent sequences: A100405 A100406 A100407 this_sequence A100409 A100410 
               A100411
%K A100408 more,nonn
%O A100408 1,1
%A A100408 Farideh Firoozbakht (mymontain(AT)yahoo.com), Nov 19 2004