| 4, 6, 8, 9, 10, 12, 14, 16, 18, 20, 22, 24, 25, 28, 32, 36, 38, 39, 40, 42, 44, 46, 48, 50, 55, 56, 58, 62, 64, 65, 72, 76, 77, 80, 84, 88, 92, 94, 96, 100, 112, 116, 118, 124, 128, 134, 144, 152, 158, 160, 165, 168, 176, 184, 188, 192, 200, 202, 224, 232, 235, 236
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
n=168: 168-phi[168]=168-48-120,phi[120]=32, a power of 2.
|
|
MATHEMATICA
|
Do[s=EulerPhi[n-EulerPhi[n]]; If[IntegerQ[Log[2, s]]&&!PrimeQ[n], Print[n]], {n, 1, 256}]
|
|
CROSSREFS
|
Cf. A054571, A051953, A000010, A070556, A070806-A070812.
Sequence in context: A051234 A102554 A090419 this_sequence A129930 A128510 A109289
Adjacent sequences: A070807 A070808 A070809 this_sequence A070811 A070812 A070813
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), May 08 2002
|
|
