|
|
A333104
|
|
Unitary quasiperfect cototient numbers: numbers k such that the sum of the iterated unitary cototient function of k is equal to k+1.
|
|
0
|
|
|
10, 22, 98, 118, 230, 266, 1452, 88894, 114214, 1274198, 51675986, 61177358, 82986118
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
a(14) > 10^9.
|
|
LINKS
|
|
|
EXAMPLE
|
|
|
MATHEMATICA
|
uphi[0] = 0; uphi[1] = 1; uphi[n_] := (Times @@ (Table[#[[1]]^#[[2]] - 1, {1}] & /@ FactorInteger[n]))[[1]]; ucot[n_] := n - uphi[n]; Select[Range[10^4], Plus @@ FixedPointList[ucot, #] == 2*# + 1 &]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|