|
|
A100777
|
|
Square-factorial numbers: a(1) = 1, a(n+1) = a(n) * largest square divisor of (n+1).
|
|
1
|
|
|
1, 1, 1, 4, 4, 4, 4, 16, 144, 144, 144, 576, 576, 576, 576, 9216, 9216, 82944, 82944, 331776, 331776, 331776, 331776, 1327104, 33177600, 33177600, 298598400, 1194393600, 1194393600, 1194393600, 1194393600, 19110297600, 19110297600, 19110297600, 19110297600
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,4
|
|
COMMENTS
|
Complementary to A048803 which can be defined as squarefree factorials.
|
|
LINKS
|
|
|
MATHEMATICA
|
f[p_, e_] := p^(2*Floor[e/2]); s[n_] := Times @@ (f @@@ FactorInteger[n]); FoldList[Times, 1, Array[s, 31, 2]] (* Amiram Eldar, Dec 07 2020 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|