A280713 Partial sums of A055067 where A055067(n) is the product of non-divisors of n.

1, 2, 4, 7, 31, 51, 771, 1401, 14841, 51129, 3679929, 3957129, 482958729, 927745929, 6739632009, 27172044009, 20949961932009, 22047762636009, 6424421468364009, 6728534219386089, 122581010799226089, 2444896564058746089, 1126445624341666426089

Offset: 1

Author

Jaroslav Krizek, Jan 07 2017

Keywords

• nonn

Comments

A055067(n) = the product of non-divisors of n.

Links

• Paolo Xausa, Table of n, a(n) for n = 1..400

Crossrefs

Cf. A055067, A280714.

Programs

Magma

[&+[Factorial(k) / &*[d: d in Divisors(k)]: k in [1..n]]: n in [1..100]];

Mathematica

Accumulate[Array[#!/Times@@Divisors[#] &, 30]]

Formula

a(n) = Sum_{i=1..n} A055067(i).