A067796 Numbers k such that phi(k) + phi(k+1) = k.

14, 20, 44, 140, 254, 272, 284, 344, 464, 764, 1224, 1424, 2064, 3200, 3824, 11648, 21584, 25520, 27644, 38840, 116544, 235584, 603584, 632400, 1677024, 1935344, 2049984, 3763184, 18460224, 74649584, 82448384, 86648000, 97507584, 363939824, 646139264, 4294967294

Offset

1,1

Links

Table of n, a(n) for n=1..36.

Mathematica

Select[Range[10^6], EulerPhi[#] + EulerPhi[# + 1] == # &] (* Amiram Eldar, Apr 23 2022 *)

Crossrefs

Cf. A000010, A092404.

Sequence in context: A054017 A129216 A259536 * A015797 A293184 A368408

Adjacent sequences: A067793 A067794 A067795 * A067797 A067798 A067799

Keyword

nonn

Author

Benoit Cloitre, Feb 07 2002

Extensions

a(22)-a(33) from Donovan Johnson, Mar 24 2011

a(34)-a(36) from Amiram Eldar, Apr 23 2022

Status

approved