The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #8 May 16 2021 02:41:35
%S 1,2,5,6,8,10,13,14,21,22,24,27,29,30,33,34,37,38,41,42,44,46,49,57,
%T 58,61,65,66,69,70,73,75,77,78,80,82,85,86,93,94,98,101,102,105,106,
%U 109,110,113,114,116,118,120,122,124,125,129,130,133,135,137,138,141
%N Number k such that k and k+1 have the same number of exponential divisors (A049419).
%H Amiram Eldar, <a href="/A344312/b344312.txt">Table of n, a(n) for n = 1..10000</a>
%e 1 is a term since A049419(1) = A049419(2) = 1.
%e 8 is a term since A049419(8) = A049419(9) = 2.
%t f[p_, e_] := DivisorSigma[0, e]; ed[n_] := Times @@ f @@@ FactorInteger[n]; Select[Range[200], ed[#] == ed[# + 1] &]
%Y Cf. A049419.
%Y Similar sequences: A005237, A006049, A343819, A344313, A344314.
%K nonn
%O 1,2
%A _Amiram Eldar_, May 14 2021