cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A375196 Smaller of two successive terms of A025487 that have an equal number of divisors.

This page as a plain text file.
%I A375196 #7 Aug 06 2024 11:11:09
%S A375196 6,24,72,210,5400,30720,36960,51840,53760,120120,264600,887040,
%T A375196 3991680,6912000,14968800,22118400,58198140,319334400,1703116800,
%U A375196 4151347200,6273146880,12247200000,31757806080,42343741440,47636709120,70572902400,238378140000,442810368000
%N A375196 Smaller of two successive terms of A025487 that have an equal number of divisors.
%C A375196 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?
%H A375196 Amiram Eldar, <a href="/A375196/b375196.txt">Table of n, a(n) for n = 1..4390</a>
%F A375196 a(n) = A025487(A375195(n)).
%e A375196 6 is a term since 6 and 8 are two successive terms of A025487, and they have an equal number of divisors: A000005(6) = A000005(8) = 4.
%t A375196 With[{lps = Cases[Import["https://oeis.org/A025487/b025487.txt", "Table"], {_, _}][[;; , 2]]}, lps[[Position[Differences[DivisorSigma[0, lps]], 0] // Flatten]]]
%Y A375196 Cf. A000005, A025487, A146288, A375195.
%K A375196 nonn
%O A375196 1,1
%A A375196 _Amiram Eldar_, Aug 04 2024