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

Author

Antti Karttunen, Mar 15 2017

Keywords

• nonn
• look

Links

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

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

Programs

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

Scheme

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

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