%I A046153
%S A046153 3,11,79,23,127,191,1114111,1151,5119,6143,654311423,172031,
%T A046153 88774955854727217151,1618481116086271,107221699928436768767,
%U A046153 7421703487487,120946279055359,145135534866431,47287796087390207
%N A046153 Primes of the form m*2^phi(m)-1 with phi(m) the Euler function, in order 
               of increasing m.
%p A046153 with(numtheory); for n from 1 to 1000 do x := n*2^phi(n)-1: if isprime(x) 
               then print(x): fi:od:
%Y A046153 Cf. A046154.
%Y A046153 Sequence in context: A127716 A035378 A117765 this_sequence A163856 A099341 
               A129114
%Y A046153 Adjacent sequences: A046150 A046151 A046152 this_sequence A046154 A046155 
               A046156
%K A046153 nonn,nice
%O A046153 1,1
%A A046153 Felice Russo (felice.russo(AT)katamail.com)
%E A046153 More terms from Jud McCranie (j.mccranie(AT)comcast.net), Jan 26 2000