OFFSET
1,1
COMMENTS
No more elements found up to 2*10^7. - Stefan Steinerberger, Feb 04 2006
EXAMPLE
87 is a term of the sequence because 3*29 = 87 and 87 - 29 - 3 = g(87) = 55.
MATHEMATICA
Do[ If[ DivisorSigma[1, n] + 54 == 2n, Print[n]], {n, 10^7}] (* Robert G. Wilson v, Dec 22 2004 *)
PROG
(Magma) [n: n in [1..2*10^7] | DivisorSigma(1, n)+54 eq 2*n]; // Vincenzo Librandi, Jul 30 2015
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Vassil K. Tintschev (tinchev(AT)sunhe.jinr.ru), Dec 17 2004
EXTENSIONS
a(7) from Donovan Johnson, Dec 23 2008
STATUS
approved