OFFSET
1,1
COMMENTS
There are runs of three successive terms of A025487 that have an equal number of divisors. The smallest elements in these runs are 51840, 17149215283200, 63147292984115358771227840741376000000000, ... . Are there such runs of four successive terms?
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..4390
EXAMPLE
MATHEMATICA
With[{lps = Cases[Import["https://oeis.org/A025487/b025487.txt", "Table"], {_, _}][[;; , 2]]}, lps[[Position[Differences[DivisorSigma[0, lps]], 0] // Flatten]]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Aug 04 2024
STATUS
approved