|
|
A110612
|
|
a(n) is least number k such that k/P > P^n, with n and P (=P(k)) as in A051283.
|
|
1
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
a(n) is the least number k such that A346418(k) = n+1 (conjectured). - Amiram Eldar, Jul 16 2021
|
|
LINKS
|
|
|
EXAMPLE
|
a(3) = 27720 = 2^3 * 3^2 * 5^1 * 7^1 * 11^1 as P = 11^1 and 27720/11 = 2520 > 11^3 = 1331 and no number k less than 27720 has k/P > P^3 for its corresponding P.
|
|
PROG
|
(PARI) a(n) = for(k=2, oo, f=factor(k); if(#f~>n+1 && k>vecmax(vector(#f~, i, f[i, 1]^f[i, 2]))^(n+1), return(k))); \\ Jinyuan Wang, Feb 28 2020
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|