This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A284002 #6 Mar 19 2017 01:10:29
%S A284002 1,1,1,2,1,2,2,6,1,2,2,6,2,6,6,12,1,2,2,6,2,6,6,12,2,6,6,12,6,12,12,
%T A284002 60,1,2,2,6,2,6,6,12,2,6,6,12,6,12,12,60,2,6,6,12,6,12,12,60,6,12,12,
%U A284002 60,12,60,60,60,1,2,2,6,2,6,6,12,2,6,6,12,6,12,12,60,2,6,6,12,6,12,12,60,6,12,12,60,12,60,60,60,2,6,6,12,6,12,12,60,6,12,12
%N A284002 a(n) = A072411(A283477(n)).
%H A284002 <a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a>
%H A284002 <a href="/index/Lc#lcm">Index entries for sequences related to lcm's</a>
%F A284002 a(n) = A072411(A283477(n)).
%t A284002 Table[LCM @@ FactorInteger[#][[All, -1]] &[Times @@ Map[#1^#2 & @@ # &, FactorInteger[#] /. {p_, e_} /; e == 1 :> {Times @@ Prime@ Range@ PrimePi@p, e}] &[Times @@ Prime@ Flatten@ Position[#, 1] &@ Reverse@ IntegerDigits[n, 2]]], {n, 0, 90}] (* _Michael De Vlieger_, Mar 18 2017 *)
%o A284002 (Scheme) (define (A284002 n) (A072411 (A283477 n)))
%Y A284002 Cf. A072411, A283477, A284001, A284005.
%K A284002 nonn
%O A284002 0,4
%A A284002 _Antti Karttunen_, Mar 18 2017