|
|
A347046
|
|
Greatest divisor of n with exactly half as many prime factors (counting multiplicity) as n, or 1 if there are none.
|
|
8
|
|
|
1, 1, 1, 2, 1, 3, 1, 1, 3, 5, 1, 1, 1, 7, 5, 4, 1, 1, 1, 1, 7, 11, 1, 6, 5, 13, 1, 1, 1, 1, 1, 1, 11, 17, 7, 9, 1, 19, 13, 10, 1, 1, 1, 1, 1, 23, 1, 1, 7, 1, 17, 1, 1, 9, 11, 14, 19, 29, 1, 15, 1, 31, 1, 8, 13, 1, 1, 1, 23, 1, 1, 1, 1, 37, 1, 1, 11, 1, 1, 1, 9
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,4
|
|
COMMENTS
|
Problem: What are the positions of last appearances > 1?
|
|
LINKS
|
|
|
EXAMPLE
|
The divisors of 90 with half bigomega are: 6, 9, 10, 15, so a(90) = 15.
|
|
MATHEMATICA
|
Table[If[#=={}, 1, Max[#]]&@Select[Divisors[n], PrimeOmega[#]==PrimeOmega[n]/2&], {n, 100}]
|
|
PROG
|
(Python)
from sympy import divisors, factorint
def a(n):
npf = len(factorint(n, multiple=True))
for d in divisors(n)[-1:0:-1]:
if 2*len(factorint(d, multiple=True)) == npf: return d
return 1
(Python 3.8+)
from math import prod
from sympy import factorint
fs = factorint(n, multiple=True)
q, r = divmod(len(fs), 2)
return 1 if r else prod(fs[q:]) # Chai Wah Wu, Aug 20 2021
|
|
CROSSREFS
|
The greatest divisor without the condition is A006530 (smallest: A020639).
The case of powers of 2 is A072345.
A001221 counts distinct prime factors.
A001222 counts all prime factors (also called bigomega).
A340387 lists numbers whose sum of prime indices is twice bigomega.
A340609 lists numbers whose maximum prime index divides bigomega.
A340610 lists numbers whose maximum prime index is divisible by bigomega.
A347042 counts divisors d|n such that bigomega(d) divides bigomega(n).
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|