login
A063963
Numbers k such that k and k+2540 have the same number of divisors.
1
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
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 A373955
KEYWORD
easy,nonn
AUTHOR
Jason Earls, Sep 04 2001
STATUS
approved