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
KEYWORD
easy,nonn
AUTHOR
Jason Earls, Sep 04 2001
STATUS
approved