A304112 -id:A304112 - cp's OEIS frontend

A304113 Restricted growth sequence transform of A278263(n) = A046523(A064413(n)), a filter based on the prime signature of EKG-sequence.

1, 2, 3, 4, 2, 3, 5, 6, 4, 2, 4, 5, 4, 2, 4, 7, 8, 5, 4, 2, 4, 6, 9, 3, 4, 5, 4, 2, 4, 10, 11, 4, 2, 4, 9, 4, 2, 4, 5, 7, 5, 4, 2, 4, 12, 5, 5, 7, 7, 3, 5, 13, 4, 4, 9, 4, 2, 4, 9, 4, 2, 4, 14, 15, 5, 4, 2, 4, 5, 9, 5, 12, 4, 2, 4, 8, 13, 4, 7, 4, 2, 4, 13, 4, 4, 10, 5, 4, 2, 4, 16, 5, 4, 7, 9, 5, 9, 14, 4, 2, 4, 9, 9, 12, 5

Offset: 1

Antti Karttunen, May 17 2018

nonn

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

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

Antti Karttunen, Table of n, a(n) for n = 1..65539
Index entries for sequences related to EKG sequence

Cf. A046523, A064413, A064742, A065203, A278263, A304112.

Cf. also A304115.

\\ Needs also code for A064413:
write_to_bfile(start_offset,vec,bfilename) = { for(n=1, length(vec), write(bfilename, (n+start_offset)-1, " ", vec[n])); }
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; };
A046523(n) = { my(f=vecsort(factor(n)[, 2], , 4), p); prod(i=1, #f, (p=nextprime(p+1))^f[i]); };  \\ From A046523
A278263(n) = A046523(A064413(n));
write_to_bfile(1,rgs_transform(vector(65539,n,A278263(n))),"b304113.txt");

A304114 Restricted growth sequence transform of A246277(A098550(n)), related to indices in the prime factorization of Yellowstone permutation.

Original entry on oeis.org

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

Offset: 1

Antti Karttunen, May 17 2018

nonn

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

Cf. A098550, A246277, A304115.

Cf. also A304112.

\\ Needs also code for A098550:
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)};
A246277(n) = { if(1==n, 0, while((n%2), n = A064989(n)); (n/2)); };
Aux304114(n) = A246277(A098550(n));
write_to_bfile(start_offset,vec,bfilename) = { for(n=1, length(vec), write(bfilename, (n+start_offset)-1, " ", vec[n])); }
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(1,rgs_transform(vector(65539,n,Aux304114(n))),"b304114.txt");

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

cp's OEIS Frontend

A304113 Restricted growth sequence transform of A278263(n) = A046523(A064413(n)), a filter based on the prime signature of EKG-sequence.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI