A361081 Records in A360224.

0, 1, 3, 4, 5, 6, 12, 14, 19, 31, 46, 52, 68, 70, 74, 89, 104, 123, 128, 146, 158, 176, 199, 207, 229, 257, 264, 311, 339, 370, 375, 391, 396, 409, 428, 446, 514, 532, 559, 578, 595, 650, 666, 695, 727, 728, 801, 807, 843, 861, 929, 939, 953, 1025, 1087, 1134, 1143, 1164, 1197, 1221, 1282, 1314, 1327

Offset: 1

Author

Michael De Vlieger, Jun 13 2023

Keywords

• nonn

Crossrefs

Cf. A360224, A361080.

Programs

Mathematica

Union@ FoldList[Max, Table[Count[Range[k], _?(Nor[CoprimeQ[#, k], GCD[k^2 - 1, #] > 1, Divisible[k, Times @@ FactorInteger[#][[All, 1]] ] ] &)], {k, 2^11}] ]

Formula

a(n) = A360224(A361080(n)).