login
A227730
Doubly 2-densely divisible numbers.
2
1, 2, 4, 8, 12, 16, 24, 32, 36, 48, 60, 64, 72, 80, 96, 108, 112, 120, 128, 144, 160, 168, 180, 192, 216, 224, 240, 252, 256, 288, 300, 320, 324, 336, 360, 384, 396, 400, 420, 432, 448, 480, 504, 512, 528, 540, 560, 576, 600, 640, 648, 660, 672, 704, 720, 756, 768, 784
OFFSET
1,2
COMMENTS
Numbers n such that for each d | n, there is some 2-densely divisible (A174973) number d' such that d/2 < d' <= d.
PROG
(PARI) dense(n, k)=my(d=divisors(n)); for(i=2, #d, if(d[i]>k*d[i-1], return(0))); 1
is(n)=my(d=select(k->dense(k, 2), divisors(n))); if(!#d||2*d[#d]<n, return(0)); for(i=2, #d, if(d[i]>2*d[i-1], return(0))); 1
CROSSREFS
Sequence in context: A047836 A325762 A231958 * A246692 A181824 A326677
KEYWORD
nonn
AUTHOR
STATUS
approved