A380931 Numbers k such that A380845(k) > 4*k.
5155920, 7733880, 10311840, 15467760, 20623680, 30935520, 41247360, 46403280, 61871040, 61901280, 75546240, 82494720, 87693480, 92806560, 103168800, 103194000, 113513400, 123742080, 123802560, 134152200, 140540400, 151092480, 151351200, 162162000, 164989440, 175386960
Offset: 1
Examples
5155920 is a term since A380845(5155920) = 21067042 > 4 * 5155920 = 20623680.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..1000
Crossrefs
Programs
-
Mathematica
q[k_] := Module[{h = DigitCount[k, 2, 1]}, DivisorSum[k, # &, DigitCount[#, 2, 1] == h &] > 4*k]; Select[Range[10^8], q] -
PARI
isok(k) = {my(h = hammingweight(k)); sumdiv(k, d, d*(hammingweight(d) == h)) > 4*k;}
Comments