login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A333057
Numbers k such that k and k+1 have different (ordered) prime signatures and d_3(k) = d_3(k+1), where d_3 is A007425.
2
2024, 5624, 13688, 15375, 21608, 50300, 62775, 69375, 70784, 108927, 110888, 116864, 118016, 130815, 149768, 152703, 164024, 213759, 221823, 224720, 238975, 242432, 255231, 257175, 283904, 297135, 324224, 341887, 346544, 365295, 366848, 366975, 379647, 455552
OFFSET
1,1
COMMENTS
Apparently most of the numbers k such that k and k+1 have the same value of d_3 also have the same prime signature. a(1) = 2024 is the 212th number k such that d_3(k) = d_3(k+1), and up to 10^8 there are 8026247 such numbers k of them only 6414 are not in A052213.
LINKS
EXAMPLE
2024 is a term since d_3(2024) = d_3(2025) = 90, and the prime signatures of 2024 = 2^3 * 11 * 23 and 2025 = 3^4 * 5^2 are different ([1, 1, 3] and [2, 4]).
MATHEMATICA
f[p_, e_] := (e+1)*(e+2)/2; d3[1] = 1; d3[n_] := Times @@ f @@@ FactorInteger[n]; Select[Range[10^5], d3[#] == d3[#+1] && Sort[FactorInteger[#][[;; , 2]]] != Sort[FactorInteger[#+1][[;; , 2]]] &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Mar 06 2020
STATUS
approved