A147576 Numbers with exactly 3 distinct odd prime divisors {3,5,7}.

105, 315, 525, 735, 945, 1575, 2205, 2625, 2835, 3675, 4725, 5145, 6615, 7875, 8505, 11025, 13125, 14175, 15435, 18375, 19845, 23625, 25515, 25725, 33075, 36015, 39375, 42525, 46305, 55125, 59535, 65625, 70875, 76545, 77175, 91875, 99225

Offset: 1

Author

Artur Jasinski, Nov 07 2008

Keywords

• nonn

Comments

Numbers k such that phi(k)/k = m

( Family of sequences for successive n odd primes )

m=2/3 numbers with exactly 1 distinct prime divisor {3} see A000244

m=8/15 numbers with exactly 2 distinct prime divisors {3,5} see A033849

m=16/35 numbers with exactly 3 distinct prime divisors {3,5,7} see A147576

m=32/77 numbers with exactly 4 distinct prime divisors {3,5,7,11} see A147577

m=384/1001 numbers with exactly 5 distinct prime divisors {3,5,7,11,13} see A147578

m=6144/17017 numbers with exactly 6 distinct prime divisors {3,5,7,11,13,17} see A147579

m=3072/323323 numbers with exactly 7 distinct prime divisors {3,5,7,11,13,17,19} see A147580

m=110592/323323 numbers with exactly 8 distinct prime divisors {3,5,7,11,13,17,19,23} see A147581

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..100 from Harvey P. Dale)

Crossrefs

Cf. A060735, A108347, A143207, A147571-A147575, A147576-A147580.

Programs

Mathematica

a = {}; Do[If[EulerPhi[x]/x == 16/35, AppendTo[a, x]], {x, 1, 100000}]; a
Select[Range[100000],EulerPhi[#]/#==16/35&] (* Harvey P. Dale, Dec 01 2013 *)

Formula

a(n) = 105 * A108347(n). - Amiram Eldar, Mar 10 2020

Sum_{n>=1} 1/a(n) = 1/48. - Amiram Eldar, Dec 22 2020