|
| |
|
|
A070816
|
|
Solutions to Phi[P[x]]-P[Phi[x]]=65534=c are special multiples of 65537, x=65537k, where the largest prime factors of factor k were observed in {2, 3, 5, 17, 257}. See solutions to other even cases of c [=A070813]: A007283 for 0, A070004 for 2, A070814 for 14, A070815 for 254.
|
|
5
| |
|
|
65537, 131074, 196611, 262148, 327685, 393222, 524296, 655370, 786444, 983055, 1048592, 1114129, 1310740, 1572888, 1966110, 2097184, 2228258, 2621480, 3145776, 3342387, 3932220, 4194368, 4456516, 5242960, 5570645, 6291552
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| n=572662306=2.17.257.65537, P[n]=65537,Phi[n]=268435456, commutator[572662306]=Phi[65537]-P[268435456]=65536-2=65534
|
|
|
MATHEMATICA
| pf[x_] := Part[Reverse[Flatten[FactorInteger[x]]], 2] Do[s=EulerPhi[pf[n]]-pf[EulerPhi[n]]; If[Equal[s, 65534], Print[{n, n/65537, pf[n/65537]}]], {n, 3, 1000000}] (*Terms of sequence are n*)
|
|
|
CROSSREFS
| Cf. A000010, A006530, A070812, A070813, A000215, A070777, A070002-A070004, A007283.
Sequence in context: A027747 A051332 A123388 * A133864 A017695 A013964
Adjacent sequences: A070813 A070814 A070815 * A070817 A070818 A070819
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), May 09 2002
|
| |
|
|
