OFFSET
1,1
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..1000
EXAMPLE
Divisors of 54 = {1, 2, 3, 6, 9, 18, 27, 54}, divisors of 56 = {1, 2, 4, 7, 8, 14, 28, 56}, both have 8 divisors and sum = 120.
MATHEMATICA
Select[Range[10000], DivisorSigma[0, #] == DivisorSigma[0, # + 2] && DivisorSigma[1, #] == DivisorSigma[1, # + 2] &]
PROG
(PARI) isok(n) = (numdiv(n) == numdiv(n+2)) && (sigma(n) == sigma(n+2)); \\ Michel Marcus, Sep 20 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Sep 20 2013
EXTENSIONS
More terms from Michel Marcus, Sep 20 2013
STATUS
approved
