|
%I #19 Sep 08 2022 08:45:07
%S 315,525,735,1155,1365,1575,1755,1785,1815,1995,2145,2415,2475,2805,
%T 3045,3315,3465,3885,4095,4125,4305,4515,4725,4935,5115,5145,5355,
%U 5775,6045,6195,6405,6435,6615,6825,7035,7095,7245,7395,7455,7605,7665,8085
%N 2-nadirs of phi: numbers k such that phi(k-2) > phi(k-1) > phi(k) < phi(k+1) < phi(k+2).
%C I call n a "k-nadir" (or nadir of depth k) of the arithmetical function f if n satisfies f(n-k) > ... > f(n-1) > f(n) < f(n+1) < ... < f(n+k).
%C If just phi(n-1) > phi(n) < phi(n+1) is required for odd n, does this lead to a different sequence? That is, are there consecutive odd numbers in A161962 or consecutive even numbers in A161963? - _Jianing Song_, Jan 12 2019
%H Amiram Eldar, <a href="/A076773/b076773.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..5000 from G. C. Greubel)
%e phi(313), ..., phi(317) equal 312, 156, 144, 156, 316, respectively, so 315 is a 2-nadir of phi(n).
%t Select[Range[3, 10^4], EulerPhi[#-2] > EulerPhi[#-1] > EulerPhi[#] < EulerPhi[#+1] < EulerPhi[#+2] &]
%o (Sage) [n for n in (3..9000) if euler_phi(n-2) > euler_phi(n-1) > euler_phi(n) < euler_phi(n+1) < euler_phi(n+2)] # _G. C. Greubel_, Feb 27 2019
%o (Magma) eu:=EulerPhi; f:=func<n|eu(n) lt eu(n+1) and eu(n+1) lt eu(n+2)>; f1:= func<n|eu(n) lt eu(n-1) and eu(n-1) lt eu(n-2)>; [k:k in [3..8100]|f(k) and f1(k)]; // _Marius A. Burtea_, Feb 19 2020
%Y Cf. A000010, A161962, A161963.
%K nonn
%O 1,1
%A _Joseph L. Pe_, Nov 14 2002
|
