OFFSET
0,2
COMMENTS
Squares in this sequence include a(0)=1^2, a(1)=2^2, a(4)=12^2, a(5)=60^2, a(10)=2520^2, and a(11)=27720^2. Are there any more?
All terms in this sequence are powerful numbers (A001694).
MATHEMATICA
t = Join[{1}, Select[Range@ 1000, Min@ FactorInteger[#][[All, 2]] > 1 &]]; Union@ Table[LCM @@ t[[1 ;; n]], {n, 45}] (* Michael De Vlieger, Jun 24 2016, after Harvey P. Dale at A001694 *)
PROG
(PARI) alist(n)=my(pp=0, x=1); vector(n, k, while(isprimepower(pp++)<2&&pp!=1, 0); x=lcm(x, pp))
CROSSREFS
KEYWORD
nonn
AUTHOR
Franklin T. Adams-Watters, Jun 23 2016
STATUS
approved