A132012 - OEIS

%I #9 Nov 05 2024 19:09:35

%S 3,5,7,15,17,19,25,35,51,69,81,87,123,129,141,159,177,255,267,275,309,

%T 321,339,393,447,489,501,519,537,705,795,807,849,879,1029,1245,1257,

%U 1605,1671,1689,1707,1761,1779,1797,1851,1923,1929,1941,1959,1977,2505,2595,2685

%N Records in A051445.

%H Amiram Eldar, <a href="/A132012/b132012.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).

%F a(n) = A051445(A132115(n)). - _Amiram Eldar_, Nov 05 2024

%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(f1,", ")));} \\ _Amiram Eldar_, Nov 05 2024

%Y Cf. A000010, A051445, A132115.

%K nonn

%O 1,1

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