|
%I #16 Jul 28 2019 21:43:42
%S 1,2,3,5,11,17,83,137,257,2879,46049,65537
%N Totient superabundant numbers: numbers n such that A092693(n)/n > A092693(m)/m for all m < n.
%C Analogous to A004394 (superabundant numbers) as A082897 (perfect totient numbers) is analogous to A000396 (perfect numbers).
%C The first 6 terms of A092506 (primes of the form 2^n + 1) are in this sequence.
%C a(13) > 1.6*10^10, if it exists. - _Giovanni Resta_, May 05 2017
%H Paul Loomis and Florian Luca, <a href="https://www.emis.de/journals/INTEGERS/papers/i6/i6.Abstract.html">On totient abundant numbers</a>, Electronic Journal of Combinatorial Number Theory, Vol. 8, #A06 (2008).
%t Function[s, Flatten[First@ Position[s, #] & /@ Union@ Rest@ FoldList[Max, 0, s]]]@ Table[(Total@ FixedPointList[EulerPhi, n] - (n + 1))/n, {n, 10^5}] (* _Michael De Vlieger_, May 06 2017, after _Alonso del Arte_ at A092693 *)
%Y Cf. A000396, A004394, A082897, A092506, A092693, A286265, A286267.
%K nonn,more
%O 1,2
%A _Amiram Eldar_, May 05 2017
|
