cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A280981 Partial products of A049820; a(1) = a(2) = 1.

This page as a plain text file.
%I A280981 #10 Sep 08 2022 08:46:18
%S A280981 1,1,1,1,3,6,30,120,720,4320,38880,233280,2566080,25660800,282268800,
%T A280981 3104956800,46574352000,558892224000,9501167808000,133016349312000,
%U A280981 2261277938304000,40703002889472000,854763060678912000,13676208970862592000,300876597358977024000
%N A280981 Partial products of A049820; a(1) = a(2) = 1.
%F A280981 a(1) = a(2) = 1; for n>2, a(n) = Product_{i=3..n} A049820(i).
%t A280981 FoldList[#1 #2 &, Table[Boole[n <= 2] + n - DivisorSigma[0, n], {n, 25}]] (* _Michael De Vlieger_, Jan 11 2017 *)
%o A280981 (Magma) [1, 1] cat [&*[#[c: c in [1..k] | k mod c ne 0]: k in [3..n]]: n in [3..100]]
%Y A280981 Cf. A049820(n) = number of nondivisors of n.
%Y A280981 Cf. A049820, A161664.
%K A280981 nonn
%O A280981 1,5
%A A280981 _Jaroslav Krizek_, Jan 11 2017