[go: up one dir, main page]

login
Search: a120122 -id:a120122
     Sort: relevance | references | number | modified | created      Format: long | short | data
Numbers n such that n=phi((d_1*d_2*...*d_k)*(d_1+d_2+...+d_k)) where d_1 d_2... d_k is the decimal expansion of n.
+10
2
1, 2, 64, 384, 139968
OFFSET
1,2
COMMENTS
Conjecture: 139968 is the largest term. Except for the first term all terms are even. It's interesting that for the number 139968 we have the following relations: 139968=phi((1*3*9*9*6*8)*(1+3+9+9+6+8))=phi(1*3*9*9*6*8) *(1+3+9+9+6+8)=(1*3*9*9*6*8)*phi(1+3+9+9+6+8).
EXAMPLE
384 is in the sequence because 384=phi((3*8*4)*(3+8+4)).
MATHEMATICA
Do[If[h = IntegerDigits[n]; l = Length[h]; EulerPhi[ Product[h[[k]], {k, l}]*Sum[h[[k]], {k, l}]] == n, Print[n]], {n, 100000000}]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Farideh Firoozbakht, Aug 12 2006
STATUS
approved
Numbers n such that n=(d_1*d_2*...*d_k)*phi(d_1+d_2+...+d_k) where d_1 d_2... d_k is the decimal expansion of n.
+10
2
1, 2, 672, 34992, 139968
OFFSET
1,2
COMMENTS
Conjecture: 139968 is the largest term. Except for the first term, all terms are even. 139968 is also in A120121 & A120122, so it has a very pleasant property (see the Comments lines of A120121).
LINKS
EXAMPLE
34992 is in the sequence because 34992=(3*4*9*9*2)*phi(3+4+9+9+2).
MATHEMATICA
Do[If[h = IntegerDigits[n]; l = Length[h]; n == Product[h[[k]], {k, l}]*EulerPhi[Sum[h[[k]], {k, l}]], Print[n]], {n, 50000000}]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Farideh Firoozbakht, Aug 12 2006
STATUS
approved

Search completed in 0.005 seconds