A092272 Numbers n such that phi(n) = phi(2*n+1).

97, 1417, 2593, 107167, 128137, 262993, 468247, 629821, 879937, 894127, 1100347, 1260847, 1620307, 1644967, 1897417, 2890717, 3122773, 3186397, 3651667, 4169197, 6176467, 7072477, 7344187, 8237707, 8974717, 9254647, 13032547, 15540037, 15673027

Offset

1,1

Links

Donovan Johnson, Table of n, a(n) for n = 1..200

Example

phi(97) = 97-1 = 96 = 2*4*12 = phi(3*5*13) = phi(195) = phi(2*97+1)

Maple

with (numtheory): for i from 1 to 1000000 do if phi(i)=phi(2*i+1) then print(i) fi; od;

Mathematica

Do[ If[ EulerPhi[n] == EulerPhi[2n + 1], Print[n]], {n, 1, 15540036}] (* Robert G. Wilson v, Feb 20 2004 *)

Prog

(PARI) is(n)=my(t=eulerphi(2*n+1)); t<n && t==eulerphi(n) \\ Charles R Greathouse IV, May 19 2013

Crossrefs

Cf. A000010, A005384.

Sequence in context: A224106 A038532 A226082 * A233433 A162542 A241968

Adjacent sequences: A092269 A092270 A092271 * A092273 A092274 A092275

Keyword

nonn

Author

Pooya Farshim (P.Farshim.00(AT)cantab.net), Feb 17 2004

Extensions

More terms from Labos Elemer and Robert G. Wilson v, Feb 19 2004

Status

approved