A283475 a(n) = A019565(A005187(n)).

1, 2, 6, 5, 30, 7, 21, 42, 210, 11, 33, 66, 165, 330, 154, 231, 2310, 13, 39, 78, 195, 390, 182, 273, 1365, 2730, 286, 429, 1430, 2145, 1001, 2002, 30030, 17, 51, 102, 255, 510, 238, 357, 1785, 3570, 374, 561, 1870, 2805, 1309, 2618, 19635, 39270, 442, 663, 2210, 3315, 1547, 3094, 15470, 23205, 2431, 4862, 12155

Offset

0,2

Links

Antti Karttunen, Table of n, a(n) for n = 0..8191

Formula

a(n) = A019565(A005187(n)).

a(n) = A097248(A283477(n)) = A097248(A108951(A019565(n))) = A283478(A019565(n)).

Other identities:

If A004198(x,y) = 0, then a(x+y) = A097248(a(x)*a(y)).

For all n >= 1, a(A000051(n)) = A000040(n+2).

For all n >= 0, A001221(a(n)) = A001222(a(n)) = A280700(n).

For all n >= 0, A046523(a(n)) = A280705(n).

Mathematica

Map[Times @@ Prime@ Flatten@ Position[#, 1] &@ Reverse@ IntegerDigits[#, 2] &, Table[2 n - DigitCount[2 n, 2, 1], {n, 0, 60}]] (* Michael De Vlieger, Mar 16 2017 *)

Prog

(Scheme) (define (A283475 n) (A019565 (A005187 n)))

Crossrefs

Cf. A000040, A000051, A001221, A001222, A004198, A005117, A005187, A019565, A046523, A097248, A108951, A280700, A280705, A283477, A283478.

Cf. A283476 (same sequence sorted into ascending order).

Sequence in context: A281280 A281179 A280462 * A343995 A358746 A175350

Adjacent sequences: A283472 A283473 A283474 * A283476 A283477 A283478

Keyword

nonn,look

Author

Antti Karttunen, Mar 15 2017

Status

approved