|
| |
|
|
A046153
|
|
Primes of the form m*2^phi(m)-1 with phi(m) the Euler function, in order of increasing m.
|
|
0
| |
|
|
3, 11, 79, 23, 127, 191, 1114111, 1151, 5119, 6143, 654311423, 172031, 88774955854727217151, 1618481116086271, 107221699928436768767, 7421703487487, 120946279055359, 145135534866431, 47287796087390207
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
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] (* From Jean-François Alcover, Apr 4 2011 *)
|
|
|
CROSSREFS
| Cf. A046154.
Sequence in context: A196691 A197064 A117765 * A163856 A099341 A129114
Adjacent sequences: A046150 A046151 A046152 * A046154 A046155 A046156
|
|
|
KEYWORD
| nonn,nice
|
|
|
AUTHOR
| Felice Russo (frusso(AT)micron.com)
|
|
|
EXTENSIONS
| More terms from Jud McCranie (JudMcCranie(AT)ugaalum.uga.edu), Jan 26 2000
|
| |
|
|
