A267891 Numbers with 8 odd divisors.
105, 135, 165, 189, 195, 210, 231, 255, 270, 273, 285, 297, 330, 345, 351, 357, 375, 378, 385, 390, 399, 420, 429, 435, 455, 459, 462, 465, 483, 510, 513, 540, 546, 555, 561, 570, 594, 595, 609, 615, 621, 627, 645, 651, 660, 663, 665, 690, 702, 705, 714, 715, 741, 750, 756, 759, 770, 777, 780, 783, 795, 798, 805, 837
Offset: 1
Keywords
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Crossrefs
Programs
-
Magma
[n: n in [1..1000] | #[d: d in Divisors(n) | IsOdd(d)] eq 8]; // Bruno Berselli, Apr 04 2016
-
Maple
filter:= proc(n) local r; r:= n/2^padic:-ordp(n,2); numtheory:-tau(r)=8 end proc: select(filter, [$1..1000]); # Robert Israel, Mar 15 2018
-
Mathematica
Select[Range@ 840, Length@ Select[Divisors@ #, OddQ] == 8 &] (* Michael De Vlieger, Dec 30 2016 *)
-
PARI
isok(n) = sumdiv(n, d, (d%2)) == 8; \\ after Michel Marcus
Formula
A001227(a(n)) = 8.
Comments