cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-10 of 14 results. Next

A304533 Suspected permutation of nonnegative integers: a(n) = A052331(A304531(1+n)).

Original entry on oeis.org

0, 1, 3, 2, 6, 4, 36, 32, 33, 41, 8, 9, 11, 10, 14, 12, 44, 40, 45, 5, 7, 15, 13, 47, 34, 35, 43, 42, 46, 38, 4134, 4096, 4097, 4099, 4098, 4102, 4100, 4132, 4128, 4129, 4145, 16, 17, 19, 18, 22, 20, 52, 48, 49, 57, 24, 25, 27, 26, 30, 28, 60, 56, 61, 21, 23, 31, 29, 63, 50, 51, 59, 58, 62, 54, 4150, 4112, 4113, 4115, 4114, 4118, 4116, 4148, 4144, 4149, 37
Offset: 0

Views

Author

Antti Karttunen, May 14 2018

Keywords

Comments

All nonnegative integers occur provided that A304531 is a permutation of natural numbers.
Shares with sequences like A003188, A006068, A300838, A302846, A303765, A303767 and A304083 the property that when moving from any a(n) to a(n+1) either a subset of 0-bits are toggled on (changed to 1's), or a subset of 1-bits are toggled off (changed to 0's), but no both kind of changes may occur at the same step.

Crossrefs

Cf. A304534 (inverse).

Programs

Formula

a(n) = A052331(A304531(1+n)).
For all n >= 0, A000120(a(n)) = A304536(n), A019565(a(n)) = A304537(n).

A304536 Binary weight of terms of A304533; Number of terms of A050376 in "Fermi-Dirac factorization" of A304531(1+n).

Original entry on oeis.org

0, 1, 2, 1, 2, 1, 2, 1, 2, 3, 1, 2, 3, 2, 3, 2, 3, 2, 4, 2, 3, 4, 3, 5, 2, 3, 4, 3, 4, 3, 4, 1, 2, 3, 2, 3, 2, 3, 2, 3, 4, 1, 2, 3, 2, 3, 2, 3, 2, 3, 4, 2, 3, 4, 3, 4, 3, 4, 3, 5, 3, 4, 5, 4, 6, 3, 4, 5, 4, 5, 4, 5, 2, 3, 4, 3, 4, 3, 4, 3, 5, 3, 4, 3, 4, 5, 4, 6, 4, 5, 3, 4, 5, 4, 5, 1, 2, 3, 2, 3, 2, 3, 2, 3, 4, 2
Offset: 0

Views

Author

Antti Karttunen, May 14 2018

Keywords

Crossrefs

Programs

Formula

a(n) = A000120(A304533(n)).
a(n) = A064547(A304531(1+n)).

A304732 Restricted growth sequence transform of A046523(A304531(n)).

Original entry on oeis.org

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

Views

Author

Antti Karttunen, May 19 2018

Keywords

Comments

For all i, j: a(i) = a(j) => A304536(i-1) = A304536(j-1).

Crossrefs

Differs from related A304729 for the first time at n=66, where a(66) = 12, while A304729(66) = 15.
Compare also to scatter plots of A304535, A304098, A304729.

Programs

  • PARI
    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
    v304732 = rgs_transform(vector(74431,n,A046523(A304531(n)))); \\ Needs also code from A304531
    A304732(n) = v304732[n];

A304530 Positions of odd terms in A304531.

Original entry on oeis.org

1, 4, 8, 11, 14, 18, 25, 28, 32, 35, 39, 42, 45, 49, 52, 55, 59, 66, 69, 73, 76, 80, 91, 94, 115, 118, 122, 125, 128, 132, 139, 142, 146, 149, 152, 156, 160, 163, 167, 170, 173, 177, 196, 199, 203, 206, 209, 213, 220, 223, 227, 230, 234, 237, 240, 244, 247, 250, 254, 261, 264, 268, 271, 275, 278, 281, 285, 288, 291, 295, 309, 312, 316, 319, 322, 326, 338
Offset: 1

Views

Author

Antti Karttunen, May 14 2018

Keywords

Comments

After A304531(2) = 2, the positions of other primes in A304531 are: 4, 11, 42, 237, 1798, 7192, 69611, 431203, 2401568, ...

Crossrefs

Cf. A304531.
Differs from A303750 for the first time at n=18, where a(18) = 66, while A303750(18) = 71.

Programs

  • PARI
    for(n=1,oo,if(A304531(n)%2, print1(n,", ")))

A304532 Inverse of A304531.

Original entry on oeis.org

1, 2, 4, 6, 11, 3, 42, 20, 8, 12, 237, 5, 1798, 43, 14, 96, 7192, 9, 69611, 16, 45, 238, 431203, 21, 32, 1799, 25, 47, 2401568, 13
Offset: 1

Views

Author

Antti Karttunen, May 14 2018

Keywords

Comments

This is the left inverse of A304531, and also the right inverse if A304531 indeed is a permutation of natural numbers.

Crossrefs

Cf. A304531 (inverse).
Cf. also A303752.

Programs

  • PARI
    \\ Use the program given in A304531.

Formula

For all n >= 1, a(A304531(n)) = n.

A304731 Restricted growth sequence transform of A246277(A304531(n)).

Original entry on oeis.org

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

Views

Author

Antti Karttunen, May 19 2018

Keywords

Comments

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

Crossrefs

Differs from related A304728 for the first time at n=66, where a(66) = 18, while A304728(66) = 50.
Cf. also A304535, A304732.

Programs

  • PARI
    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; };
    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)); };
    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; };
    v304731 = rgs_transform(vector(76503,n,A246277(A304531(n)))); \\ Needs also code from A304531
    A304731(n) = v304731[n];

A207901 Let S_k denote the first 2^k terms of this sequence and let b_k be the smallest positive integer that is not in S_k, also let R_k equal S_k read in reverse order; then the numbers b_k*R_k are the next 2^k terms.

Original entry on oeis.org

1, 2, 6, 3, 12, 24, 8, 4, 20, 40, 120, 60, 15, 30, 10, 5, 35, 70, 210, 105, 420, 840, 280, 140, 28, 56, 168, 84, 21, 42, 14, 7, 63, 126, 378, 189, 756, 1512, 504, 252, 1260, 2520, 7560, 3780, 945, 1890, 630, 315, 45, 90, 270, 135, 540, 1080, 360, 180, 36, 72, 216
Offset: 0

Views

Author

Paul D. Hanna, Feb 21 2012

Keywords

Comments

A permutation of the positive integers (but please note the starting offset: 0-indexed).
This sequence is a variant of A052330.
Shares with A064736, A302350, etc. the property that a(n) is either a divisor or a multiple of a(n+1). - Peter Munn, Apr 11 2018 on SeqFan-list. Note: A302781 is another such "divisor-or-multiple permutation" satisfying the same property. - Antti Karttunen, Apr 14 2018
The offset is 0 since S_0 = {1} denotes the first 2^0 = 1 terms. - Daniel Forgues, Apr 13 2018
This is "Fermi-Dirac piano played with Gray code", as indicated by Peter Munn's Apr 11 2018 formula. Compare also to A303771 and A302783. - Antti Karttunen, May 16 2018

Examples

			Start with [1]; appending 2*[1] results in [1,2];
appending 3*[2,1] results in [1,2, 6,3];
appending 4*[3,6,2,1] results in [1,2,6,3, 12,24,8,4];
appending 5*[4,8,24,12,3,6,2,1]
results in [1,2,6,3,12,24,8,4, 20,40,120,60,15,30,10,5];
next append 7*[5,10,30,15,60,120,40,20,4,8,24,12,3,6,2,1],
multiplying by 7 since 6 is already found in the previous terms.
Each new factor is in A050376: [2,3,4,5,7,9,11,13,16,17,19,23,25,29,...].
Continue in this way to generate all the terms of this sequence.
		

Crossrefs

Cf. A064736, A281978, A282291, A302350, A302781, A302783, A303751, A303771, A304085, A304531, A304755 for other divisor-or-multiple permutations or conjectured permutations.
Cf. A302033 (a squarefree analog), A304745.

Programs

  • Mathematica
    a = {1}; Do[a = Join[a, Reverse[a]*Min[Complement[Range[Max[a] + 1], a]]], {n, 1, 6}]; a (* Ivan Neretin, May 09 2015 *)
  • PARI
    {A050376(n)= local(m, c, k, p); n--; if(n<=0, 2*(n==0), c=0; m=2; while( cA050376(n-1)*Vec(Polrev(A))));A[n]}
    for(n=0,63,print1(a(n),",")) \\ edited for offsets by Michel Marcus, Apr 04 2019
    
  • PARI
    up_to_e = 13;
    v050376 = vector(up_to_e);
    A050376(n) = v050376[n];
    ispow2(n) = (n && !bitand(n,n-1));
    i = 0; for(n=1,oo,if(ispow2(isprimepower(n)), i++; v050376[i] = n); if(i == up_to_e,break));
    A052330(n) = { my(p=1,i=1); while(n>0, if(n%2, p *= A050376(i)); i++; n >>= 1); (p); };
    A003188(n) = bitxor(n, n>>1);
    A207901(n) = A052330(A003188(n)); \\ Antti Karttunen, Apr 13 2018

Formula

a(n) = A052330(A003188(n)). - Peter Munn, Apr 11 2018
a(n) = A302781(A302843(n)) = A302783(A064706(n)). - Antti Karttunen, Apr 16 2018
a(n+1) = A059897(a(n), A050376(A001511(n+1))). - Peter Munn, Apr 01 2019

Extensions

Offset changed from 1 to 0 by Antti Karttunen, Apr 13 2018

A282291 Lexicographically earliest sequence of distinct terms such that every pair of consecutive terms contains a term that is a unitary divisor of the other term.

Original entry on oeis.org

1, 2, 6, 3, 12, 4, 20, 5, 10, 30, 15, 60, 420, 7, 14, 42, 21, 84, 28, 140, 35, 70, 210, 105, 840, 8, 24, 120, 40, 280, 56, 168, 1848, 11, 22, 66, 33, 132, 44, 220, 55, 110, 330, 165, 660, 4620, 77, 154, 462, 231, 924, 308, 1540, 385, 770, 2310, 1155, 9240, 88
Offset: 1

Views

Author

Rémy Sigrist, Feb 11 2017

Keywords

Comments

This sequence has connections with A113552 and A281978: each pair of consecutive terms contains a term that divides the other term.
The derived sequence A282304 gives some insights about the fractal nature of this sequence.
Conjectures:
- All prime numbers appear in this sequence, in increasing order,
- the derived sequence A282304 is unbounded,
- this sequence is a permutation of the natural numbers.
From Antti Karttunen, May 17 2018: (Start)
The greedy algorithm which constructs this sequence can be understood also in terms of Heinz encodings of partitions (see A215366): Any term a(n) corresponds to a particular integer partition {s1+...+sk} via mapping a(n) = prime(s1)*...*prime(sk), where s1 .. sk are the summands of an integer partition. The choices for constructing the next partition are: either remove some parts from the partition, but with the constraint that if any summand k is removed, then all copies of k present in partition must be removed in too. One may remove all copies of several distinct summands as well. If by such a removal of parts we can find any smaller partitions that have not yet occurred in the sequence, then we choose the one which has the smallest Heinz encoding value to be a(n+1). On the other hand, if all partitions obtained by such removals have already occurred in the sequence, one must then add one or more parts to the current partition, but with the constraint that one is allowed to use only summands that do not already occur in partition (but any number of such summands may be used, also of more than one kind, as long as such summands are not already present in the partition that corresponds to a(n)). Of all such valid new partitions not already encountered, one with the smallest Heinz encoding value is chosen to be a(n+1). Compare this to the rules given for similar A304531 and A303751.
Primes 2 .. 61 occur at: 2, 4, 8, 14, 34, 96, 193, 386, 770, 1538, 3074, 14647, 30533, 60824, 122349, 245225, 688293, 1535694.
Terms just before primes are: 1, 6, 20, 420, 1848, 6552, 556920, 1511640, 6953544, 11090902680, 26447537160, 444799488600, 411767273946600, 1361999444592600, 448097817270965400, 2159016755941924200, 768250528363503385200, 3827047701385526108400.
Primorials (A002110) occur at: 1, 2, 3, 10, 23, 56, 151, 343, 728, 1497, 3034, 6107, 20753, 51285, 112674, 235085, 655721, 1525973, 3151033, ...
Powers of 2: 2 .. 32 occur at: 2, 6, 26, 6531, 1210614, and immediately following terms are: 6, 20, 24, 48, 96.
Immediately preceding terms are: 1, 12, 840, 1163962800, 1479723952477818247200. After 1 these factor as: (2^2 * 3^1), (2^3 * 3^1 * 5^1 * 7^1), (2^4 * 3^2 * 5^2 * 7^1 * 11^1 * 13^1 * 17^1 * 19^1), (2^5 * 3^2 * 5^2 * 7^2 * 11^1 * 13^1 * 17^1 * 19^1 * 23^1 * 29^1 * 31^1 * 41^1 * 43^1 * 47^1 * 53^1).
Observed recurrences: From n>=4 and k>=2 onward, there is a following general pattern:
For n = x .. x+(y-1), a(n) = prime(1+k)*a(n-(x-1)),
where y is the k-th record in A282304, and x is the position of that record in A282304, starting from the k = 2nd record in that sequence:
For n = 8 .. 8+4, a(n) = 5*a(n-7).
For n = 14 .. 14+10, a(n) = 7*a(n-13).
For n = 34 .. 34+30, a(n) = 11*a(n-33).
For n = 96 .. 96+89, a(n) = 13*a(n-95).
For n = 193 .. 193+184, a(n) = 17*a(n-192).
For n = 386 .. 386+382, a(n) = 19*a(n-385).
For n = 770 .. 770+766, a(n) = 23*a(n-769).
For n = 1538 .. 1538+1534, a(n) = 29*a(n-1537).
For n = 3074 .. 3074+3070, a(n) = 31*a(n-3073).
For n = 14647 .. 14647+11104, a(n) = 37*a(n-14646).
For n = 30533 .. 30533+29454, a(n) = 41*a(n-30532).
For n = 60824 .. 60824+30061, a(n) = 43*a(n-60823).
For n = 122349 .. 122349+91330, a(n) = 47*a(n-122348).
For n = 245225 .. 245225+121950, a(n) = 53*a(n-245224).
For n = 688293 .. 688293+367237, a(n) = 59*a(n-688292).
For n = 1535694 .. 1535694+596154, a(n) = 61*a(n-1535693).
Note how this forces values like prime powers to gaps between. E.g. 49 = a(367278) occurs 103 steps after the subsection a(n) = 53*a(n-245224) has ended at 245225+121950 (= 367175), but before the next regular subsection a(n) = 59*a(n-688292) starts at 688293.
(End)

Examples

			The first terms, alongside their p-adic valuations with respect to p=2, 3, 5 and 7 (with 0's omitted), are:
n  a(n)  v2 v3 v5 v7
-- ----  -- -- -- --
1     1
2     2   1
3     6   1  1
4     3      1
5    12   2  1
6     4   2
7    20   2     1
8     5         1
9    10   1     1
10   30   1  1  1
11   15      1  1
12   60   2  1  1
13  420   2  1  1  1
14    7            1
15   14   1        1
16   42   1  1     1
17   21      1     1
18   84   2  1     1
19   28   2        1
20  140   2     1  1
21   35         1  1
22   70   1     1  1
23  210   1  1  1  1
24  105      1  1  1
25  840   3  1  1  1
		

Crossrefs

Cf. A304097, A304098 (see the scatter plots for alternative perspectives).
Cf. A304090 (inverse).

Programs

  • Mathematica
    a = {1}; Do[k = 1; While[Or[MemberQ[a, k], Nand[Divisible[#2, #1], CoprimeQ[#1, #2/#1]]] & @@ Sort@ # &@{k, Last@ a}, k++]; AppendTo[a, k], {n, 58}]; a (* Michael De Vlieger, Feb 12 2017 *)
  • PARI
    up_to = 2^23;
    v282291 = vector(up_to);
    m304090 = Map();
    prev=1; for(n=1,up_to,fordiv(prev,d,if(!mapisdefined(m304090,d) && (1==gcd(d, prev/d)),v282291[n] = d;mapput(m304090,d,n);break)); if(!v282291[n], m = 2; try = m*prev; while(mapisdefined(m304090,try) || (gcd(prev, try/prev)!=1), m++; try = m*prev); v282291[n] = try; mapput(m304090,try,n)); prev = v282291[n]);
    A282291(n) = v282291[n];
    A304090(n) = mapget(m304090,n); \\ Antti Karttunen, May 17 2018

Formula

For all n >= 1, A052331(a(n)) = A302853(n-1), A001222(a(n)) = A304099(n). - Antti Karttunen, May 17 2018

A303751 Suspected divisor-or-multiple permutation: a(1) = 1, and for n > 1, a(n) is either the least divisor of a(n-1) not already present, or (if all divisors already used), a(n) = a(n-1) * {the least power of the least prime not dividing a(n-1) such that the term is not already present}.

Original entry on oeis.org

1, 2, 6, 3, 12, 4, 36, 9, 18, 90, 5, 10, 30, 15, 60, 20, 180, 45, 360, 8, 24, 120, 40, 1080, 27, 54, 270, 135, 540, 108, 2700, 25, 50, 150, 75, 300, 100, 900, 225, 450, 3150, 7, 14, 42, 21, 84, 28, 252, 63, 126, 630, 35, 70, 210, 105, 420, 140, 1260, 315, 2520, 56, 168, 840, 280, 7560, 72, 1800, 200, 600, 4200
Offset: 1

Views

Author

Antti Karttunen, May 01 2018

Keywords

Comments

The greedy algorithm which constructs this sequence can be understood also in terms of Heinz encodings of partitions (see A215366): Any term a(n) corresponds to a particular integer partition {s1+...+sk} via mapping a(n) = prime(s1) * ... * prime(sk), where s1 .. sk are the summands of an integer partition. The choices for constructing the next partition are: If by removing any parts from the partition we can find any smaller partitions that have not already occurred in the sequence, then we choose the one which has the smallest Heinz encoding value. On the other hand, if all partitions obtained by such removals have already occurred in the sequence, then we add to the current partition the least number of copies of the least positive integer that is not yet a part of the partition (A257993), until a partition is found which is not yet in the sequence.
From Antti Karttunen & David A. Corneth, May 01 - 04 2018: (Start)
No two successive descending terms, that is, a(n) > a(n+1) > a(n+2) never occurs.
For n > 1, if a(n) is odd then a(n-1) = 2^h * k * a(n) and a(n+1) = 2^j * a(n) for some h, k and j, that is, odd terms occur between two larger even numbers.
If a(n) < a(n+1) < a(n+2) then (a(n+1) / a(n)) is a divisor of a(n+2).
However, when a(n) < a(n+1) > a(n+2) then (a(n+1) / a(n)) might not be a divisor of a(n+2). The first such case occurs at n=64..66, as a(64) = 280 = 2^3 * 5 * 7, a(65) = 7560 = 2^3 * 3^3 * 5 * 7, and a(66) = 72 = 2^3 * 3^2. We have 7560/280 = 27, which is not a divisor of 72 (72/27 = 8/3).
In most cases, when a(n+1) < a(n) then gcd(a(n+1), a(n)/a(n+1)) = 1 (about 87% for the first 100000 descents). However, there are many exceptions to this, the first case occurring at a(65) = 7560 = 2^3 * 3^3 * 5 * 7 and a(66) = 72 = 2^3 * 3^2, with gcd(72,7560/72) = 3.
(End)
From David A. Corneth, May 04 2018: (Start)
The sequence can be partitioned into a tabf sequence with rows having the first element odd and the others even. It would give (1, 2, 6), (3, 12, 4, 36), (9, 18, 90), (5, 10, 30), (15, 60, 20, 180), (45, 360, 8, 24, 120, 40, 1080), (27, 54, 270), ...
It turns out that some rows are multiples of others; for example, the row (5, 10, 30) is five times the row (1, 2, 6). (End)
See also "observed scaling patterns" in the Formula section.
A303750 gives the positions of odd terms.
A282291 and A304531 are unitary divisor variants that satisfy the condition gcd(a(n+1), a(n)/a(n+1)) = 1, whenever a(n) > a(n+1).
The primes 2, 3, 5, 7, 11, 13, 19, 23 and 29 occur at positions 2, 4, 11, 42, 176, 1343, 8470, 57949, 302739, 1632898, thus after 7 and except for 13, a little earlier than they occur in variant A304531.

Examples

			a(64) = 280 = 2^3 * 5 * 7 = prime(1)^3 * prime(3) * prime(4), which by Heinz-encoding corresponds to integer partition {1+1+1+3+4}. We try to remove all 1's (to get {3+4}, i.e., prime(3)*prime(4) = 35, but that has already been used as a(52)), or to remove either 3 or 4 or both, but also 8, 40 and 56 have already been used, and if we remove all 1's and either 3 or 4, then also prime(3) and prime(4), 5 and 7 have already been used. So we must add one or more copies of 2 (the least missing part) to find a partition that has not already been used. And it turns out we need to add three copies, to get {1+1+1+2+2+2+3+4} to obtain value prime(1)^3 * prime(2)^3 * prime(3) * prime(4) = 7560 not used before, so a(65) = 7560.
For the next partition, we remove two 2's and both 3 and 4, to get {1+1+1+2+2} which gives Heinz-code 2^3 * 3^2 = 72, which is the smallest divisor of 7560 that has not been used before in the sequence, thus a(66) = 72.
		

Crossrefs

Cf. A303752 (inverse).
Cf. A113552, A282291, A304531, A304755 for similarly defined sequences, and also A064736, A207901, A281978, A302350, A302781, A302783, A303771 for other permutations satisfying the divisor-or-multiple property.
Cf. also A303761.
Cf. A304728, A304729 (see their scatter plots for alternative views to this process).
Differs from a variant A304531 for the first time at n = 66, where a(66) = 72, while A304531(66) = 189.

Programs

  • PARI
    up_to = 2^14;
    A053669(n) = forprime(p=2, , if (n % p, return(p))); \\ From A053669
    v303751 = vector(up_to);
    m303752 = Map();
    prev=1; for(n=1,up_to,fordiv(prev,d,if(!mapisdefined(m303752,d),v303751[n] = d;mapput(m303752,d,n);break)); if(!v303751[n], p = A053669(prev); while(mapisdefined(m303752,prev), prev *= p); v303751[n] = prev; mapput(m303752,prev,n)); prev = v303751[n]);
    A303751(n) = v303751[n];
    A303752(n) = mapget(m303752,n);

Formula

Observed scaling patterns:
For n = 2 .. 2 + 0, a(n) = 2*a(n-1).
For n = 4 .. 4 + 0, a(n) = 3*a(n-3).
For n = 11 .. 11 + 7, a(n) = 5*a(n-10).
For n = 42 .. 42 + 23, a(n) = 7*a(n-41).
For n = 176 .. 176 + 80, a(n) = 11*a(n-175).
For n = 1343 .. 1343 + 683, a(n) = 13*a(n-1342).
For n = 8470 .. 8470 + 3610, a(n) = 17*a(n-8469).
For n = 57949 .. 57949 + 18554, a(n) = 19*a(n-57948).

A303771 Divisor-or-multiple permutation of natural numbers, "Fermi-Dirac piano played with May code": a(n) = A052330(A303767(n)).

Original entry on oeis.org

1, 2, 6, 3, 12, 4, 8, 24, 120, 5, 10, 30, 15, 60, 20, 40, 280, 7, 14, 42, 21, 84, 28, 56, 168, 840, 35, 70, 210, 105, 420, 140, 1260, 9, 18, 54, 27, 108, 36, 72, 216, 1080, 45, 90, 270, 135, 540, 180, 360, 2520, 63, 126, 378, 189, 756, 252, 504, 1512, 7560, 315, 630, 1890, 945, 3780, 41580, 11, 22, 66, 33, 132, 44, 88, 264, 1320, 55, 110, 330, 165, 660, 220
Offset: 0

Views

Author

Antti Karttunen, May 02 2018

Keywords

Comments

Consider A019565. Imagine that it is an automatic piano that "plays sequences" when an appropriate punched "tape" is fed to it (as its input), i.e., when it is composed from the right with an appropriate sequence p, as A019565(p(n)). The 1-bits in the binary expansion of each p(n) are the "holes" in the tape, and they determine which "tunes" are present on beat n. The "tunes" are actually primes that are multiplied together. Of course only "squarefree music" (sequences containing only squarefree numbers, A005117) is possible to generate this way, thus we call A019565 a "squarefree piano".
There is a more sophisticated instrument, called "Fermi-Dirac piano" (A052330), with which it is possible to produce sequences that may contain any numbers.
If the tape is constructed in such a way that between the successive beats (when moving from p(n) to p(n+1)), either a subset of 0-bits are toggled on (changed to 1's), or a subset of 1-bits are toggled off (changed to 0's), but no both kind of changes occur simultaneously, then when fed as an input to either of these pianos, the resulting sequence "s" (the output) is guaranteed to satisfy the condition that s(n+1) is either a multiple or a divisor of s(n). For example, Gray code A003188 and its inverse A006068 are examples of such tapes, and they produce sequences A302033, A207901 and A284003, A302783.
This divisor-or-multiple permutation is obtained by playing "Fermi-Dirac piano" with the same tape which yields A303760 when "squarefree piano" is played with it. Note that A303760 is not a subsequence of this sequence, as its terms occur in different order than the squarefree terms here.
See also Peter Munn's Apr 11 2018 message on SeqFan-mailing list and comments in A304537.

Crossrefs

Cf. A303772 (inverse).
Cf. also A064736, A113552, A207901, A281978, A282291, A302350, A302781, A302783, A303751, A304085, A304531 for similar permutations.

Programs

  • PARI
    default(parisizemax,2^31);
    up_to_e = 16;
    up_to = (1 + 2^up_to_e);
    v050376 = vector(2+up_to_e);
    A050376(n) = v050376[n];
    ispow2(n) = (n && !bitand(n,n-1));
    i = 0; for(n=1,oo,if(ispow2(isprimepower(n)), i++; v050376[i] = n); if(i == 2+up_to_e,break));
    A052330(n) = { my(p=1,i=1); while(n>0, if(n%2, p *= A050376(i)); i++; n >>= 1); (p); };
    A053669(n) = forprime(p=2, , if (n % p, return(p))); \\ From A053669
    v303760 = vector(up_to);
    m_inverses = Map();
    prev=1; for(n=1,up_to,fordiv(prev,d,if(!mapisdefined(m_inverses,d),v303760[n] = d;mapput(m_inverses,d,n);break)); if(!v303760[n], apu = prev; while(mapisdefined(m_inverses,try = prev*A053669(apu)), apu *= A053669(apu)); v303760[n] = try; mapput(m_inverses,try,n)); prev = v303760[n]);
    A303760(n) = v303760[n+1];
    A048675(n) = { my(f = factor(n)); sum(k=1, #f~, f[k, 2]*2^primepi(f[k, 1]))/2; };
    A303771(n) = A052330(A048675(A303760(n)));

Formula

a(n) = A052330(A303767(n)) = A052330(A048675(A303760(n))). [See comments].

Extensions

Name amended by Antti Karttunen, May 16 2018
Showing 1-10 of 14 results. Next