A067143 Numbers n such that phi(n+1) = 3*phi(n).

6, 12, 18, 36, 72, 90, 96, 108, 162, 192, 432, 486, 576, 702, 768, 792, 924, 1152, 1296, 1458, 2592, 2916, 3456, 3888, 4698, 5550, 6696, 7998, 8700, 10368, 10590, 11802, 12288, 16470, 17496, 18432, 33250, 39366, 52488, 56790, 79248, 124356

Offset

1,1

Links

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

Mathematica

Position[Partition[EulerPhi[Range[125000]], 2, 1], _?(#[[2]]==3#[[1]]&), 1, Heads-> False]//Flatten (* Harvey P. Dale, Jul 30 2020 *)

Prog

(PARI) isok(n) = eulerphi(n+1) == 3*eulerphi(n); \\ Michel Marcus, Nov 20 2013

Crossrefs

Cf. A001274, A050472, A172314.

Sequence in context: A213360 A176682 A226640 * A206038 A205859 A288794

Adjacent sequences: A067140 A067141 A067142 * A067144 A067145 A067146

Keyword

nonn

Author

Benoit Cloitre, Feb 19 2002

Extensions

More terms from Dean Hickerson, Feb 20 2002

Status

approved