This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A113781 #11 Jul 22 2021 07:52:39
%S A113781 1,21,63,502,4435,5229,5637,6822,8022,35683,98802,176481,210526,
%T A113781 421052,442881,480249,529443,544435,640170,842104,920262,976482,
%U A113781 7390422,21251221,28934019,36174255,36563587,51804709,59963997,60550457
%N A113781 Numbers k such that the representation of phi(k) is a cyclic permutation of that of k, in base 10.
%C A113781 This is a subsequence of A115921, which in turn is a subsequence of A082060. - _M. F. Hasler_, Nov 28 2007
%e A113781 phi(442881) = 288144.
%t A113781 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
%t A113781 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 *)
%Y A113781 Cf. A000010, A115921, A082060.
%K A113781 base,nonn
%O A113781 1,2
%A A113781 _Giovanni Resta_, Jan 26 2006
%E A113781 a(24)-a(30) from _Donovan Johnson_, Aug 27 2010