A116883 -id:A116883 - cp's OEIS frontend

A115036 Even terms of A116883.

6, 10, 14, 18, 20, 22, 26, 28, 30, 34, 36, 38, 42, 44, 46, 50, 52, 54, 58, 60, 62, 66, 68, 70, 72, 74, 76, 78, 82, 84, 86, 88, 90, 92, 94, 98, 100, 102, 104, 106, 108, 110, 114, 116, 118, 120, 122, 124, 126, 130, 132, 134, 136, 138, 140, 142, 146, 148, 150, 152

Offset: 1

Leroy Quet, Feb 26 2006

The union of this sequence and the sequence of odd positive integers is sequence A116883.

			The highest odd divisor of 20 (which is 5) is greater than the highest power of 2 dividing 20 (which is 4) and 20 is even, so 20 is in this sequence.

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Cf. A116883.

a = {}; For[n = 2, n < 200, n = n + 2, If[Select[Divisors[n], OddQ[ # ] &][[ -1]]^2 > n - 1, AppendTo[a, n]]]; a (* Stefan Steinerberger, Oct 16 2007 *)

list(lim)=my(v=List(),t,M);forstep(k=3,lim\2,2,t=k+k;M=min(lim,k^2);while(t<=M,listput(v,t);t+=t));vecsort(Vec(v)) \\ Charles R Greathouse IV, Mar 16 2011

More terms from Stefan Steinerberger, Oct 16 2007

A033677 Smallest divisor of n >= sqrt(n).

Original entry on oeis.org

1, 2, 3, 2, 5, 3, 7, 4, 3, 5, 11, 4, 13, 7, 5, 4, 17, 6, 19, 5, 7, 11, 23, 6, 5, 13, 9, 7, 29, 6, 31, 8, 11, 17, 7, 6, 37, 19, 13, 8, 41, 7, 43, 11, 9, 23, 47, 8, 7, 10, 17, 13, 53, 9, 11, 8, 19, 29, 59, 10, 61, 31, 9, 8, 13, 11, 67, 17, 23, 10, 71, 9, 73, 37, 15, 19, 11, 13, 79, 10

Offset: 1

N. J. A. Sloane

a(n) is the smallest k such that n appears in the k X k multiplication table and A027424(k) is the number of n with a(n) <= k.
a(n) is the largest central divisor of n. Right border of A207375. - Omar E. Pol, Feb 26 2019
If we define a divisor d|n to be superior if d >= n/d, then superior divisors are counted by A038548 and listed by A161908. This sequence selects the smallest superior divisor of n. - Gus Wiseman, Feb 19 2021
a(p) = p for p a prime or 1, these are also the record high points in this sequence. - Charles Kusniec, Aug 26 2022
a(n^4+n^2+1) = n^2+n+1 (see A033676). - Jianing Song, Oct 23 2022

			From _Gus Wiseman_, Feb 19 2021: (Start)
The divisors of 36 are {1,2,3,4,6,9,12,18,36}. Of these {1,2,3,4,6} are inferior and {6,9,12,18,36} are superior, so a(36) = 6.
The divisors of 40 are {1,2,4,5,8,10,20,40}. Of these {1,2,4,5} are inferior and {8,10,20,40} are superior, so a(40) = 8.
(End)

G. Tenenbaum, pp. 268ff of R. L. Graham et al., eds., Mathematics of Paul Erdős I.

T. D. Noe, Table of n, a(n) for n = 1..10000

Cf. A027424, A056737, A060775, A219695.
The lower central divisor is A033676.
The strictly superior case is A140271.
Leftmost column of A161908 (superior divisors).
Rightmost column of A207375 (central divisors).
A038548 counts superior (or inferior) divisors.
A056924 counts strictly superior (or strictly inferior) divisors.
A063538/A063539 list numbers with/without a superior prime divisor.
A070038 adds up superior divisors.
A341676 selects the unique superior prime divisor.
- Inferior: A063962, A066839, A069288, A161906, A217581, A333749, A333750.
- Superior: A059172, A116882, A116883, A341591, A341592, A341593, A341675.
- Strictly Inferior: A070039, A333805, A333806, A341596, A341674, A341677.
- Strictly Superior: A048098, A064052, A238535, A341594, A341595, A341642, A341643, A341644, A341645, A341646, A341673.
Cf. A000005, A000203, A001248, A001221, A001222, A020639, A051283.

a033677 n = head $
   dropWhile ((< n) . (^ 2)) [d | d <- [1..n], mod n d == 0]
-- Reinhard Zumkeller, Oct 20 2011

A033677 := proc(n)
    n/A033676(n) ;
end proc:

Table[Select[Divisors[n], # >= Sqrt[n] &, 1] // First, {n, 80}]  (* Jean-François Alcover, Apr 01 2011 *)

A033677(n) = {local(d); d=divisors(n); d[length(d)\2+1]} \\ Michael B. Porter, Feb 26 2010

from sympy import divisors
def A033677(n):
    d = divisors(n)
    return d[len(d)//2]  # Chai Wah Wu, Apr 05 2021

a(n) = n/A033676(n).

a(n) = A162348(2n). - Daniel Forgues, Sep 29 2014

A063539 Numbers n that are sqrt(n-1)-smooth: largest prime factor of n (=A006530(n)) < sqrt(n).

Original entry on oeis.org

1, 8, 12, 16, 18, 24, 27, 30, 32, 36, 40, 45, 48, 50, 54, 56, 60, 63, 64, 70, 72, 75, 80, 81, 84, 90, 96, 98, 100, 105, 108, 112, 120, 125, 126, 128, 132, 135, 140, 144, 147, 150, 154, 160, 162, 165, 168, 175, 176, 180, 182, 189, 192, 195, 196

Offset: 1

N. J. A. Sloane, Aug 14 2001

nonn

Sometimes (Weisstein) called the "usual numbers" as opposed to what Greene and Knuth define as "unusual numbers" (A063538), which turn out to not be so unusual after all (Greene and Knuth 1990, Finch 2001). - Jonathan Vos Post, Sep 11 2010
If we define a divisor d|n to be superior if d >= n/d, then superior divisors are counted by A038548 and listed by A161908. This sequence lists numbers without a superior prime divisor, which is unique (A341676) when it exists. For example, the set of superior prime divisors of each n starts: {},{2},{3},{2},{5},{3},{7},{},{3},{5},{11},{},{13},{7}. The positions of empty sets give the sequence. - Gus Wiseman, Feb 24 2021
As Jonathan Vos Post's comment suggests, the sqrt(n-1)-smooth numbers are asymptotically less dense than their "unusual" complement. This is part of a larger picture of "typical" relative sizes of a number's prime factors: see, for example, the medians of the n-th smallest prime factors of the positive integers in A281889. - Peter Munn, Mar 03 2021

			a(100) = 360; a(1000) = 3744; a(10000) = 37665; a(100000)=375084;
a(10^6) = 3697669; a(10^7) = 36519633; a(10^8) = 360856296;
a(10^9) = 3571942311; a(10^10) = 35410325861; a(10^11) = 351498917129. - _Giovanni Resta_, Apr 12 2020

Greene, D. H. and Knuth, D. E., Mathematics for the Analysis of Algorithms, 3rd ed. Boston, MA: Birkhäuser, pp. 95-98, 1990.

N. J. A. Sloane, Table of a(n) for n = 1..10622 [Extending and correcting earlier b-files from T. D. Noe and Marius A. Burtea]
M. Beeler, R. W. Gosper and R. Schroeppel, HAKMEM, ITEM 29
Steven Finch, "RE: Unusual Numbers.", Aug 27 2001.
Hugo Pfoertner, Illustration of deviation from linear fit 3.7642*n, (2020).
Hugo Pfoertner, Illustration of relative error of asymptotic approximation, (2020).
Project Euler, Problem 668: Square root smooth numbers
V. Ramaswami, On the number of positive integers less than x and free of prime divisors greater than x^c, Bull. Amer. Math. Soc. 55 (1949), 1122-1127.
Eric W. Weisstein, Rough Number. [From _Jonathan Vos Post_, Sep 11 2010]
Wikipedia, Dickman function

Set difference of A048098 and A001248.
Complement of A063538.
Cf. A006530.
The following are all different versions of sqrt(n)-smooth numbers: A048098, A063539, A064775, A295084, A333535, A333536.
Positions of zeros in A341591.
A001221 counts prime divisors, with sum A001414.
A001222 counts prime-power divisors.
A033677 selects the smallest superior divisor.
A038548 counts superior (or inferior) divisors.
A051283 lists numbers without a superior prime-power divisor.
A056924 counts strictly superior (or strictly inferior) divisors.
A059172 lists numbers without a superior squarefree divisor.
A063962 counts inferior prime divisors.
A116882/A116883 list numbers with/without a superior odd divisor.
A161908 lists superior divisors.
A207375 lists central divisors.
A217581 selects the greatest inferior prime divisor.
A341642 counts strictly superior prime divisors.
A341676 gives unique superior prime divisors, with strict case A341643.
- Inferior: A033676, A066839, A069288, A161906, A333749, A333750.
- Superior: A070038, A072500, A341592, A341593, A341675.
- Strictly inferior: A060775, A070039, A333805, A333806, A341596, A341674.
- Strictly superior: A064052, A140271, A238535, A341594, A341595, A341644, A341645, A341646, A341673.
Cf. A000005, A000203, A020639, A112798, A281889.

[1] cat [m:m in [2..200]| Max(PrimeFactors(m)) lt Sqrt(m) ]; // Marius A. Burtea, May 08 2019

N:= 1000: # to get all terms <= N
Primes:= select(isprime, [2, seq(2*i+1, i=1..floor((N-1)/2))]):
S:= {$1..N} minus {seq(seq(m*p, m = 1 .. min(p, N/p)), p=Primes)}:
sort(convert(S, list)); # Robert Israel, Sep 02 2015

Prepend[Select[Range[192], FactorInteger[#][[-1, 1]] < Sqrt[#] &], 1] (* Ivan Neretin, Sep 02 2015 *)

from math import isqrt
from sympy import primepi
def A063539(n):
    def bisection(f,kmin=0,kmax=1):
        while f(kmax) > kmax: kmax <<= 1
        while kmax-kmin > 1:
            kmid = kmax+kmin>>1
            if f(kmid) <= kmid:
                kmax = kmid
            else:
                kmin = kmid
        return kmax
    def f(x): return int(n+primepi(x//(y:=isqrt(x)))+sum(primepi(x//i)-primepi(i) for i in range(1,y)))
    return bisection(f,n,n) # Chai Wah Wu, Oct 05 2024

From Hugo Pfoertner, Apr 02 - Apr 12 2020: (Start)
For small n (e.g. n < 10000) a(n) can apparently be approximated by 3.7642*n.
Asymptotically, the number of sqrt(n)-smooth numbers < x is known to be (1-log(2))*x + O(x/log(x)), see Ramaswami (1949).
n = (1-log(2))*a(n) - 0.59436*a(n)/log(a(n)) is a fitted approximation. (End)
However, it is known that this fit only leads to an increase of accuracy in the range up to a(10^11). The improvement in accuracy suggested by the plot of the relative error for even larger n does not occur. For larger n the behavior of the error term O(x/log(x)) is not known. - Hugo Pfoertner, Nov 12 2023

A161906 Triangle read by rows in which row n lists the divisors of n that are <= sqrt(n).

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 3, 1, 2, 1, 1, 2, 3, 1, 1, 2, 1, 3, 1, 2, 4, 1, 1, 2, 3, 1, 1, 2, 4, 1, 3, 1, 2, 1, 1, 2, 3, 4, 1, 5, 1, 2, 1, 3, 1, 2, 4, 1, 1, 2, 3, 5, 1, 1, 2, 4, 1, 3, 1, 2, 1, 5, 1, 2, 3, 4, 6, 1, 1, 2, 1, 3, 1, 2, 4, 5, 1, 1, 2, 3, 6, 1, 1, 2, 4, 1, 3, 5, 1, 2, 1, 1, 2, 3

Offset: 1

Omar E. Pol, Jun 27 2009

If we define a divisor d|n to be inferior if d <= n/d, then inferior divisors are counted by A038548 and listed by this sequence. - Gus Wiseman, Mar 08 2021

			Triangle begins:
   1....... 1;
   2....... 1;
   3....... 1;
   4..... 1,2;
   5....... 1;
   6..... 1,2;
   7....... 1;
   8..... 1,2;
   9..... 1,3;
  10..... 1,2;
  11....... 1;
  12... 1,2,3;
  13....... 1;
  14..... 1,2;
  15..... 1,3;
  16... 1,2,4;

Reinhard Zumkeller, Rows n = 1..1000 of triangle, flattened

Initial terms are A000012.
Final terms are A033676.
Row lengths are A038548 (number of inferior divisors).
Row sums are A066839 (sum of inferior divisors).
The prime terms are counted by A063962.
The odd terms are counted by A069288.
Row products are A072499.
Row LCMs are A072504.
The superior version is A161908.
The squarefree terms are counted by A333749.
The prime-power terms are counted by A333750.
The strictly superior version is A341673.
The strictly inferior version is A341674.
A001221 counts prime divisors, with sum A001414.
A000005 counts divisors, listed by A027750 with sum A000203.
A056924 count strictly superior (or strictly inferior divisors).
A207375 lists central divisors.
- Inferior: A217581.
- Superior: A033677, A051283, A059172, A063538, A063539, A070038, A116882, A116883, A341591, A341592, A341593, A341675, A341676.
- Strictly Inferior: A060775, A070039, A333805, A333806, A341596, A341677.
- Strictly Superior: A048098, A064052, A140271, A238535, A341594, A341595, A341642, A341643, A341644, A341645, A341646.
Cf. A000196, A001055, A001248, A006530, A020639, A050320, A068101, A161901.

a161906 n k = a161906_tabf !! (n-1) !! (k-1)
a161906_row n = a161906_tabf !! (n-1)
a161906_tabf = zipWith (\m ds -> takeWhile ((<= m) . (^ 2)) ds)
                       [1..] a027750_tabf'
-- Reinhard Zumkeller, Jun 24 2015, Mar 08 2013

div[n_] := Select[Divisors[n], # <= Sqrt[n] &]; div /@ Range[48] // Flatten (* Amiram Eldar, Nov 13 2020 *)

row(n) = select(x->(x<=sqrt(n)), divisors(n)); \\ Michel Marcus, Nov 13 2020

More terms from Sean A. Irvine, Nov 29 2010

A116882 A number k is included if (highest odd divisor of k)^2 <= k.

Original entry on oeis.org

1, 2, 4, 8, 12, 16, 24, 32, 40, 48, 56, 64, 80, 96, 112, 128, 144, 160, 176, 192, 208, 224, 240, 256, 288, 320, 352, 384, 416, 448, 480, 512, 544, 576, 608, 640, 672, 704, 736, 768, 800, 832, 864, 896, 928, 960, 992, 1024, 1088, 1152, 1216, 1280, 1344, 1408

Offset: 1

Leroy Quet, Feb 24 2006

Also k is included if (and only if) the greatest power of 2 dividing k is >= the highest odd divisor of k. All terms of the sequence are even besides the 1.
Equivalently, positive integers of the form k*2^m, where odd k <= 2^m. - Thomas Ordowski, Oct 19 2014
If we define a divisor d|n to be superior if d >= n/d, then superior divisors are counted by A038548 and listed by A161908. This sequence consists of 1 and all numbers without a superior odd divisor. - Gus Wiseman, Feb 18 2021
Numbers k such that A006519(k) >= A000265(k), with equality only when k = 1. - Amiram Eldar, Jan 24 2023

			40 = 8 * 5, where 8 is highest power of 2 dividing 40 and 5 is the highest odd dividing 40. 8 is >= 5 (so 5^2 <= 40), so 40 is in the sequence.

G. C. Greubel, Table of n, a(n) for n = 1..1000
Hsien-Kuei Hwang, Svante Janson, and Tsung-Hsi Tsai, Identities and periodic oscillations of divide-and-conquer recurrences splitting at half, arXiv:2210.10968 [cs.DS], 2022, p. 38.
Milan Janjic and Boris Petkovic, A Counting Function, arXiv 1301.4550 [math.CO], 2013.
Amelia Carolina Sparavigna, Discussion of the groupoid of Proth numbers (OEIS A080075), Politecnico di Torino, Italy (2019).

Cf. A000265, A006519, A080075, A112714.
The complement is A116883.
Positions of zeros (and 1) in A341675.
A051283 = numbers without a superior prime-power divisor (zeros of A341593).
A059172 = numbers without a superior squarefree divisor (zeros of A341592).
A063539 = numbers without a superior prime divisor (zeros of A341591).
A333805 counts strictly inferior odd divisors.
A341594 counts strictly superior odd divisors.
- Inferior: A033676, A038548, A063962, A066839, A069288, A161906, A217581.
- Superior: A033677, A063538, A070038, A072500, A161908, A341676.
- Strictly Inferior: A056924, A060775, A070039, A333806, A341596, A341674.
- Strictly Superior: A056924, A064052/A048098, A140271, A238535, A341642, A341643, A341673.
Cf. A000005, A000203, A001248, A006530, A020639, A026804, A027193, A340101, A340854 (zeros of A340832), A001008, A002805.
Subsequence of A082662, {1} U A363122.

f[n_] := Select[Divisors[n], OddQ[ # ] &][[ -1]]; Insert[Select[Range[2, 1500], 2^FactorInteger[ # ][[1]][[2]] > f[ # ] &], 1, 1] (* Stefan Steinerberger, Apr 10 2006 *)
q[n_] := 2^(2*IntegerExponent[n, 2]) >= n; Select[Range[1500], q] (* Amiram Eldar, Jan 24 2023 *)

isok(n) = vecmax(select(x->((x % 2)==1), divisors(n)))^2 <= n; \\ Michel Marcus, Sep 06 2016

isok(n) = 2^(valuation(n,2)*2) >= n \\ Jeppe Stig Nielsen, Feb 19 2019

from itertools import count, islice
def A116882_gen(startvalue=1): # generator of terms >= startvalue
    return filter(lambda n:(n&-n)**2>=n,count(max(startvalue,1)))
A116882_list = list(islice(A116882_gen(),20)) # Chai Wah Wu, May 17 2023

a(n) = A080075(n-1)-1. - Klaus Brockhaus, Georgi Guninski and M. F. Hasler, Aug 16 2010
a(n) ~ n^2/2. - Thomas Ordowski, Oct 19 2014
Sum_{n>=1} 1/a(n) = 1 + (3/4) * Sum_{k>=1} H(2^k-1)/2^k = 2.3388865091..., where H(k) = A001008(k)/A002805(k) is the k-th harmonic number. - Amiram Eldar, Jan 24 2023

More terms from Stefan Steinerberger, Apr 10 2006

A161908 Array read by rows in which row n lists the divisors of n that are >= sqrt(n).

Original entry on oeis.org

1, 2, 3, 2, 4, 5, 3, 6, 7, 4, 8, 3, 9, 5, 10, 11, 4, 6, 12, 13, 7, 14, 5, 15, 4, 8, 16, 17, 6, 9, 18, 19, 5, 10, 20, 7, 21, 11, 22, 23, 6, 8, 12, 24, 5, 25, 13, 26, 9, 27, 7, 14, 28, 29, 6, 10, 15, 30, 31, 8, 16, 32, 11, 33, 17, 34, 7, 35, 6, 9, 12, 18, 36, 37, 19, 38, 13, 39, 8, 10, 20, 40, 41, 7, 14, 21, 42, 43, 11, 22, 44, 9, 15, 45, 23, 46, 47, 8, 12, 16

Offset: 1

Omar E. Pol, Jun 27 2009

T(n,A038548(n)) = n. - Reinhard Zumkeller, Mar 08 2013

If we define a divisor d|n to be superior if d >= n/d, then superior divisors are counted by A038548 and listed by this sequence. - Gus Wiseman, Mar 08 2021

			Array begins:
1;
2;
3;
2,4;
5;
3,6;
7;
4,8;
3,9;
5,10;
11;
4,6,12;
13;
7,14;
5,15;
4,8,16;

Reinhard Zumkeller, Rows n = 1..1000 of triangle, flattened

Final terms are A000027.
Initial terms are A033677.
Row lengths are A038548 (number of superior divisors).
Row sums are A070038 (sum of superior divisors).
The inferior version is A161906.
The prime terms are counted by A341591.
The squarefree terms are counted by A341592.
The prime-power terms are counted by A341593.
The strictly superior version is A341673.
The strictly inferior version is A341674.
The odd terms are counted by A341675.
A001221 counts prime divisors, with sum A001414.
A056924 counts strictly superior (or strictly inferior divisors).
A207375 lists central divisors.
- Inferior: A033676, A063962, A066839, A069288, A217581, A333749, A333750.
- Superior: A051283, A059172, A063538, A063539, A072500, A116882, A116883, A341592, A341676.
- Strictly Inferior: A060775, A070039, A333805, A333806, A341596, A341677.
- Strictly Superior: A048098, A064052, A140271, A238535, A341594, A341595, A341642, A341643, A341644, A341645, A341646.
Cf. A000005, A000203, A001055, A001248, A006530, A020639, A050320, A161901.

a161908 n k = a161908_tabf !! (n-1) !! (k-1)
a161908_row n = a161908_tabf !! (n-1)
a161908_tabf = zipWith
               (\x ds -> reverse $ map (div x) ds) [1..] a161906_tabf
-- Reinhard Zumkeller, Mar 08 2013

Table[Select[Divisors[n],#>=Sqrt[n]&],{n,100}]//Flatten (* Harvey P. Dale, Jan 01 2021 *)

More terms from Sean A. Irvine, Nov 29 2010

A063962 Number of distinct prime divisors of n that are <= sqrt(n).

Original entry on oeis.org

0, 0, 0, 1, 0, 1, 0, 1, 1, 1, 0, 2, 0, 1, 1, 1, 0, 2, 0, 1, 1, 1, 0, 2, 1, 1, 1, 1, 0, 3, 0, 1, 1, 1, 1, 2, 0, 1, 1, 2, 0, 2, 0, 1, 2, 1, 0, 2, 1, 2, 1, 1, 0, 2, 1, 2, 1, 1, 0, 3, 0, 1, 2, 1, 1, 2, 0, 1, 1, 3, 0, 2, 0, 1, 2, 1, 1, 2, 0, 2, 1, 1, 0, 3, 1, 1, 1, 1, 0, 3, 1, 1, 1, 1, 1, 2, 0, 2, 1, 2, 0, 2, 0, 1, 3

Offset: 1

Reinhard Zumkeller, Sep 04 2001

nonn

For all primes p: a(p) = 0 (not marked) and for k > 1 a(p^k) = 1.
a(1) = 0 and for n > 0 a(n) is the number of marks when applying the sieve of Eratosthenes where a stage for prime p starts at p^2.
If we define a divisor d|n to be inferior if d <= n/d, then inferior divisors are counted by A038548 and listed by A161906. This sequence counts inferior prime divisors. - Gus Wiseman, Feb 25 2021

			a(33) = a(3*11) = 1, as 3^2 = 9 < 33 and 11^2 = 121 > 33.
From _Gus Wiseman_, Feb 25 2021: (Start)
The a(n) inferior prime divisors (columns) for selected n:
n =  3  8  24  3660  390  3570 87780
   ---------------------------------
    {}  2   2     2    2     2     2
            3     3    3     3     3
                  5    5     5     5
                      13     7     7
                            17    11
                                  19
(End)

Harry J. Smith, Table of n, a(n) for n = 1..1000

Cf. A055399, A001221.
Cf. A027748, A063962.
Zeros are at indices A008578.
The divisors are listed by A161906 and add up to A097974.
Dominates A333806 (the strictly inferior version).
The superior version is A341591.
The strictly superior version is A341642.
A001221 counts prime divisors, with sum A001414.
A033677 selects the smallest superior divisor.
A038548 counts inferior divisors.
A063538/A063539 have/lack a superior prime divisor.
A161908 lists superior divisors.
A207375 lists central divisors.
A217581 selects the greatest inferior prime divisor.
A341676 lists the unique superior prime divisors.
- Inferior: A033676, A066839, A069288, A072499, A333749, A333750.
- Superior: A051283, A059172, A070038, A072500, A116883, A341592, A341675.
- Strictly Inferior: A056924, A060775, A070039, A333805, A341596, A341674.
- Strictly Superior: A056924, A140271, A238535, A341594, A341595, A341673.
Cf. A000005, A001248, A005117, A006530, A020639, A048098, A064052, A341643.

a063962 n = length [p | p <- a027748_row n, p ^ 2 <= n]
-- Reinhard Zumkeller, Apr 05 2012

with(numtheory): a:=proc(n) local c,F,f,i: c:=0: F:=factorset(n): f:=nops(F): for i from 1 to f do if F[i]^2<=n then c:=c+1 else c:=c: fi od: c; end: seq(a(n),n=1..105); # Emeric Deutsch

Join[{0},Table[Count[Transpose[FactorInteger[n]][[1]],?(#<=Sqrt[n]&)],{n,2,110}]] (* _Harvey P. Dale, Mar 26 2015 *)

{ for (n=1, 1000, f=factor(n)~; a=0; for (i=1, length(f), if (f[1, i]^2<=n, a++, break)); write("b063962.txt", n, " ", a) ) } \\ Harry J. Smith, Sep 04 2009

G.f.: Sum_{k>=1} x^(prime(k)^2) / (1 - x^prime(k)). - Ilya Gutkovskiy, Apr 04 2020

a(A002110(n)) = n for n > 2. - Gus Wiseman, Feb 25 2021

Revised definition from Emeric Deutsch, Jan 31 2006

A063538 Numbers n that are not sqrt(n-1)-smooth: largest prime factor of n (=A006530(n)) >= sqrt(n).

Original entry on oeis.org

2, 3, 4, 5, 6, 7, 9, 10, 11, 13, 14, 15, 17, 19, 20, 21, 22, 23, 25, 26, 28, 29, 31, 33, 34, 35, 37, 38, 39, 41, 42, 43, 44, 46, 47, 49, 51, 52, 53, 55, 57, 58, 59, 61, 62, 65, 66, 67, 68, 69, 71, 73, 74, 76, 77, 78, 79, 82, 83, 85, 86, 87, 88, 89, 91

Offset: 1

N. J. A. Sloane, Aug 14 2001

If we define a divisor d|n to be superior if d >= n/d, then superior divisors are counted by A038548 and listed by A161908. This sequence lists all numbers with a superior prime divisor, which is unique (A341676) when it exists. For example, 42 is in the sequence because it has a prime divisor 7 which is greater than the quotient 42/7 = 6. - Gus Wiseman, Feb 19 2021

D. H. Greene and D. E. Knuth, Mathematics for the Analysis of Algorithms; see pp. 95-98.

Robert Israel, Table of n, a(n) for n = 1..10000
Beeler, M., Gosper, R. W. and Schroeppel, R., HAKMEM, ITEM 29

Cf. A006530, A063762.
Complement of A063539. Supersequence of A001358 (semiprimes).
The strictly superior version is A064052 (complement: A048098), with associated unique prime divisor A341643.
The case of odd instead of prime divisors is A116883 (complement: A116882).
Also nonzeros of A341591 (number of superior prime divisors).
The unique superior prime divisors of the terms are A341676.
A001221 counts prime divisors, with sum A001414.
A033677 selects the smallest superior divisor.
A038548 counts superior (also inferior) divisors.
A161908 lists superior divisors.
- Inferior: A033676, A063962, A066839, A161906, A217581, A333749, A333750.
- Superior: A051283, A059172, A070038, A072500, A341592, A341593, A341675.
- Strictly Inferior: A056924, A060775, A070039, A333805, A333806, A341596, A341674, A341677.
- Strictly Superior: A140271, A238535, A341594, A341595, A341642, A341644, A341645/A341646, A341673.
Cf. A000005, A001055, A001222, A001248, A020639, A056239, A112798.

N:= 1000: # to get all terms <= N
Primes:= select(isprime, [2,seq(2*i+1, i=1..floor((N-1)/2))]):
S:= {seq(seq(m*p, m = 1 .. min(p, N/p)),p=Primes)}:
sort(convert(S,list)); # Robert Israel, Sep 01 2015

Select[Range[2, 91], FactorInteger[#][[-1, 1]] >= Sqrt[#] &] (* Ivan Neretin, Aug 30 2015 *)

from math import isqrt
from sympy import primepi
def A063538(n):
    def f(x): return int(n+x-primepi(x//(y:=isqrt(x)))-sum(primepi(x//i)-primepi(i) for i in range(1,y)))
    m, k = n, f(n)
    while m != k: m, k = k, f(k)
    return m # Chai Wah Wu, Oct 05 2024

Union of A001248 and A064052. - Gus Wiseman, Feb 24 2021

A140271 Least divisor of n that is > sqrt(n), with a(1) = 1.

Original entry on oeis.org

1, 2, 3, 4, 5, 3, 7, 4, 9, 5, 11, 4, 13, 7, 5, 8, 17, 6, 19, 5, 7, 11, 23, 6, 25, 13, 9, 7, 29, 6, 31, 8, 11, 17, 7, 9, 37, 19, 13, 8, 41, 7, 43, 11, 9, 23, 47, 8, 49, 10, 17, 13, 53, 9, 11, 8, 19, 29, 59, 10, 61, 31, 9, 16, 13, 11, 67, 17, 23, 10, 71, 9, 73, 37, 15, 19, 11, 13, 79, 10, 27

Offset: 1

Leroy Quet, May 16 2008

nonn

If n is not a square, then a(n) = A033677(n).

If we define a divisor d|n to be strictly superior if d > n/d, then strictly superior divisors are counted by A056924 and listed by A341673. This sequence selects the smallest strictly superior divisor of n. - Gus Wiseman, Apr 06 2021

			From _Gus Wiseman_, Apr 06 2021: (Start)
a(n) is the smallest element in the following sets of strictly superior divisors:
   1: {1}       16: {8,16}        31: {31}
   2: {2}       17: {17}          32: {8,16,32}
   3: {3}       18: {6,9,18}      33: {11,33}
   4: {4}       19: {19}          34: {17,34}
   5: {5}       20: {5,10,20}     35: {7,35}
   6: {3,6}     21: {7,21}        36: {9,12,18,36}
   7: {7}       22: {11,22}       37: {37}
   8: {4,8}     23: {23}          38: {19,38}
   9: {9}       24: {6,8,12,24}   39: {13,39}
  10: {5,10}    25: {25}          40: {8,10,20,40}
  11: {11}      26: {13,26}       41: {41}
  12: {4,6,12}  27: {9,27}        42: {7,14,21,42}
  13: {13}      28: {7,14,28}     43: {43}
  14: {7,14}    29: {29}          44: {11,22,44}
  15: {5,15}    30: {6,10,15,30}  45: {9,15,45}
(End)

Alois P. Heinz, Table of n, a(n) for n = 1..10000

Cf. A060775, A033676, A033677.
These divisors are counted by A056924.
These divisors add up to A238535.
These divisors that are odd are counted by A341594.
These divisors that are squarefree are counted by A341595
These divisors that are prime are counted by A341642.
These divisors are listed by A341673.
A038548 counts superior (or inferior) divisors.
A161906 lists inferior divisors.
A161908 lists superior divisors.
A207375 list central divisors.
A341674 lists strictly inferior divisors.
- Inferior: A063962, A066839, A069288, A217581, A333749, A333750.
- Superior: A051283, A059172, A063538, A063539, A070038, A072500, A116882, A116883, A341591, A341592, A341593, A341675, A341676.
- Strictly Inferior: A070039, A333805, A333806, A341596, A341677.
- Strictly Superior: A048098, A064052, A341643, A341644, A341646.
Cf. A000005, A000203, A001221, A001222, A001248, A006530, A020639, A112798.

with(numtheory):
a:= n-> min(select(d-> is(d=n or d>sqrt(n)), divisors(n))):
seq(a(n), n=1..100);  # Alois P. Heinz, Jan 29 2018

Table[Select[Divisors[n], # > Sqrt[n] &][[1]], {n, 2, 70}] (* Stefan Steinerberger, May 18 2008 *)

A140271(n)={local(d,a);d=divisors(n);a=n;for(i=1,length(d),if(d[i]>sqrt(n),a=min (d[i],a)));a} \\ Michael B. Porter, Apr 06 2010

More terms from Stefan Steinerberger, May 18 2008
a(70)-a(80) from Ray Chandler, Jun 25 2009
Franklin T. Adams-Watters, Jan 26 2018, added a(1) = 1 to preserve the relation a(n) | n.

A333805 Number of odd divisors of n that are < sqrt(n).

Original entry on oeis.org

0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 3, 1, 1, 2, 1, 2, 2, 1, 1, 2, 2, 1, 2, 1, 1, 3, 1, 1, 2, 1, 2, 2, 1, 1, 2, 2, 2, 2, 1, 1, 3, 1, 1, 3, 1, 2, 2, 1, 1, 2, 3, 1, 2, 1, 1, 3, 1, 2, 2, 1, 2, 2, 1, 1, 3, 2, 1, 2, 1, 1, 4, 2, 1, 2, 1, 2, 2, 1, 2, 3, 2, 1, 2, 1, 1, 4

Offset: 1

Ilya Gutkovskiy, Apr 05 2020

nonn

If we define a divisor d|n to be strictly inferior if d < n/d, then strictly inferior divisors are counted by A056924 and listed by A341674. This sequence counts strictly inferior odd divisors. - Gus Wiseman, Feb 26 2021

			The strictly inferior odd divisors of 945 are 1, 3, 5, 7, 9, 15, 21, 27, so a(945) = 8. - _Gus Wiseman_, Feb 27 2021

Antti Karttunen, Table of n, a(n) for n = 1..65537

Dominated by A001227 (number of odd divisors).
Strictly inferior divisors (not just odd) are counted by A056924.
The non-strict version is A069288.
These divisors add up to A070039.
The case of prime divisors is A333806.
The strictly superior version is A341594.
The case of squarefree divisors is A341596.
The superior version is A341675.
The case of prime-power divisors is A341677.
A006530 selects the greatest prime factor.
A020639 selects the smallest prime factor.
- Odd -
A000009 counts partitions into odd parts, ranked by A066208.
A026424 lists numbers with odd Omega.
A027193 counts odd-length partitions.
A067659 counts strict partitions of odd length, ranked by A030059.
- Inferior divisors -
A033676 selects the greatest inferior divisor.
A033677 selects the smallest superior divisor.
A038548 counts superior (or inferior) divisors.
A060775 selects the greatest strictly inferior divisor.
A341674 lists strictly inferior divisors.
Cf. A001248, A051283, A063538/A063539, A063962, A116883/A116882, A300272, A333807, A333809, A340832.

Table[DivisorSum[n, 1 &, # < Sqrt[n] && OddQ[#] &], {n, 1, 90}]
nmax = 90; CoefficientList[Series[Sum[x^(2 k (2 k - 1))/(1 - x^(2 k - 1)), {k, 1, nmax}], {x, 0, nmax}], x] // Rest

A333805(n) = sumdiv(n,d,(d%2)&&((d*d)Antti Karttunen, Nov 02 2022

G.f.: Sum_{k>=1} x^(2*k*(2*k - 1)) / (1 - x^(2*k - 1)).

Data section extended up to a(105) by Antti Karttunen, Nov 02 2022

cp's OEIS Frontend

A115036 Even terms of A116883.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A033677 Smallest divisor of n >= sqrt(n).

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Haskell

Maple

Mathematica

PARI

Python

Formula

A063539 Numbers n that are sqrt(n-1)-smooth: largest prime factor of n (=A006530(n)) < sqrt(n).

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Magma

Maple

Mathematica

Python

Formula

A161906 Triangle read by rows in which row n lists the divisors of n that are <= sqrt(n).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Haskell

Mathematica

PARI

Extensions

A116882 A number k is included if (highest odd divisor of k)^2 <= k.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

PARI

Python

Formula

Extensions

A161908 Array read by rows in which row n lists the divisors of n that are >= sqrt(n).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs