login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A063446 Integers m such that d(m+1) = 2d(m) where d=A000005. 12
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 (list; graph; refs; listen; history; text; internal format)
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).

MAPLE

select(n->tau(n+1)=2*tau(n), [$1..517]); # Paolo P. Lava, Aug 02 2018

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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 16 12:45 EDT 2021. Contains 345057 sequences. (Running on oeis4.)