

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.


0



1, 2, 24, 720, 4480, 3628800, 1925, 479001600, 387459072, 20922789888000, 6402373705728000, 5516784599040000, 1124000727777607680000, 135277939046250, 24817936069329577574400, 553211880832106496000000
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


LINKS



MATHEMATICA

Rest[Select[Table[k! k/(Times@@Divisors[k])^2, {k, 30}], IntegerQ]] (* Harvey P. Dale, Oct 17 2020 *)
Select[(# * #! / #^DivisorSigma[0, #]) & /@ Range[2, 30], IntegerQ] (* Amiram Eldar, Jul 16 2022 *)


PROG

(PARI) for(n=2, 30, if((n*(n!))%(n^numdiv(n))==0, print1((n*(n!))/(n^numdiv(n)), ", ")))


CROSSREFS



KEYWORD

easy,nonn


AUTHOR



EXTENSIONS



STATUS

approved



