A323508 a(n) = A323505(A156552(n)).

1, 2, 4, 6, 8, 12, 16, 24, 12, 24, 32, 48, 64, 48, 24, 120, 128, 36, 256, 96, 48, 96, 512, 240, 24, 192, 48, 192, 1024, 72, 2048, 720, 96, 384, 48, 144, 4096, 768, 192, 480, 8192, 144, 16384, 384, 96, 1536, 32768, 1440, 48, 72, 384, 768, 65536, 144, 96, 960, 768, 3072, 131072, 288, 262144, 6144, 192, 5040, 192, 288, 524288, 1536, 1536

Offset

1,2

Comments

Sequence contains only terms of A001013 and each a(n) is a multiple of A112624(n).

Links

Antti Karttunen, Table of n, a(n) for n = 1..4096

Formula

a(n) = A323505(A156552(n)).

Prog

(PARI)
A001511(n) = (1+valuation(n, 2));
A036987(n) = !bitand(n, 1+n);
A323505(n) = if(!n, 1, if(!(n%2), 2*A323505(n/2), (A001511(n+1)+1-A036987(n))*A323505((n-1)/2)));
A064989(n) = {my(f); f = factor(n); if((n>1 && f[1, 1]==2), f[1, 2] = 0); for (i=1, #f~, f[i, 1] = precprime(f[i, 1]-1)); factorback(f)};
A156552(n) = if(1==n, 0, if(!(n%2), 1+(2*A156552(n/2)), 2*A156552(A064989(n))));
A323508(n) = A323505(A156552(n));

Crossrefs

Cf. A001013, A112624, A156552, A323505.

Sequence in context: A048951 A326504 A058629 * A324850 A362804 A095810

Adjacent sequences: A323505 A323506 A323507 * A323509 A323510 A323511

Keyword

nonn

Author

Antti Karttunen, Jan 17 2019

Status

approved