A098193 Terms in a specific cycle of length 7 of the map x->A098189(x).
1608, 1748, 1920, 2028, 2088, 2584, 2776
Offset: 1
Examples
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.
Programs
-
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
Extensions
Edited by R. J. Mathar, May 15 2009
Comments