A361081 - OEIS

%I #14 Jul 28 2024 03:47:59

%S 0,1,3,4,5,6,12,14,19,31,46,52,68,70,74,89,104,123,128,146,158,176,

%T 199,207,229,257,264,311,339,370,375,391,396,409,428,446,514,532,559,

%U 578,595,650,666,695,727,728,801,807,843,861,929,939,953,1025,1087,1134,1143,1164,1197,1221,1282,1314,1327

%N Records in A360224.

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

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

%Y Cf. A360224, A361080.

%K nonn

%O 1,3

%A _Michael De Vlieger_, Jun 13 2023