A063963 Numbers k such that k and k+2540 have the same number of divisors.

3, 11, 14, 17, 21, 26, 27, 30, 32, 33, 38, 53, 62, 65, 74, 87, 91, 107, 111, 129, 131, 137, 138, 141, 149, 154, 161, 167, 170, 173, 174, 179, 183, 186, 191, 194, 200, 203, 206, 210, 217, 219, 221, 227, 230, 238, 243, 246, 247, 251, 255, 257, 263, 266, 267, 278

Offset

1,1

Links

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

S. Graham, NMBRTHRY archives Mar 2000

Mathematica

Select[Range[300], DivisorSigma[0, #]==DivisorSigma[0, 2540+#]&] (* Harvey P. Dale, Aug 06 2013 *)

Prog

(PARI) j=[]; for(n=1, 1000, if(numdiv(n)==numdiv(n+2540), j=concat(j, n))); j
(PARI) { n=0; for (m=1, 10^9, if(numdiv(m)==numdiv(m + 2540), write("b063963.txt", n++, " ", m); if (n==1000, break)) ) } \\ Harry J. Smith, Sep 04 2009

Crossrefs

Sequence in context: A186078 A224857 A322608 * A101585 A115214 A143029

Adjacent sequences: A063960 A063961 A063962 * A063964 A063965 A063966

Keyword

easy,nonn

Author

Jason Earls, Sep 04 2001

Status

approved