cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

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

This page as a plain text file.
%I A380932 #11 Feb 10 2025 01:41:50
%S A380932 322245,590205,874665,966735,1934415,2900205,3224025,3378375,3869775,
%T A380932 4729725,6081075,6449625,6818175,7740495,8783775,8906625,9029475,
%U A380932 9889425,10135125,10961685,11609325,11821425,12900825,13378365,14189175,15049125,15481935,15909075,16253055
%N A380932 Odd numbers k such that A380845(k) > 2*k.
%C A380932 The odd terms in A380929.
%C A380932 Analogous to odd abundant numbers (A005231) with A380845 instead of A000203.
%H A380932 Amiram Eldar, <a href="/A380932/b380932.txt">Table of n, a(n) for n = 1..2306</a>
%e A380932 322245 is a term since it is odd, and A380845(322245) = 679582 > 2 * 322245 = 644490.
%t A380932 q[k_] := Module[{h = DigitCount[k, 2, 1]}, DivisorSum[k, # &, DigitCount[#, 2, 1] == h &] > 2*k]; Select[Range[1,10^6,2], q]
%o A380932 (PARI) isok(k) = if(!(k % 2), 0, my(h = hammingweight(k)); sumdiv(k, d, d*(hammingweight(d) == h)) > 2*k);
%Y A380932 Cf. A000203, A380845.
%Y A380932 Intersection of A005408 and A380929.
%Y A380932 Subsequence of A005231.
%Y A380932 Similar sequences: A094889, A127666, A129485, A293186, A321147, A339938, A348275, A360526, A379031.
%K A380932 nonn,base
%O A380932 1,1
%A A380932 _Amiram Eldar_, Feb 08 2025