A360224 -id:A360224 - cp's OEIS frontend

A361080 Numbers that set records in A360224.

1, 12, 18, 28, 30, 38, 42, 48, 60, 72, 102, 108, 138, 150, 168, 180, 192, 228, 240, 270, 282, 312, 348, 402, 420, 432, 462, 522, 570, 600, 618, 642, 660, 732, 768, 798, 810, 858, 882, 990, 1008, 1020, 1050, 1092, 1152, 1218, 1230, 1278, 1290, 1320, 1428, 1452, 1482, 1608, 1620, 1722, 1788, 1830, 1848

Offset: 1

Michael De Vlieger, Jun 13 2023

nonn

Cf. A360224, A361081.

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

A361081 Records in A360224.

Original entry on oeis.org

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

Michael De Vlieger, Jun 13 2023

nonn

Cf. A360224, A361080.

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

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

cp's OEIS Frontend

A361080 Numbers that set records in A360224.

Views

Author

Keywords

Crossrefs

Programs

Mathematica