OFFSET
1,1
REFERENCES
M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards Applied Math. Series 55, 1964 (and various reprintings), p. 840.
J.-M. De Koninck, Ces nombres qui nous fascinent, Entry 62, p. 22, Ellipses, Paris 2008.
W. Sierpiński, A Selection of Problems in the Theory of Numbers. Macmillan, NY, 1964, p. 110.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..500
M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy].
MAPLE
with(numtheory):for n from 1 to 250000 do; if sigma(n) = sigma(n+17) then print(n); else fi ; od;
MATHEMATICA
Select[Range[10^5], DivisorSigma[1, #] == DivisorSigma[1, # + 17] &] (* Amiram Eldar, Aug 11 2019 *)
PROG
(Magma) [m:m in [1..250000]| SumOfDivisors(m) eq SumOfDivisors(m+17)]; // Marius A. Burtea, Aug 11 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, Feb 01 2010
STATUS
approved