Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A341676
The unique superior prime divisor of each number that has one.
26
2, 3, 2, 5, 3, 7, 3, 5, 11, 13, 7, 5, 17, 19, 5, 7, 11, 23, 5, 13, 7, 29, 31, 11, 17, 7, 37, 19, 13, 41, 7, 43, 11, 23, 47, 7, 17, 13, 53, 11, 19, 29, 59, 61, 31, 13, 11, 67, 17, 23, 71, 73, 37, 19, 11, 13, 79, 41, 83, 17, 43, 29, 11, 89, 13, 23, 31, 47, 19
OFFSET
1,1
COMMENTS
We define a divisor d|n to be superior if d >= n/d. Superior divisors are counted by A038548 and listed by A161908. Numbers with a superior prime divisor are listed by A063538.
EXAMPLE
The sequence of superior prime divisors begins: {}, {2}, {3}, {2}, {5}, {3}, {7}, {}, {3}, {5}, {11}, {}, {13}, {7}, {5}, {}, {17}, {}, {19}, {5}, ...
MATHEMATICA
Join@@Table[Select[Divisors[n], PrimeQ[#]&&#>=n/#&], {n, 100}]
CROSSREFS
Inferior versions are A107286 (smallest), A217581 (largest), A056608.
These divisors (superior prime) are counted by A341591.
The strictly superior version is A341643.
A001221 counts prime divisors, with sum A001414.
A033676 selects the greatest inferior divisor.
A033677 selects the smallest superior divisor.
A038548 counts superior (or inferior) divisors.
A056924 counts strictly superior (or strictly inferior) divisors.
A060775 selects the greatest strictly inferior divisor.
A063538/A063539 have/lack a superior prime divisor.
A070038 adds up superior divisors.
A140271 selects the smallest strictly superior divisor.
A161908 lists superior divisors.
A207375 lists central divisors.
- Strictly Inferior: A070039, A333805, A333806, A341596, A341674, A341677.
Sequence in context: A356427 A331634 A370833 * A139421 A219964 A165500
KEYWORD
nonn
AUTHOR
Gus Wiseman, Feb 23 2021
STATUS
approved