|
%I #7 Mar 01 2017 11:51:15
%S 1608,1748,1920,2028,2088,2584,2776
%N Terms in a specific cycle of length 7 of the map x->A098189(x).
%C The map enters a cycle of length 7 if started at x=294, indicated by A098190(294)=7.
%C The group members of this cycle are listed here in ascending order.
%C See other attractors in A098191-A098195.
%e An iteration started at 294 leads to a attractor which cycles through 7 numbers:
%e 294->516->712->458->462->1032->1248->1464->1752->[2088->2028->2776->1748->1608->1920->2584->2088,..].
%e After 9 transients, the cycle (indicated by bracketing its members) is entered.
%o (PARI) A098189(n)=my(f=factor(n)); prod(k=1,#f~, f[k,1]^f[k,2]+1) - eulerphi(f)
%o a(n)=if(n>1, A098189(n-1), 1608) \\ _Charles R Greathouse IV_, Mar 01 2017
%Y Cf. A063919, A098189, A098190, A098191, A098192, A098194, A098195.
%K nonn,fini,full
%O 1,1
%A _Labos Elemer_, Sep 03 2004
%E Edited by _R. J. Mathar_, May 15 2009
| 