OFFSET
1,2
COMMENTS
Or, positive integers relatively prime to 9699690 = 2*3*5*7*11*13*17*19.
First composite term is 529 = 23^2.
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1200
Eric Weisstein's World of Mathematics, Rough Number
FORMULA
a(n) = k*n + O(1) where k = 323323/55296 = 5.8471.... In particular, k*n - 51 < a(n) < k*n + 45. - Charles R Greathouse IV, Sep 21 2018
EXAMPLE
667 = 23 * 29 is in the sequence since the two prime factors, 23 and 29, are not less than 23.
MAPLE
A166063 := proc(n)
option remember;
local a;
if n =1 then
1;
else
for a from procname(n-1)+1 do
numtheory[factorset](a) ;
if min(op(%)) >= 23 then
return a;
end if;
end do:
end if;
end proc:
seq(A166063(n), n=1..80) ; # R. J. Mathar, Nov 05 2024
MATHEMATICA
Select[Range[500], FactorInteger[#][[1, 1]]>22&] (* Harvey P. Dale, Nov 22 2010 *)
PROG
(PARI) isA166063(n) = gcd(n, 9699690)==1 \\ Michael B. Porter, Oct 10 2009
CROSSREFS
KEYWORD
easy,nonn,changed
AUTHOR
Michael B. Porter, Oct 05 2009
EXTENSIONS
Additional terms provided provided by Harvey P. Dale, Nov 22 2010
STATUS
approved