cp's OEIS Frontend

A283930 Numbers k such that tau(2^k - 1) = tau(2^k + 1).

%I A283930 #26 Sep 08 2022 08:46:19
%S A283930 2,11,14,21,23,29,45,47,53,71,73,74,82,86,95,99,101,105,113,115,121,
%T A283930 142,167,169,179,181,199,203,209,233,235,277,307,311,317,335,337,343,
%U A283930 347,349,353,355,358,361,382,434,449,465,494,509,515,518,529,535,547,549,570,583,585,599
%N A283930 Numbers k such that tau(2^k - 1) = tau(2^k + 1).
%C A283930 tau(k) is the number of divisors of k (A000005).
%C A283930 Numbers k such that A046801(k) = A046798(k).
%C A283930 Numbers k such that A000005(A000225(k)) = A000005(A000051(k)).
%C A283930 Corresponding values of tau(2^k +- 1): 2, 4, 8, 12, 4, 8, 64, 8, 8, 8, 8, 32, 32, 32, 32, 256, 4, 1536, ...
%C A283930 Corresponding pairs of numbers (2^k - 1, 2^k + 1): (3, 5); (2047, 2049); (16383, 16385); (2097151, 2097153); (8388607, 8388609); ...
%e A283930 For n = 11; tau(2047) = tau(2049) = 4.
%t A283930 Select[Range@ 200, Function[n, Equal @@ Map[DivisorSigma[0, 2^n + #] &, {-1, 1}]]] (* _Michael De Vlieger_, Mar 18 2017 *)
%o A283930 (Magma) [n: n in [1..500] | NumberOfDivisors(2^n - 1) eq NumberOfDivisors(2^n + 1)]
%o A283930 (PARI) for(n=1, 600, if(numdiv(2^n - 1) == numdiv(2^n + 1), print1(n,", "))) \\ _Indranil Ghosh_, Mar 18 2017
%o A283930 (Python)
%o A283930 from sympy import divisor_count
%o A283930 print([n for n in range(1, 601) if divisor_count(2**n + 1) == divisor_count(2**n - 1)]) # _Indranil Ghosh_, Mar 18 2017
%Y A283930 Cf. A000005, A000051, A000225, A046798, A046801, A283931.
%K A283930 nonn
%O A283930 1,1
%A A283930 _Jaroslav Krizek_, Mar 18 2017