A324345 -id:A324345 - cp's OEIS frontend

A324400 Lexicographically earliest sequence such that a(i) = a(j) => f(i) = f(j) for all i, j >= 1, where f(n) = -1 if n = 2^k and k > 0, and f(n) = n for all other numbers.

1, 2, 3, 2, 4, 5, 6, 2, 7, 8, 9, 10, 11, 12, 13, 2, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 2, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 2, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78

Offset: 1

Antti Karttunen, Mar 01 2019

nonn

In the following, A stands for this sequence, A324400, and S -> T (where S and T are sequence A-numbers) indicates that for all i, j >= 1: S(i) = S(i) => T(i) = T(j).
For example, the following chains of implications hold:
  A -> A286619 -> A005811,
and
  A -> A003602 -> A286622 -> A000120,
               -> A286378 -> A002487,
               -> A323889,
               -> A000593,
               -> A001227,
among many others.

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

Cf. A000523.
Cf. A000120, A000265, A000593, A001227, A002487, A003602, A005811, A209229, A286378, A286619, A286622, A294898, A297159, A318311, A323234, A323889, A323904, A324343, A324345 (some of the matching sequences).
Cf. also A103391, A295300, A305800, A305801, A324401.

A000523(n) = if(n<1, 0, #binary(n)-1);
A324400(n) = if(n<4,n,if(!bitand(n,n-1),2,1+n-A000523(n)));

If n <= 3, a(n) = n; and for n >= 4, if A209229(n) = 1, then a(n) = 2, otherwise a(n) = 1 + n - A000523(n).

A324343 Lexicographically earliest positive sequence such that a(i) = a(j) => A278222(i) = A278222(j) and A324342(i) = A324342(j), for all i, j >= 0.

Original entry on oeis.org

1, 2, 2, 3, 2, 4, 5, 6, 2, 4, 7, 8, 9, 10, 11, 12, 2, 4, 7, 13, 7, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 2, 4, 7, 13, 25, 14, 18, 22, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 2, 4, 7, 13, 50, 51, 52, 53, 50, 54, 55, 56, 38, 39, 57, 58, 59, 60, 55, 56, 61, 62, 63, 64, 19, 65, 66, 67, 16, 68, 69, 70, 71, 72, 73, 74, 75, 63, 76

Offset: 0

Antti Karttunen, Feb 24 2019

nonn

Restricted growth sequence transform of the ordered pair [A278222(n), A324342(n)], or equally, of [A286622(n), A324342(n)].

For all i, j: a(i) = a(j) => A324344(i) = A324344(j).

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

Cf. A278222, A286622, A324342, A324344.

Cf. also A323889, A324345.

up_to = 65537;
rgs_transform(invec) = { my(om = Map(), outvec = vector(length(invec)), u=1); for(i=1, length(invec), if(mapisdefined(om,invec[i]), my(pp = mapget(om, invec[i])); outvec[i] = outvec[pp] , mapput(om,invec[i],i); outvec[i] = u; u++ )); outvec; };
A002110(n) = prod(i=1,n,prime(i));
A005940(n) = { my(p=2, t=1); n--; until(!n\=2, if((n%2), (t*=p), p=nextprime(p+1))); t };
A046523(n) = { my(f=vecsort(factor(n)[, 2], , 4), p); prod(i=1, #f, (p=nextprime(p+1))^f[i]); };  \\ From A046523
A278222(n) = A046523(A005940(1+n));
A030308(n,k) = bittest(n,k);
A283477(n) = prod(i=0,#binary(n),if(0==A030308(n,i),1,A030308(n,i)*A002110(1+i)));
A276150(n) = { my(s=0,m); forprime(p=2, , if(!n, return(s)); m = n%p; s += m; n = (n-m)/p); };
A324342(n) = A276150(A283477(n));
A324343aux(n) = [A278222(n), A324342(n)];
v324343 = rgs_transform(vector(1+up_to,n,A324343aux(n-1)));
A324343(n) = v324343[1+n];

A324346 Lexicographically earliest positive sequence such that a(i) = a(j) => A005811(i) = A005811(j) and A324055(i) = A324055(j), for all i, j >= 0.

Original entry on oeis.org

1, 2, 3, 2, 4, 5, 6, 2, 7, 8, 9, 10, 11, 12, 13, 2, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 21, 22, 2, 27, 28, 29, 5, 30, 19, 18, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 2, 55, 56, 18, 15, 57, 19, 58, 59, 60, 61, 62, 63, 64, 65, 32, 66, 67, 68, 69, 63, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81

Offset: 0

Antti Karttunen, Feb 24 2019

nonn

Restricted growth sequence transform of the ordered pair [A005811(n), A324055(n)].

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

Cf. A005811, A324055, A324345, A324347.

up_to = 65537;
rgs_transform(invec) = { my(om = Map(), outvec = vector(length(invec)), u=1); for(i=1, length(invec), if(mapisdefined(om,invec[i]), my(pp = mapget(om, invec[i])); outvec[i] = outvec[pp] , mapput(om,invec[i],i); outvec[i] = u; u++ )); outvec; };
A005811(n) = hammingweight(bitxor(n, n>>1)); \\ From A005811
A324055(n) = { my(m1=2,m2=1,p=2,mp=p*p); while(n, if(!(n%2), p=nextprime(1+p); mp = p*p, m1 *= p; if(3==(n%4),mp *= p,m2 *= (mp-1)/(p-1))); n>>=1); (m1-m2); };
Aux324346(n) = [A005811(n), A324055(n)];
v324346 = rgs_transform(vector(1+up_to,n,Aux324346(n-1)));
A324346(n) = v324346[1+n];

For all n >= 1, a((2^n)-1) = 2.

cp's OEIS Frontend

A324400 Lexicographically earliest sequence such that a(i) = a(j) => f(i) = f(j) for all i, j >= 1, where f(n) = -1 if n = 2^k and k > 0, and f(n) = n for all other numbers.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI

Formula

A324343 Lexicographically earliest positive sequence such that a(i) = a(j) => A278222(i) = A278222(j) and A324342(i) = A324342(j), for all i, j >= 0.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI

A324346 Lexicographically earliest positive sequence such that a(i) = a(j) => A005811(i) = A005811(j) and A324055(i) = A324055(j), for all i, j >= 0.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI

Formula