[go: up one dir, main page]

login
A120122
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.
2
1, 2, 24, 139968
OFFSET
1,2
COMMENTS
Conjecture: 139968 is the largest term. Except for the first term all terms are even. 139968 is also in the sequences A120121 & A120123, so it has a very pleasant property (see the Comments lines of A120121).
LINKS
EXAMPLE
24 is in the sequence because 24=phi(2*4)*(2+4).
MATHEMATICA
Do[If[h = IntegerDigits[n]; l = Length[h]; n == EulerPhi[ Product[h[[k]], {k, l}]]*Sum[h[[k]], {k, l}], Print[n]], {n, 100000000}]
CROSSREFS
Sequence in context: A098679 A123851 A258824 * A068943 A373796 A100815
KEYWORD
base,fini,nonn
AUTHOR
Farideh Firoozbakht, Aug 12 2006
STATUS
approved