A110901 Product_{k=1..n} (A013929(k)), the product of the first n positive integers that are each divisible by at least one square >= 4.

4, 32, 288, 3456, 55296, 995328, 19906560, 477757440, 11943936000, 322486272000, 9029615616000, 288947699712000, 10402117189632000, 416084687585280000, 18307726253752320000, 823847681418854400000, 39544688708105011200000

Offset: 1

Author

Leroy Quet, Oct 09 2005

Keywords

• nonn

Examples

			Since 4, 8, 9 and 12 are the first 4 nonsquarefree positive integers, the fourth term of the sequence is 4*8*9*12 = 3456.
		

Crossrefs

Cf. A013929, A111059.

Programs

Mathematica

Rest[ FoldList[ Times, 1, Select[ Range[2, 48], (Union[Last /@ FactorInteger[ # ]][[ -1]] > 1) == True &]]] (* Robert G. Wilson v *)
FoldList[Times,Select[Range[50],!SquareFreeQ[#]&]] (* Harvey P. Dale, Dec 31 2022 *)

PARI

a=1;for(n=1,48,if(!issquarefree(n),print1(a=a*n,",")))

Extensions

More terms from Klaus Brockhaus and Robert G. Wilson v, Oct 11 2005