|
Search: id:A055071
|
|
|
| A055071 |
|
Largest square dividing n!. |
|
+0
10
|
|
| 1, 1, 1, 4, 4, 144, 144, 576, 5184, 518400, 518400, 2073600, 2073600, 101606400, 914457600, 14631321600, 14631321600, 526727577600, 526727577600, 52672757760000, 52672757760000, 6373403688960000, 6373403688960000
(list; graph; listen)
|
|
|
OFFSET
|
1,4
|
|
|
COMMENT
|
By definition 3 of A000188, this is [A000188(n!)]^2.
|
|
FORMULA
|
a(n)=Max{d; d divides n! and it is a square number}=A008833(n!)
|
|
MAPLE
|
for n from 1 to 40 do it := ifactors(n!): sq := 1: for i from 1 to nops(it[2]) do if it[2][i][2] mod 2 = 0 then sq := sq*it[2][i][1]^it[2][i][2] else sq := sq*it[2][i][1]^(it[2][i][2]-1) fi; od: printf(`%d, `, sq) od:
|
|
CROSSREFS
|
Cf. A000188, A008833.
Adjacent sequences: A055068 A055069 A055070 this_sequence A055072 A055073 A055074
Sequence in context: A068337 A009534 A009559 this_sequence A097572 A080509 A063439
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Jun 13 2000
|
|
EXTENSIONS
|
More terms from James A. Sellers (sellersj(AT)math.psu.edu), Jun 20 2000
|
|
|
Search completed in 0.002 seconds
|
