Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #18 Jan 01 2025 18:13:29
%S 1,27,32,49,64,81,121,125,128,135,147,162,169,189,192,243,250,256,289,
%T 297,320,338,343,351,361,363,375,384,405,448,486,507,512,513,529,539,
%U 567,576,578,605,621,625,637,640,648,675,686,704,722,729,750,768,783,832
%N Frugal numbers in base 2: numbers k such that A377369(k) < A070939(k).
%C A frugal number in base 2 is a number with more bits than the total number of bits of its prime factorization (including exponents > 1).
%C Following the definition by Pinch (1998), 1 is considered a frugal number.
%C Some authors call these numbers "economical numbers", as in A046759 which, according to the definition provided here, lists frugal numbers in base 10 (additionally, A046759 does not include 1).
%H Paolo Xausa, <a href="/A379537/b379537.txt">Table of n, a(n) for n = 1..10000</a>
%H Richard G. E. Pinch, <a href="https://doi.org/10.48550/arXiv.math/9802046">Economical numbers</a>, arXiv:math/9802046 [math.NT], 1998.
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Frugal_number">Frugal number</a>.
%e 32 is a term because 32 = 2^5 = 10_2^101_2; the total number of bits of (10_2, 101_2) = 5 < the number of bits of 32 = 100000_2 (6).
%e 135 is a term because 135 = 3^3*5 = 11_2^11_2*101_2; the total number of bits of (11_2, 11_2, 101_2) = 7 < the number of bits of 135 = 10000111_2 (8).
%t A379537Q[k_] := Total[BitLength[Select[Flatten[FactorInteger[k]], # > 1 &]]] < BitLength[k];
%t Select[Range[1000], A379537Q]
%Y Row n = 2 of A379538.
%Y Cf. A046759, A070939, A377369, A379373.
%K nonn,base
%O 1,2
%A _Paolo Xausa_, Dec 25 2024