|
%I #15 Apr 03 2023 09:17:05
%S 0,1,3,5,7,9,11,15,16,17,23,25,29,33,39,47,49,55,63,71,73,79,81,87,99,
%T 105,111,115,119,127,129,147,151,157,159,163,167,169,183,199,203,207,
%U 235,241,255,279,301,313,327,329,337,367,373,387,411,417,463,477
%N Records in A045763.
%H Michael De Vlieger, <a href="/A300914/b300914.txt">Table of n, a(n) for n = 1..1735</a>
%t With[{s = Array[1 + # - EulerPhi@ # - DivisorSigma[0, #] &, 700]}, Union@ FoldList[Max, 0, s]]
%t DeleteDuplicates[Table[n+1-DivisorSigma[0,n]-EulerPhi[n],{n,1000}],GreaterEqual] (* _Harvey P. Dale_, Apr 03 2023 *)
%o (PARI) lista(nn) = {rec = -1; for (n=1, nn, new = n+1-numdiv(n)-eulerphi(n); if (new > rec, print1(new, ", "); rec = new););} \\ _Michel Marcus_, Mar 18 2018
%Y Cf. A000005, A000010, A045763, A300859.
%K nonn
%O 1,3
%A _Michael De Vlieger_, Mar 15 2018
|
