

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(1) = A051283(0).


LINKS

Table of n, a(n) for n=1..5.


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

Cf. A034699, A051283.
Sequence in context: A276287 A106440 A097213 * A290363 A161740 A161623
Adjacent sequences: A110609 A110610 A110611 * A110613 A110614 A110615


KEYWORD

nonn,more


AUTHOR

Rick L. Shepherd, Jul 31 2005


STATUS

approved



