cp's OEIS Frontend

A276652 a(n) = denominator of Sum_{p|n} 0.d where p runs through the prime divisors of n.

%I A276652 #13 Sep 08 2022 08:46:17
%S A276652 5,10,5,2,2,10,5,10,10,100,2,100,10,5,5,100,2,100,10,1,100,100,2,2,
%T A276652 100,10,10,100,1,100,5,100,100,5,2,100,100,100,10,100,5,100,100,5,100,
%U A276652 100,2,10,10,100,100,100,2,100,10,100,100,100,1,100,100,1,5,100
%N A276652 a(n) = denominator of Sum_{p|n} 0.d where p runs through the prime divisors of n.
%C A276652 The first few values of Sum_{p|n} 0.d are: 1/5, 3/10, 1/5, 1/2, 1/2, 7/10, 1/5, 3/10, 7/10, ...
%C A276652 See A276655 - numbers n such that Sum_{p|n} 0.d is an integer.
%H A276652 Jaroslav Krizek, <a href="/A276652/b276652.txt">Table of n, a(n) for n = 2..1000</a>
%F A276652 a(n) = A276651(n) / (Sum_{p|n} 0.d) where p = prime divisors of n.
%e A276652 For n=12; Sum_{p|12} 0.d = 0.2 + 0.3 = 0.5 = 5/10 = 1/2; a(12) = 2.
%t A276652 Denominator[Table[f = FactorInteger[i][[All, 1]];
%t A276652 Total[f*10^-IntegerLength[f]], {i, 2, 65}]] (* _Robert Price_, Sep 20 2019 *)
%o A276652 (Magma) [Denominator(&+[d/(10^(#Intseq(d))): d in PrimeDivisors(n)]): n in [2..1000]]
%Y A276652 Cf. A276651, A276653, A276654, A276655, A276513.
%K A276652 nonn,base,frac
%O A276652 2,1
%A A276652 _Jaroslav Krizek_, Sep 10 2016