OFFSET
1,2
COMMENTS
This is a subsequence of A115921, which in turn is a subsequence of A082060. - M. F. Hasler, 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, Nov 28 2007 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Giovanni Resta, Jan 26 2006
EXTENSIONS
a(24)-a(30) from Donovan Johnson, Aug 27 2010
STATUS
approved