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

5, 10, 5, 2, 2, 10, 5, 10, 10, 100, 2, 100, 10, 5, 5, 100, 2, 100, 10, 1, 100, 100, 2, 2, 100, 10, 10, 100, 1, 100, 5, 100, 100, 5, 2, 100, 100, 100, 10, 100, 5, 100, 100, 5, 100, 100, 2, 10, 10, 100, 100, 100, 2, 100, 10, 100, 100, 100, 1, 100, 100, 1, 5, 100

Offset: 2

Author

Jaroslav Krizek, Sep 10 2016

Keywords

• nonn
• base
• frac

Comments

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, ...

See A276655 - numbers n such that Sum_{p|n} 0.d is an integer.

Examples

			For n=12; Sum_{p|12} 0.d = 0.2 + 0.3 = 0.5 = 5/10 = 1/2; a(12) = 2.
		

Links

• Jaroslav Krizek, Table of n, a(n) for n = 2..1000

Crossrefs

Cf. A276651, A276653, A276654, A276655, A276513.

Programs

Magma

[Denominator(&+[d/(10^(#Intseq(d))): d in PrimeDivisors(n)]): n in [2..1000]]

Mathematica

Denominator[Table[f = FactorInteger[i][[All, 1]];
Total[f*10^-IntegerLength[f]], {i, 2, 65}]] (* Robert Price, Sep 20 2019 *)

Formula

a(n) = A276651(n) / (Sum_{p|n} 0.d) where p = prime divisors of n.