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

Links

Table of n, a(n) for n=0..106.

Index entries for sequences related to binary expansion of n

Index entries for sequences related to lcm's

Formula

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

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

Prog

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

Crossrefs

Cf. A072411, A283477, A284001, A284005.

Sequence in context: A095291 A285003 A364872 * A093659 A306714 A200745

Adjacent sequences: A283999 A284000 A284001 * A284003 A284004 A284005

Keyword

nonn

Author

Antti Karttunen, Mar 18 2017

Status

approved