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
KEYWORD
nonn,nice
AUTHOR
EXTENSIONS
More terms from Jud McCranie, Jan 26 2000
STATUS
approved