0,3

B(i*A070939(n))+j) = [b(i)=b(j)] where n=Sum(b(k)*2^k:0<=k<A070939(n)), a(n)=Sum(B(k)*2^k:0<=k<A070939(n)^2), 0<=b(k),B(k)<=1;

A070939(a(n)) = A070939(n)^2;

a(n) <= 2^(A070939(n)^2) - 1;

A023416(a(n)) = 2*A023416(n)*A000120(n);

A000120(a(n)) = A023416(n)^2 + A000120(n)^2;

a(2^k-1) = 2^(k^2)-1, a(A000225(k)) = A000225(k^2).

Index entries for sequences related to binary expansion of n

n=25 -> 11001 -> (11001)(11001)(00110)(00110)(11001) ->

-> 1100111001001100011011001 -> a(25) = 27039961.

Cf. A007088, A035327.

Adjacent sequences: A100238 A100239 A100240 this_sequence A100242 A100243 A100244

Sequence in context: A098146 A124274 A075134 this_sequence A078794 A093595 A133816

nonn

Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Dec 28 2004