A280982 Partial products of A024816; a(1) = a(2) = 1.

1, 1, 2, 6, 54, 486, 9720, 204120, 6531840, 241678080, 13050616320, 652530816000, 50244872832000, 4069834699392000, 390704131141632000, 41023933769871360000, 5538231058932633600000, 731046499779107635200000, 124277904962448297984000000

Offset

1,3

Links

Table of n, a(n) for n=1..19.

Formula

a(1) = a(2) = 1; for n>2, a(n) = Product_{i=3..n} A024816(i).

Mathematica

FoldList[#1 #2 &, Table[Boole[n <= 2] + n (n + 1)/2 - DivisorSigma[1, n], {n, 19}]] (* Michael De Vlieger, Jan 11 2017 *)

Prog

(Magma) [1, 1] cat [&*[k*(k+1)/2 - SumOfDivisors(k): k in [3..n]]: n in [3..100]]

Crossrefs

Cf. A024816(n) = sum of nondivisors of n.

Cf. A076664.

Sequence in context: A259553 A327425 A262046 * A219692 A085078 A152543

Adjacent sequences: A280979 A280980 A280981 * A280983 A280984 A280985

Keyword

nonn

Author

Jaroslav Krizek, Jan 11 2017

Status

approved