|
Search: id:A113781
|
|
|
| A113781 |
|
Numbers n such that the representation of phi(n) is a cyclic permutation of that of n, in base 10. |
|
+0
3
|
|
| 1, 21, 63, 502, 4435, 5229, 5637, 6822, 8022, 35683, 98802, 176481, 210526, 421052, 442881, 480249, 529443, 544435, 640170, 842104, 920262, 976482, 7390422
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
This is a subsequence of A115921 which in turn is a subsequence of A082060. - M. F. Hasler (Maximilian.Hasler(AT)gmail.com), Nov 28 2007
|
|
EXAMPLE
|
phi(442881)=288144.
|
|
MATHEMATICA
|
lst = {}; Do[s = ToString@n; d = ToString@EulerPhi@n; If[StringLength@d == StringLength@n && {}!= StringPosition[s<>s, d], AppendTo[lst, n]], {n, 10^6}]; lst
lst = {}; Do[s = ToString(AT)n; d = ToString(AT)EulerPhi(AT)n; If[StringLength(AT)d == StringLength(AT)n && {}!= StringPosition[s<>s, d], AppendTo[lst, n]], {n, 10^6}]; lst - M. F. Hasler (Maximilian.Hasler(AT)gmail.com), Nov 28 2007
|
|
CROSSREFS
|
Cf. A115921, A082060.
Sequence in context: A069215 A115921 A072395 this_sequence A033481 A041862 A041860
Adjacent sequences: A113778 A113779 A113780 this_sequence A113782 A113783 A113784
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Giovanni Resta (g.resta(AT)iit.cnr.it), Jan 26 2006
|
|
|
Search completed in 0.002 seconds
|
