login
A098193
Terms in a specific cycle of length 7 of the map x->A098189(x).
4
1608, 1748, 1920, 2028, 2088, 2584, 2776
OFFSET
1,1
COMMENTS
The map enters a cycle of length 7 if started at x=294, indicated by A098190(294)=7.
The group members of this cycle are listed here in ascending order.
See other attractors in A098191-A098195.
EXAMPLE
An iteration started at 294 leads to a attractor which cycles through 7 numbers:
294->516->712->458->462->1032->1248->1464->1752->[2088->2028->2776->1748->1608->1920->2584->2088,..].
After 9 transients, the cycle (indicated by bracketing its members) is entered.
PROG
(PARI) A098189(n)=my(f=factor(n)); prod(k=1, #f~, f[k, 1]^f[k, 2]+1) - eulerphi(f)
a(n)=if(n>1, A098189(n-1), 1608) \\ Charles R Greathouse IV, Mar 01 2017
KEYWORD
nonn,fini,full
AUTHOR
Labos Elemer, Sep 03 2004
EXTENSIONS
Edited by R. J. Mathar, May 15 2009
STATUS
approved