A364954 - OEIS

A364954

The length of the common prefix in the binary expansions of A156552(n) and A156552(A163511(n)).

0, 1, 2, 2, 1, 3, 3, 3, 2, 1, 1, 4, 2, 3, 2, 4, 1, 2, 1, 1, 1, 1, 1, 5, 1, 2, 1, 3, 3, 2, 5, 5, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 6, 1, 1, 2, 2, 2, 1, 2, 3, 3, 3, 3, 2, 4, 5, 3, 6, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 7, 2, 1, 2, 1, 2, 2, 2, 2, 5

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,3

LINKS

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

PROG

(PARI)

Abincompreflen(n, m) = { my(x=binary(n), y=binary(m), u=min(#x, #y)); for(i=1, u, if(x[i]!=y[i], return(i-1))); (u); };

A156552(n) = {my(f = factor(n), p, p2 = 1, res = 0); for(i = 1, #f~, p = 1 << (primepi(f[i, 1]) - 1); res += (p * p2 * (2^(f[i, 2]) - 1)); p2 <<= f[i, 2]); res}; \\ From A156552

A163511(n) = if(!n, 1, my(p=2, t=1); while(n>1, if(!(n%2), (t*=p), p=nextprime(1+p)); n >>= 1); (t*p));

A364954(n) = Abincompreflen(A156552(n), A156552(A163511(n)));

CROSSREFS

Cf. A156552, A163511, A364955.

Cf. also A364569.

Sequence in context: A097094 A210870 A104726 * A194195 A164999 A292030

Adjacent sequences: A364951 A364952 A364953 * A364955 A364956 A364957

KEYWORD

nonn

AUTHOR

Antti Karttunen, Sep 02 2023

STATUS

approved