OFFSET
1,1
COMMENTS
Up to 10^13, sigma(k-6) = sigma(k) = sigma(k+6) only for k = 33227, 604453 and 4223105512993. - Giovanni Resta, Mar 03 2014
REFERENCES
J.-M. De Koninck, Ces nombres qui nous fascinent, Entry 20, pp 7, Ellipses, Paris 2008.
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000 (first 1000 terms from Donovan Johnson)
A. Weingartner, On the Solutions of sigma(n) = sigma(n+k), Journal of Integer Sequences, Vol. 14 (2011), #11.5.5.
MATHEMATICA
Select[Range[20000], DivisorSigma[1, #]==DivisorSigma[1, # + 6] &] (* Vincenzo Librandi, Mar 10 2014 *)
PROG
(PARI) is(n)=sigma(n)==sigma(n+6) \\ Charles R Greathouse IV, Mar 09 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved