|
%I #16 Dec 15 2017 17:35:46
%S 2,6,8,10,22,46,58,82,106,166,178,188,226,262,285,346,358,382,466,478,
%T 502,562,586,718,838,854,862,886,902,982,1018,1186,1282,1306,1318,
%U 1366,1438,1486,1522,1618,1822,1906,2013,2026,2038,2062,2098,2206,2446,2458
%N Numbers n where phi changes as fast as sigma, i.e., abs(phi(n+1) - phi(n)) = abs(sigma(n+1) - sigma(n)).
%C This sequence is the union of two sequences A145748 and A145749. See comment lines of A145749. [_Farideh Firoozbakht_, Nov 01 2008]
%H Harry J. Smith, <a href="/A066198/b066198.txt">Table of n, a(n) for n = 1..1000</a>
%e |phi(7) - phi(6)| = |6 - 2| = |8 - 12| = |sigma(7) - sigma(6)|.
%e |phi(9) - phi(8)| = |6 - 4| = 2 = |13 - 15| = |sigma(9) - sigma(8)|.
%t Select[ Range[ 1, 10^4 ], Abs[ DivisorSigma[ 1, # + 1 ] - DivisorSigma[ 1, # ] ] == Abs[ EulerPhi[ # + 1 ] - EulerPhi[ # ] ] & ]
%o (PARI) { n=0; for (m=1, 10^9, if (abs(eulerphi(m + 1) - eulerphi(m)) == abs(sigma(m + 1) - sigma(m)), write("b066198.txt", n++, " ", m); if (n==1000, return)) ) } \\ _Harry J. Smith_, Feb 05 2010
%Y Cf. A065387, A145748, A145749.
%K nonn
%O 1,1
%A _Joseph L. Pe_, Dec 16 2001
%E More terms from _Jason Earls_, Jun 05 2002
|
