A046153 Primes of the form m*2^phi(m)-1 with phi(m) the Euler function, in order of increasing m.

3, 11, 79, 23, 127, 191, 1114111, 1151, 5119, 6143, 654311423, 172031, 88774955854727217151, 1618481116086271, 107221699928436768767, 7421703487487, 120946279055359, 145135534866431, 47287796087390207

Offset

1,1

Comments

Sorted along increasing n of the definition.

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..45

Maple

with(numtheory); for n from 1 to 1000 do x := n*2^phi(n)-1: if isprime(x) then print(x): fi:od:

Mathematica

Select[Table[m*2^EulerPhi[m]-1, {m, 1, 170}], PrimeQ] (* Jean-François Alcover, Apr 04 2011 *)

Crossrefs

Cf. A046154.

Sequence in context: A197064 A117765 A220146 * A163856 A232468 A099341

Adjacent sequences: A046150 A046151 A046152 * A046154 A046155 A046156

Keyword

nonn,nice

Author

Felice Russo

Extensions

More terms from Jud McCranie, Jan 26 2000

Status

approved