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

Links

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

Formula

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

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

Crossrefs

Cf. A360224, A361080.

Sequence in context: A177431 A145735 A228943 * A213206 A299496 A377052

Adjacent sequences: A361078 A361079 A361080 * A361082 A361083 A361084

Keyword

nonn

Author

Michael De Vlieger, Jun 13 2023

Status

approved