A063446 Integers m such that d(m+1) = 2d(m) where d=A000005.

1, 5, 7, 13, 37, 39, 49, 55, 61, 65, 69, 73, 77, 87, 129, 134, 157, 183, 185, 193, 194, 221, 237, 247, 249, 254, 265, 275, 277, 295, 309, 313, 321, 327, 343, 363, 365, 397, 398, 417, 421, 437, 454, 455, 457, 458, 469, 471, 473, 475, 482, 493, 497, 505, 517

Offset

1,2

Links

Harry J. Smith, Table of n, a(n) for n=1..1000

Example

m=77, 2*d(77) = 2*4 = 8 = d(78).

Mathematica

Select[Range@ 520, DivisorSigma[0, # + 1] == 2 DivisorSigma[0, #] &] (* Michael De Vlieger, Feb 19 2017 *)

Prog

(PARI) { n=0; for (m=1, 10^9, if (numdiv(m + 1) == 2*numdiv(m), write("b063446.txt", n++, " ", m); if (n==1000, break)) ) } \\ Harry J. Smith, Aug 21 2009
(Magma) [n: n in [1..600] | NumberOfDivisors(n+1) eq (2* NumberOfDivisors(n))]; // Vincenzo Librandi, Aug 04 2018
(GAP) Filtered([1..520], n->Tau(n+1)=2*Tau(n)); # Muniru A Asiru, Aug 20 2018

Crossrefs

Cf. A000005.

Sequence in context: A102903 A294064 A018464 * A339775 A064600 A174874

Adjacent sequences: A063443 A063444 A063445 * A063447 A063448 A063449

Keyword

nonn

Author

Labos Elemer, Jul 24 2001

Status

approved