A284002 a(n) = A072411(A283477(n)).

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, 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, 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

Offset: 0

Author

Antti Karttunen, Mar 18 2017

Keywords

• nonn

Links

• Index entries for sequences related to binary expansion of n
• Index entries for sequences related to lcm's

Crossrefs

Cf. A072411, A283477, A284001, A284005.

Programs

Mathematica

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 *)

Scheme

(define (A284002 n) (A072411 (A283477 n)))

Formula

a(n) = A072411(A283477(n)).