A380932 Odd numbers k such that A380845(k) > 2*k.

322245, 590205, 874665, 966735, 1934415, 2900205, 3224025, 3378375, 3869775, 4729725, 6081075, 6449625, 6818175, 7740495, 8783775, 8906625, 9029475, 9889425, 10135125, 10961685, 11609325, 11821425, 12900825, 13378365, 14189175, 15049125, 15481935, 15909075, 16253055

Offset: 1

Author

Amiram Eldar, Feb 08 2025

Keywords

• nonn
• base

Comments

The odd terms in A380929.

Analogous to odd abundant numbers (A005231) with A380845 instead of A000203.

Examples

			322245 is a term since it is odd, and A380845(322245) = 679582 > 2 * 322245 = 644490.
		

Links

• Amiram Eldar, Table of n, a(n) for n = 1..2306

Crossrefs

Cf. A000203, A380845.

Intersection of A005408 and A380929.

Subsequence of A005231.

Similar sequences: A094889, A127666, A129485, A293186, A321147, A339938, A348275, A360526, A379031.

Programs

Mathematica

q[k_] := Module[{h = DigitCount[k, 2, 1]}, DivisorSum[k, # &, DigitCount[#, 2, 1] == h &] > 2*k]; Select[Range[1,10^6,2], q]

PARI

isok(k) = if(!(k % 2), 0, my(h = hammingweight(k)); sumdiv(k, d, d*(hammingweight(d) == h)) > 2*k);