A293217 -id:A293217 - cp's OEIS frontend

A293226 Restricted growth sequence transform of A293225, a filter combining two products, the other formed from the 1-digits (A293221) and the other from the 2-digits (A293222) present in the ternary expansions of proper divisors of n.

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

Offset: 1

Antti Karttunen, Oct 03 2017

nonn

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

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

Cf. A001065, A293221, A293222, A293223, A293224, A293225.

Cf. also A290093, A290094, A293215, A293217, A293232.

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; };
write_to_bfile(start_offset,vec,bfilename) = { for(n=1, length(vec), write(bfilename, (n+start_offset)-1, " ", vec[n])); }
A019565(n) = {my(j,v); factorback(Mat(vector(if(n, #n=vecextract(binary(n), "-1..1")), j, [prime(j), n[j]])~))}; \\ This function from M. F. Hasler
A289813(n) = { my (d=digits(n, 3)); fromdigits(vector(#d, i, if (d[i]==1, 1, 0)), 2); };
A289814(n) = { my (d=digits(n, 3)); fromdigits(vector(#d, i, if (d[i]==2, 1, 0)), 2); };
A293221(n) = { my(m=1); fordiv(n,d,if(d < n,m *= A019565(A289813(d)))); m; };
A293222(n) = { my(m=1); fordiv(n,d,if(d < n,m *= A019565(A289814(d)))); m; };
Anot_submitted(n) = (1/2)*(2 + ((A293222(n) + A293221(n))^2) - A293222(n) - 3*A293221(n)); \\ Eq.class-wise equal to A293225.
write_to_bfile(1,rgs_transform(vector(19683,n,Anot_submitted(n))),"b293226.txt");

A293215 Restricted growth sequence transform of A293214, where A293214(n) = Product_{d|n, dA019565(d).

Original entry on oeis.org

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

Offset: 1

Antti Karttunen, Oct 03 2017

nonn

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

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

Cf. A001065, A019565, A048675, A293214, A293217 (a variant), A293223, A293224, A293226.

Differs from related A293232 for the first time at n=55, where a(55) = 28, while A293232(55) = 39.

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; };
write_to_bfile(start_offset,vec,bfilename) = { for(n=1, length(vec), write(bfilename, (n+start_offset)-1, " ", vec[n])); }
A019565(n) = {my(j,v); factorback(Mat(vector(if(n, #n=vecextract(binary(n), "-1..1")), j, [prime(j), n[j]])~))}; \\ This function from M. F. Hasler
A293214(n) = { my(m=1); fordiv(n,d,if(d < n,m *= A019565(d))); m; };
write_to_bfile(1,rgs_transform(vector(16384,n,A293214(n))),"b293215.txt");

A293223 Restricted growth sequence transform of A293221, a product formed from the 1-digits present in the ternary expansion of proper divisors of n.

Original entry on oeis.org

1, 2, 2, 2, 2, 3, 2, 4, 3, 3, 2, 5, 2, 6, 7, 4, 2, 8, 2, 9, 4, 10, 2, 11, 3, 12, 8, 9, 2, 13, 2, 14, 8, 10, 4, 15, 2, 6, 16, 9, 2, 11, 2, 9, 17, 3, 2, 18, 6, 14, 8, 9, 2, 19, 8, 20, 4, 21, 2, 22, 2, 23, 16, 24, 16, 25, 2, 26, 7, 27, 2, 28, 2, 29, 16, 26, 30, 31, 2, 32, 19, 19, 2, 33, 8, 29, 34, 27, 2, 35, 14, 36, 37, 21, 4, 38, 2, 24, 39, 40, 2, 41, 2, 20, 42

Offset: 1

Antti Karttunen, Oct 03 2017

nonn

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

Cf. A293221.

Cf. also A290091, A293224, A293225, A293226, A293215, A293217, A293232.

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; };
write_to_bfile(start_offset,vec,bfilename) = { for(n=1, length(vec), write(bfilename, (n+start_offset)-1, " ", vec[n])); }
A019565(n) = {my(j,v); factorback(Mat(vector(if(n, #n=vecextract(binary(n), "-1..1")), j, [prime(j), n[j]])~))}; \\ This function from M. F. Hasler
A289813(n) = { my (d=digits(n, 3)); fromdigits(vector(#d, i, if (d[i]==1, 1, 0)), 2); } \\ From Remy Sigrist
A293221(n) = { my(m=1); fordiv(n,d,if(d < n,m *= A019565(A289813(d)))); m; };
write_to_bfile(1,rgs_transform(vector(19683,n,A293221(n))),"b293223.txt");

A293224 Restricted growth sequence transform of A293222, a product formed from the 2-digits present in the ternary expansions of proper divisors of n.

Original entry on oeis.org

1, 1, 1, 2, 1, 2, 1, 2, 1, 3, 1, 4, 1, 4, 2, 5, 1, 4, 1, 3, 6, 3, 1, 7, 2, 2, 1, 5, 1, 7, 1, 7, 2, 5, 4, 8, 1, 9, 1, 10, 1, 11, 1, 12, 4, 12, 1, 13, 6, 14, 4, 14, 1, 8, 3, 15, 16, 3, 1, 17, 1, 2, 18, 15, 2, 11, 1, 7, 9, 19, 1, 20, 1, 2, 21, 12, 4, 11, 1, 22, 1, 3, 1, 23, 5, 4, 2, 22, 1, 24, 6, 25, 1, 12, 9, 26, 1, 14, 4, 27, 1, 13, 1, 28, 23, 14, 1, 29, 1, 30

Offset: 1

Antti Karttunen, Oct 03 2017

nonn

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

Cf. A293222.

Cf. also A290092, A293223, A293215, A293217, A293232, A293225, A293226.

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; };
write_to_bfile(start_offset,vec,bfilename) = { for(n=1, length(vec), write(bfilename, (n+start_offset)-1, " ", vec[n])); }
A019565(n) = {my(j,v); factorback(Mat(vector(if(n, #n=vecextract(binary(n), "-1..1")), j, [prime(j), n[j]])~))}; \\ This function from M. F. Hasler
A289814(n) = { my (d=digits(n, 3)); fromdigits(vector(#d, i, if (d[i]==2, 1, 0)), 2); } \\ From Remy Sigrist
A293222(n) = { my(m=1); fordiv(n,d,if(d < n,m *= A019565(A289814(d)))); m; };
write_to_bfile(1,rgs_transform(vector(19683,n,A293222(n))),"b293224.txt");

A293216 a(n) = Product_{d|n, dA260443(d).

Original entry on oeis.org

1, 2, 2, 6, 2, 36, 2, 30, 12, 108, 2, 2700, 2, 180, 216, 210, 2, 48600, 2, 40500, 360, 1620, 2, 661500, 36, 2700, 1080, 94500, 2, 153090000, 2, 2310, 3240, 3780, 1080, 4465125000, 2, 40500, 5400, 69457500, 2, 34445250000, 2, 21262500, 4082400, 56700, 2, 560290500, 60, 127575000, 7560, 49612500, 2, 1205583750000, 9720, 254677500, 81000, 132300, 2

Offset: 1

Antti Karttunen, Oct 03 2017

nonn

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

Cf. A048675, A260443, A293217 (restricted growth sequence transform), A293214 (a variant).

Cf. also A001065, A091954.

A003961(n) = my(f = factor(n)); for (i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); \\ This function from Michel Marcus
A260443(n) = if(n<2, n+1, if(n%2, A260443(n\2)*A260443(n\2+1), A003961(A260443(n\2))));
A293216(n) = { my(m=1); fordiv(n,d,if(d < n,m *= A260443(d))); m; };

a(n) = Product_{d|n, dA260443(d).
For all n >= 0, a(2^n) = A002110(n).
For all n >= 1, A007814(a(n)) = A091954(n) and A048675(a(n)) = A001065(n).

A300835 Restricted growth sequence transform of A300834, product_{d|n, dA019565(A003714(d)); Filter sequence related to Zeckendorf-representations of proper divisors of n.

Original entry on oeis.org

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

Offset: 1

Antti Karttunen, Mar 18 2018

nonn

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

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

			For cases n=10 and 49, we see that 10 has proper divisors 1, 2 and 5 and these have Zeckendorf-representations (A014417) 1, 10 and 1000, while 49 has proper divisors 1 and 7 and these have Zeckendorf-representations 1 and 1010. When these Zeckendorf-representations are summed (columnwise without carries), result in both cases is 1011, thus a(10) = a(49).

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

Cf. A003714, A014417, A019565, A300834, A300836.

Cf. also A293215, A293217, A293223, A293224, A293232, A300833 for similar filtering sequences.

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; };
write_to_bfile(start_offset,vec,bfilename) = { for(n=1, length(vec), write(bfilename, (n+start_offset)-1, " ", vec[n])); }
A072649(n) = { my(m); if(n<1, 0, m=0; until(fibonacci(m)>n, m++); m-2); }; \\ From A072649
A003714(n) = { my(s=0,w); while(n>2, w = A072649(n); s += 2^(w-1); n -= fibonacci(w+1)); (s+n); }
A019565(n) = {my(j,v); factorback(Mat(vector(if(n, #n=vecextract(binary(n), "-1..1")), j, [prime(j), n[j]])~))}; \\ From A019565
A300834(n) = { my(m=1); fordiv(n,d,if(d < n,m *= A019565(A003714(d)))); m; };
write_to_bfile(1,rgs_transform(vector(up_to,n,A300834(n))),"b300835.txt");

A317943 Filter sequence constructed from the coefficients of the Stern polynomials B(d,t) collected for each proper divisor d of n; Restricted growth sequence transform of A317942.

Original entry on oeis.org

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

Offset: 1

Antti Karttunen, Aug 12 2018

nonn

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

			Proper divisors of 115 are 1, 5 and 23 and proper divisors of 125 are 1, 5 and 25. The divisors 1 and 5 occur in both, while for the Stern polynomials B(23,t) and B(25,t) (see A125184) the nonzero coefficients are {1, 2, 3, 1} and {1, 3, 2, 1}, that is, they are equal as multisets, thus A286378(23) = A286378(25). From this follows that a(115) = a(125).

Antti Karttunen, Table of n, a(n) for n = 1..65537
Index entries for sequences related to Stern's sequences

Cf. A125184, A286378, A317837, A317942, A317945.
Cf. also A293217, A305793.
Differs from A305800 and A296073 for the first time at n=125, where a(125) = 86.

\\ Needs also code from A286378:
up_to = 65537;
A317942(n) = { my(m=1); fordiv(n,d,if(dA286378(d)-1))); (m); };
v317943 = rgs_transform(vector(up_to, n, A317942(n)));
A317943(n) = v317943[n];

A318835 Restricted growth sequence transform of A318834, product_{d|n, dA019565(A000010(d)).

Original entry on oeis.org

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

Offset: 1

Antti Karttunen, Sep 04 2018

nonn

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

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

Cf. A000010, A019565, A318831, A318834,

Cf. also A293215, A293217, A293223, A293224, A293232, A300833, A300835.

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; };
A019565(n) = {my(j,v); factorback(Mat(vector(if(n, #n=vecextract(binary(n), "-1..1")), j, [prime(j), n[j]])~))}; \\ From A019565
A318834(n) = { my(m=1); fordiv(n,d,if(d < n,m *= A019565(eulerphi(d)))); m; };
v318835 = rgs_transform(vector(up_to,n,A318834(n)));
A318835(n) = v318835[n];

A318470 Multiplicative with a(p^e) = A260443(e).

Original entry on oeis.org

1, 2, 2, 3, 2, 4, 2, 6, 3, 4, 2, 6, 2, 4, 4, 5, 2, 6, 2, 6, 4, 4, 2, 12, 3, 4, 6, 6, 2, 8, 2, 18, 4, 4, 4, 9, 2, 4, 4, 12, 2, 8, 2, 6, 6, 4, 2, 10, 3, 6, 4, 6, 2, 12, 4, 12, 4, 4, 2, 12, 2, 4, 6, 15, 4, 8, 2, 6, 4, 8, 2, 18, 2, 4, 6, 6, 4, 8, 2, 10, 5, 4, 2, 12, 4, 4, 4, 12, 2, 12, 4, 6, 4, 4, 4, 36, 2, 6, 6, 9, 2, 8, 2, 12, 8

Offset: 1

Antti Karttunen, Aug 30 2018

Cf. A260443, A318306, A318307.
Differs from A293442 for the first time at n=32, where a(32) = 18, while A293442(32) = 10.
Cf. also A293216, A293217, A293443, A318469.

A003961(n) = my(f = factor(n)); for (i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); \\ From A003961
A260443(n) = if(n<2, n+1, if(n%2, A260443(n\2)*A260443(n\2+1), A003961(A260443(n\2))));
A318470(n) = factorback(apply(e -> A260443(e),factor(n)[,2]));

For all n >= 1, A001222(a(n)) = A318306(n).

cp's OEIS Frontend

A293226 Restricted growth sequence transform of A293225, a filter combining two products, the other formed from the 1-digits (A293221) and the other from the 2-digits (A293222) present in the ternary expansions of proper divisors of n.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI

A293215 Restricted growth sequence transform of A293214, where A293214(n) = Product_{d|n, dA019565(d).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI

A293223 Restricted growth sequence transform of A293221, a product formed from the 1-digits present in the ternary expansion of proper divisors of n.

Views

Author

Keywords

Links

Crossrefs

Programs

PARI

A293224 Restricted growth sequence transform of A293222, a product formed from the 2-digits present in the ternary expansions of proper divisors of n.

Views

Author

Keywords

Links

Crossrefs

Programs

PARI

A293216 a(n) = Product_{d|n, dA260443(d).

Views

Author

Keywords

Links

Crossrefs

Programs

PARI

Formula

A300835 Restricted growth sequence transform of A300834, product_{d|n, dA019565(A003714(d)); Filter sequence related to Zeckendorf-representations of proper divisors of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

PARI

A317943 Filter sequence constructed from the coefficients of the Stern polynomials B(d,t) collected for each proper divisor d of n; Restricted growth sequence transform of A317942.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

PARI

A318835 Restricted growth sequence transform of A318834, product_{d|n, dA019565(A000010(d)).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI

A318470 Multiplicative with a(p^e) = A260443(e).

Views

Author

Keywords

Links

Crossrefs

Programs