|
| |
|
|
A070810
|
|
Numbers n such that phi(n-phi(n))=A054571(n) is a power of 2 and n is not a prime number.
|
|
2
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
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 * A129930 A128510 A109289
Adjacent sequences: A070807 A070808 A070809 * A070811 A070812 A070813
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), May 08 2002
|
| |
|
|
