%I #9 May 18 2013 16:49:25
%S 3,5,13,17,449,577,193,1153,86017,26214401,114689,7681,147457,
%T 754974721,215504279044097,14155777,69206017,4943727411754159833089,
%U 6269010681299730433,96757023244289,31525197391593473,8658654068737
%N Primes of the form n*2^phi(n)+1 with phi the Euler function.
%C Sorted along increasing n of the definition. [From _R. J. Mathar_, Oct 10 2010]
%H Vincenzo Librandi, <a href="/A046154/b046154.txt">Table of n, a(n) for n = 1..45</a>
%t Select[Table[n*2^EulerPhi[n]+1,{n,1,1000}],PrimeQ] (* _Vincenzo Librandi_, Jul 13 2012 *)
%K hard,nonn
%O 1,1
%A _Felice Russo_
%E More terms from _R. J. Mathar_, Oct 10 2010