A132115 Where records occur in A051445.

1, 2, 3, 4, 8, 9, 10, 12, 16, 22, 27, 28, 40, 42, 46, 52, 58, 64, 88, 100, 102, 106, 112, 130, 148, 162, 166, 172, 178, 184, 208, 268, 282, 292, 294, 328, 418, 424, 556, 562, 568, 586, 592, 598, 616, 640, 642, 646, 652, 658, 664, 688, 712, 784, 904, 1024, 1072, 1168, 1240

Offset: 1

Author

N. J. A. Sloane, Nov 05 2007

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..4000
• Max Alekseyev, PARI/GP Scripts for Miscellaneous Math Problems (invphi.gp).

Crossrefs

Cf. A000010, A051445, A132012.

Programs

PARI

f(n) = {my(v = invphi(2*n)); if(#v == 0, 0, vecmin(v));} \\ using Max Alekseyev's invphi.gp
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