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,2

Links

Table of n, a(n) for n=1..59.

Mathematica

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]]

Crossrefs

Cf. A360224, A361081.

Sequence in context: A071354 A006622 A124269 * A179192 A344198 A112054

Adjacent sequences: A361077 A361078 A361079 * A361081 A361082 A361083

Keyword

nonn

Author

Michael De Vlieger, Jun 13 2023

Status

approved