OFFSET
1,1
COMMENTS
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
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
Labos Elemer, Sep 03 2004
EXTENSIONS
Edited by R. J. Mathar, May 15 2009
STATUS
approved