Edited by _Dean Hickerson (dean.hickerson(AT)yahoo.com), _, Feb 16 2002
Edited by _Dean Hickerson (dean.hickerson(AT)yahoo.com), _, Feb 16 2002
proposed
approved
editing
proposed
10, 34, 136, 169, 2402, 5329, 21004, 41164, 54722, 1060802, 5026562, 10800112, 11108164, 14366402, 87026656, 102944992, 10499710072, 107000850688, 220200311872, 924354816004
a(21) > 10^13. - Giovanni Resta, Jul 11 2013
a(18)-a(20) from Giovanni Resta, Jul 11 2013
approved
editing
_Benoit Cloitre (benoit7848c(AT)orange.fr), _, Feb 07 2002
a(17) from _Donovan Johnson (donovan.johnson(AT)yahoo.com), _, Jan 31 2009
10, 34, 136, 169, 2402, 5329, 21004, 41164, 54722, 1060802, 5026562, 10800112, 11108164, 14366402, 87026656, 102944992, 10499710072
a(17) from Donovan Johnson (donovan.johnson(AT)yahoo.com), Jan 31 2009
more,nonn,new
Edited by Dean Hickerson (dean.hickerson(AT)math.ucdavisyahoo.educom), Feb 16 2002
more,nonn,new
Benoit Cloitre (abmtbenoit7848c(AT)wanadooorange.fr), Feb 07 2002
For[n=1, True, n++, If[DivisorSigma[1, n]+DivisorSigma[1, n+1]==3n, Print[n]]]
more,nonn,new