OFFSET
1,1
COMMENTS
Do longer runs of consecutive numbers with an equal number of unitary and nonunitary divisors exist for any length of run?
Starts of runs of 6 consecutive numbers that have an equal number of unitary and nonunitary divisors, from Giovanni Resta's bfile, 80566783622, 117243671750, 390773539750, 573122731621, 636972066374. - Zak Seidov, Jun 07 2020
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..3000
EXAMPLE
146447622 is a term since 146447622, 146447623, 146447624, 146447625 and 146447626 each have an equal number of unitary and nonunitary divisors. 146447622 has 32 unitary divisors and 32 nonunitary divisors, 146447623, 146447625 and 146447626 each have 8 and 8, and 146447624 has 16 and 16.
MATHEMATICA
q[n_] := DivisorSigma[0, n] == 2^(PrimeNu[n] + 1); v = q /@ Range[5]; seq = {}; Do[v = Append[Drop[v, 1], q[k]]; If[And @@ v, AppendTo[seq, k - 4]], {k, 6, 3*10^8}]; seq
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov and Amiram Eldar, Jun 06 2020
STATUS
approved