OFFSET
1,2
COMMENTS
A positive integer n is a uniform relatively prime tree number iff either n = 1 or n is a prime number whose prime index is a uniform relatively prime tree number, or n is a power of a squarefree number whose prime indices are relatively prime and are themselves uniform relatively prime tree numbers. A prime index of n is a number m such that prime(m) divides n.
LINKS
A. David Christopher and M. Davamani Christober, Relatively Prime Uniform Partitions, Gen. Math. Notes, Vol. 13, No. 2, December, 2012, pp.1-12.
MATHEMATICA
rupQ[n_]:=Or[n==1, If[PrimeQ[n], rupQ[PrimePi[n]], And[SameQ@@FactorInteger[n][[All, 2]], GCD@@PrimePi/@FactorInteger[n][[All, 1]]==1, And@@rupQ/@PrimePi/@FactorInteger[n][[All, 1]]]]];
Select[Range[200], rupQ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Aug 05 2018
STATUS
approved