|
%I #17 Aug 16 2020 11:46:37
%S 25,35,49,50,55,65,70,75,77,85,91,95,98,100,105,110,115,119,121,125,
%T 130,133,140,143,145,147,150,154,155,161,165,169,170,175,182,185,187,
%U 190,195,196,200,203,205,209,210,215,217,220,221,225,230,231,235,238,242
%N Numbers with at least two prime factors greater than 3 counted with multiplicity.
%F a(n) ~ n. - _Charles R Greathouse IV_, Apr 16 2020
%e 25 = 5*5
%e 35 = 5*7
%e 49 = 7*7
%e 50 = (2)*5*5
%e 55 = 5*11
%e 65 = 5*13
%e 70 = (2)*5*7
%e 75 = (3)*5*5
%t Select[Range[250], CompositeQ[# / 2^IntegerExponent[#, 2] / 3^IntegerExponent[#, 3]] &] (* _Amiram Eldar_, May 01 2020 *)
%o (PARI) is(n)=n>>=valuation(n,2);n/=3^valuation(n,3);n>1 && !isprime(n) \\ _Charles R Greathouse IV_, Apr 16 2020
%Y Cf. A093641.
%K nonn,easy
%O 1,1
%A _Aidan Clarke_, Apr 16 2020
|
