A141546 Numbers whose abundance is 14.
272, 7232, 30848, 516608, 134094848, 2146992128, 35184309174272
Offset: 1
Examples
a(1) = 272, since sigma(272) - 2*272 = 558 - 544 = 14. - _Timothy L. Tiffin_, Sep 13 2016
Programs
-
Magma
[n: n in [1..10^8] | SumOfDivisors(n)- 2*n eq 14]; // Vincenzo Librandi, Mar 20 2015
-
Mathematica
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 *)
-
PARI
isok(n) = sigma(n) - 2*n == 14; \\ Michel Marcus, Mar 20 2015
Formula
{k: A033880(k) = 14}. - R. J. Mathar, Jun 06 2024
Extensions
a(5)-a(6) from Donovan Johnson, Dec 21 2008
a(7) from Hiroaki Yamanouchi, Aug 23 2018
Comments