OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..1831 (calculated using the b-file at A002961; terms 1..967 from T. D. Noe)
EXAMPLE
Divisors of 14 = {1, 2, 7, 14}, divisors of 15 = {1, 3, 5, 15}, both have four divisors and sum = 24.
MATHEMATICA
Select[Range[100000], DivisorSigma[0, #] == DivisorSigma[0, # + 1] && DivisorSigma[1, #] == DivisorSigma[1, # + 1] &] (* Jayanta Basu, Mar 20 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Asher Auel, Jan 12 2000
EXTENSIONS
More terms from Jud McCranie, Jun 02 2000
STATUS
approved