A090196 Odd integers with two divisors a, b such that a < b <= 2a.
15, 35, 45, 63, 75, 77, 91, 99, 105, 117, 135, 143, 153, 165, 175, 187, 189, 195, 209, 221, 225, 231, 245, 247, 255, 273, 285, 297, 299, 315, 323, 325, 345, 351, 357, 375, 385, 391, 399, 405, 425, 429, 435, 437, 441, 455, 459, 465, 475, 483, 493, 495, 513, 525, 527, 539, 551, 555
Offset: 1
Keywords
References
- R. R. Hall and G. Tenenbaum, Divisors, Cambridge Univ. Press, 1988, pp. 95-99.
Links
- Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
- H. Maier and G. Tenenbaum, On the set of divisors of an integer, Invent. Math. 76 (1984) 121-128.
Crossrefs
Programs
-
Mathematica
Select[Range[1, 999, 2], (Divisors[#] /. {_, a_, _, b_, _} /; a < b <= 2a -> True) === True&] (* Jean-François Alcover, Nov 05 2016 *)
-
PARI
is(n)=my(d=divisors(n));for(i=2,#d\2+1,if(d[i]<2*d[i-1], return(n%2))); 0 \\ Charles R Greathouse IV, Jun 20 2013
Formula
a(n) ~ 2n. - Charles R Greathouse IV, Jun 20 2013
Extensions
Corrected by Charles R Greathouse IV, Jul 23 2012
Corrected by Jean-François Alcover and Charles R Greathouse IV, Jun 20 2013
Comments