OFFSET
1,1
COMMENTS
Numbers of the form m*i + n*j = k*(i+j), where i and j are > 1. - Giovanni Teofilatto, Aug 29 2007
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10438
MATHEMATICA
Select[Range@ 162, Length@ Flatten[Table[#1, {#2}] & @@@ #] > #[[1, 1]] &@ FactorInteger@ # &] (* Michael De Vlieger, Jul 06 2016 *)
PROG
(PARI) is(n)=n>7 && bigomega(n) > factor(n)[1, 1] \\ Charles R Greathouse IV, Jul 06 2016
(PARI) bigomegaAtLeast(n, k, startAt=2)=if(k<3, return(if(k==2, n>1&&!isprime(n), k==0||n>1))); forprime(p=startAt, logint(n, k), if(n%p==0, k-=valuation(n, p); n/=p^valuation(n, p); return(bigomegaAtLeast(n, k)))); 0
is(n)=if(n%2==0, return(bigomegaAtLeast(n/2, 2))); if(n%3==0, return(bigomegaAtLeast(n/3, 3, 3))); if(n<9, return(0)); forprime(p=5, log(n)/lambertw(log(n)), if(n%p==0, return(bigomegaAtLeast(n/p, p, p)))); 0 \\ Charles R Greathouse IV, Jul 06 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jan 04 2004
EXTENSIONS
Missing a(10001)-a(10424) inserted into b-file by Andrew Howroyd, Feb 25 2018
Definition clarified by N. J. A. Sloane, Jan 20 2020
STATUS
approved