A344028 a(n) = A069359(A005940(1+n)).

0, 1, 1, 2, 1, 5, 3, 4, 1, 7, 8, 10, 5, 15, 9, 8, 1, 9, 10, 14, 12, 31, 24, 20, 7, 35, 40, 30, 25, 45, 27, 16, 1, 13, 14, 18, 16, 41, 30, 28, 18, 59, 71, 62, 60, 93, 72, 40, 11, 63, 70, 70, 84, 155, 120, 60, 49, 175, 200, 90, 125, 135, 81, 32, 1, 15, 16, 26, 18, 61, 42, 36, 20, 87, 103, 82, 80, 123, 90, 56, 24, 113, 131

Offset: 0

Author

Antti Karttunen, May 11 2021

Keywords

• nonn
• look

Comments

Coincides with A344026 on Fibbinary numbers, A003714.

Links

• Antti Karttunen, Table of n, a(n) for n = 0..16384
• Index entries for sequences related to binary expansion of n

Crossrefs

Cf. A000079 (positions of ones), A003714, A005940, A069359, A344026, A344182.

Programs

PARI

A069359(n) = (n*sumdiv(n, d, isprime(d)/d)); \\ From A069359
A005940(n) = { my(p=2, t=1); n--; until(!n\=2, if((n%2), (t*=p), p=nextprime(p+1))); (t); };
A344028(n) = A069359(A005940(1+n));

Formula

a(n) = A069359(A005940(1+n)).