A267893 Numbers with 10 odd divisors.
405, 567, 810, 891, 1053, 1134, 1377, 1539, 1620, 1782, 1863, 1875, 2106, 2268, 2349, 2511, 2754, 2997, 3078, 3240, 3321, 3483, 3564, 3726, 3750, 3807, 4212, 4293, 4375, 4536, 4698, 4779, 4941, 5022, 5427, 5508, 5751, 5913, 5994, 6156, 6399, 6480, 6642, 6723, 6875, 6966, 7128, 7203, 7209, 7452, 7500, 7614, 7857, 8125
Offset: 1
Keywords
Links
- Muniru A Asiru, Table of n, a(n) for n = 1..5000
Crossrefs
Programs
-
GAP
A:=List([1..10000],n->DivisorsInt(n));; B:=List([1..Length(A)],i->Filtered(A[i],IsOddInt));; a:=Filtered([1..Length(B)],i->Length(B[i])=10); # Muniru A Asiru, Aug 14 2018
-
Mathematica
Select[Range@ 8125, Length@ Select[Divisors@ #, OddQ] == 10 &] (* Michael De Vlieger, Dec 30 2016 *)
-
PARI
isok(n) = sumdiv(n, d, (d%2)) == 10; \\ after Michel Marcus
Formula
A001227(a(n)) = 10.
Comments