1,1
a(7) > 10^12. - Donovan Johnson, Dec 08 2011
a(7) > 10^13. - Giovanni Resta, Mar 29 2013
Table of n, a(n) for n=1..6.
lst={}; Do[If[n==Plus@@Divisors[n]-n-14, AppendTo[lst, n]], {n, 10^4}]; Print[lst];
lst = {}; Do[ If[2 n + 14 == DivisorSigma[1, n], AppendTo[lst, n]], {n, 2 10^8, 2}]; lst - Robert G. Wilson, v, Aug 17 2008
Sequence in context: A158587 A178268 A205345 * A000517 A168372 A023907
Adjacent sequences: A141543 A141544 A141545 * A141547 A141548 A141549
nonn
Vladimir Joseph Stephan Orlovsky, Aug 16 2008
a(5)-a(6) from Donovan Johnson, Dec 21 2008
approved
