|
| |
|
|
A069150
|
|
Integers of the form k*k!/A062758(k) 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
|
Table of n, a(n) for n=1..16.
|
|
|
MATHEMATICA
|
Rest[Select[Table[k! k/(Times@@Divisors[k])^2, {k, 30}], IntegerQ]] (* Harvey P. Dale, Oct 17 2020 *)
|
|
|
PROG
|
(PARI) for(n=2, 30, if((n*(n!))%(n^numdiv(n))==0, print1((n*(n!))/(n^numdiv(n)), ", ")))
|
|
|
CROSSREFS
|
Sequence in context: A009750 A030438 A012723 * A323491 A046977 A309205
Adjacent sequences: A069147 A069148 A069149 * A069151 A069152 A069153
|
|
|
KEYWORD
|
easy,nonn
|
|
|
AUTHOR
|
Benoit Cloitre, Apr 08 2002
|
|
|
STATUS
|
approved
|
| |
|
|
