A132115 - OEIS

%I #9 Nov 05 2024 03:14:30

%S 1,2,3,4,8,9,10,12,16,22,27,28,40,42,46,52,58,64,88,100,102,106,112,

%T 130,148,162,166,172,178,184,208,268,282,292,294,328,418,424,556,562,

%U 568,586,592,598,616,640,642,646,652,658,664,688,712,784,904,1024,1072,1168,1240

%N Where records occur in A051445.

%H Amiram Eldar, <a href="/A132115/b132115.txt">Table of n, a(n) for n = 1..4000</a>

%H Max Alekseyev, <a href="https://oeis.org/wiki/User:Max_Alekseyev/gpscripts">PARI/GP Scripts for Miscellaneous Math Problems</a> (invphi.gp).

%o (PARI) f(n) = {my(v = invphi(2*n)); if(#v == 0, 0, vecmin(v));} \\ using _Max Alekseyev_'s invphi.gp

%o lista(kmax) = {my(fmax = -1, f1); for(k = 1, kmax, f1 = f(k); if(f1 > fmax, fmax = f1; print1(k,", ")));} \\ _Amiram Eldar_, Nov 05 2024

%Y Cf. A000010, A051445, A132012.

%K nonn

%O 1,2

%A _N. J. A. Sloane_, Nov 05 2007