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.
%I A069150 #19 Apr 07 2024 05:42:10
%S A069150 1,1,2,24,720,4480,3628800,1925,479001600,387459072,20922789888000,
%T A069150 6402373705728000,5516784599040000,1124000727777607680000,
%U A069150 135277939046250,24817936069329577574400,553211880832106496000000
%N A069150 Integers of the form k*k!/A062758(k) in the order they appear in A069149, where A062758(k) is the product of squares of divisors of k.
%t A069150 Rest[Select[Table[k! k/(Times@@Divisors[k])^2,{k,30}],IntegerQ]] (* _Harvey P. Dale_, Oct 17 2020 *)
%t A069150 Select[(# * #! / #^DivisorSigma[0, #]) & /@ Range[1, 30], IntegerQ] (* _Amiram Eldar_, Jul 16 2022 *)
%o A069150 (PARI) for(n=1,30,if((n*(n!))%(n^numdiv(n))==0,print1((n*(n!))/(n^numdiv(n)),",")))
%Y A069150 Cf. A062758, A069149.
%K A069150 easy,nonn
%O A069150 1,3
%A A069150 _Benoit Cloitre_, Apr 08 2002
%E A069150 Name clarified by _Amiram Eldar_, Jul 16 2022
%E A069150 Missing a(1)=1 inserted by _Sean A. Irvine_, Apr 06 2024