login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A306199
Numbers k having the property that tau(4*k) < tau(3*k) where tau = A000005.
1
4, 8, 16, 20, 28, 32, 40, 44, 48, 52, 56, 64, 68, 76, 80, 88, 92, 96, 100, 104, 112, 116, 124, 128, 136, 140, 148, 152, 160, 164, 172, 176, 184, 188, 192, 196, 200, 208, 212, 220, 224, 232, 236, 240
OFFSET
1,1
COMMENTS
All terms are divisible by 4.
A092259 (numbers congruent to {4,8} (mod 12)) is a subset.
Sequence also includes all numbers of the form 48*k where k is congruent to {1,2} (mod 3) (A001651).
Additional entries of the form 48k, where k is divisible by three have k values of 12*{1,2,4,5,7,8,10,11,12,13,14,16,17,19,20,22,23,24,...}
From Robert Israel, Jan 29 2019: (Start)
Numbers k such that A007814(k)- 2*A007949(k) >= 2.
Sequence is closed under multiplication. (End)
The asymptotic density of this sequence is 2/11. - Amiram Eldar, Mar 25 2021
LINKS
EXAMPLE
tau(4*20) = 10, tau(3*20)=12. So 20 is in the sequence.
MAPLE
with(numtheory): for n from 1 to 300 do if tau(4*n) < tau(3*n) then print(n) fi od
MATHEMATICA
Select[Range[4, 240, 4], #1 < #2 & @@ DivisorSigma[0, # {4, 3}] &] (* Michael De Vlieger, Jan 29 2019 *)
Select[Range[240], IntegerExponent[#, 2] - 2 * IntegerExponent[#, 3] >= 2 &] (* Amiram Eldar, Mar 25 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Gary Detlefs, Jan 28 2019
STATUS
approved