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 10 results.

A098550 The Yellowstone permutation: a(n) = n if n <= 3, otherwise the smallest number not occurring earlier having at least one common factor with a(n-2), but none with a(n-1).

Original entry on oeis.org

1, 2, 3, 4, 9, 8, 15, 14, 5, 6, 25, 12, 35, 16, 7, 10, 21, 20, 27, 22, 39, 11, 13, 33, 26, 45, 28, 51, 32, 17, 18, 85, 24, 55, 34, 65, 36, 91, 30, 49, 38, 63, 19, 42, 95, 44, 57, 40, 69, 50, 23, 48, 115, 52, 75, 46, 81, 56, 87, 62, 29, 31, 58, 93, 64, 99, 68, 77, 54, 119, 60
Offset: 1

Views

Author

Reinhard Zumkeller, Sep 14 2004

Keywords

Comments

For n > 3, gcd(a(n), a(n-1)) = 1 and gcd(a(n), a(n-2)) > 1. (This is just a restatement of the definition.)
This is now known to be a permutation of the natural numbers: see the 2015 article by Applegate, Havermann, Selcoe, Shevelev, Sloane, and Zumkeller.
From N. J. A. Sloane, Nov 28 2014: (Start)
Some of the known properties (but see the above-mentioned article for a fuller treatment):
1. The sequence is infinite. Proof: We can always take a(n) = a(n-2)*p, where p is a prime that is larger than any prime dividing a(1), ..., a(n-1). QED
2. At least one-third of the terms are composite. Proof: The sequence cannot contain three consecutive primes. So at least one term in three is composite. QED
3. For any prime p, there is a term that is divisible by p. Proof: Suppose not. (i) No prime q > p can divide any term. For if a(n)=kq is the first multiple of q to appear, then we could have used kp < kq instead, a contradiction. So every term a(n) is a product of primes < p. (ii) Choose N such that a(n) > p^2 for all n > N. For n > N, let a(n)=bg, a(n+1)=c, a(n+2)=dg, where g=gcd(a(n),a(n+2)). Let q be the largest prime factor of g. We know q < p, so qp < p^2 < dg, so we could have used qp instead of dg, a contradiction. QED
3a. Let a(n_p) be the first term that is divisible by p (this is A251541). Then a(n_p) = q*p where q is a prime less than p. If p < r are primes then n_p < n_r. Proof: Immediate consequences of the definition.
4. (From David Applegate, Nov 27 2014) There are infinitely many even terms. Proof:
Suppose not. Then let 2x be the maximum even entry. Because the sequence is infinite, there exists an N such that for any n > N, a(n) is odd, and a(n) > x^2.
In addition, there must be some n > N such that a(n) < a(n+2). For that n, let g = gcd(a(n),a(n+2)), a(n) = bg, a(n+1)=c, a(n+2)=dg, with all of b,c,d,g relatively prime, and odd.
Since dg > bg, d > b >= 1, so d >= 3. Also, g >= 3.
Since a(n) = bg > x^2, one of b or g is > x.
Case 1: b > x. Then 2b > 2x, so 2b has not yet occurred in the sequence. And gcd(bg,2b)=b > x > 1, gcd(2b,c)=1, and since g >= 3, 2b < bg < dg. So a(n+2) should have been 2b instead of dg.
Case 2: g > x. Then 2g > 2x, so 2g has not yet occurred in the sequence. And gcd(bg,2g)=g > 1, gcd(2g,c)=1, and since d >= 3, 2g < dg. So a(n+2) should have been 2g instead of dg.
In either case, we derive a contradiction. QED
Conjectures:
5. For any prime p > 97, the first time we see p, it is in the subsequence a(n) = 2b, a(n+2) = 2p, a(n+4) = p for some n, b, where n is about 2.14*p and gcd(b,p)=1.
6. The value of |{k=1,..,n: a(k)<=k}|/n tends to 1/2. - Jon Perry, Nov 22 2014 [Comment edited by N. J. A. Sloane, Nov 23 2014 and Dec 26 2014]
7. Based on the first 250000 terms, I conjectured on Nov 30 2014 that a(n)/n <= (Pi/2)*log n.
8. The primes in the sequence appear in their natural order. This conjecture is very plausible but as yet there is no proof. - N. J. A. Sloane, Jan 29 2015
(End)
The only fixed points seem to be {1, 2, 3, 4, 12, 50, 86} - see A251411. Checked up to n=10^4. - L. Edson Jeffery, Nov 30 2014. No further terms up to 10^5 - M. F. Hasler, Dec 01 2014; up to 250000 - Reinhard Zumkeller; up to 300000 (see graph) - Hans Havermann, Dec 01 2014; up to 10^6 - Chai Wah Wu, Dec 06 2014; up to 10^8 - David Applegate, Dec 08 2014.
From N. J. A. Sloane, Dec 04 2014: (Start)
The first 250000 points lie on about 8 roughly straight lines, whose slopes are approximately 0.467, 0.957, 1.15, 1.43, 2.40, 3.38, 5.25 and 6.20.
The first six lines seem well-established, but the two lines with highest slope at present are rather sparse. Presumably as the number of points increases, there will be more and more lines of ever-increasing slopes.
These lines can be seen in the Havermann link. See the "slopes" link for a list of the first 250000 terms sorted according to slope (the four columns in the table give n, a(n), the slope a(n)/n, and the number of divisors of a(n), respectively).
The primes (with two divisors) all lie on the lowest line, and the lines of slopes 1.43 and higher essentially consist of the products of two primes (with four divisors).
(End)
The eight roughly straight lines mentioned above are actually curves. A good fit for the "line" with slope ~= 1.15 is a(n)~=n(1+1.0/log(n/24.2)), and a good fit for the other "lines" is a(n)~= (c/2)*n(1-0.5/log(n/3.67)), for c = 1,2,3,5,7,11,13. The first of these curves consists of most of the odd terms in the sequence. The second family consists of the primes (c=1), even terms (c=2), and c*prime (c=3,5,7,11,13,...). This functional form for the fit is motivated by the observed pattern (after the first 204 terms) of alternating even and odd terms, except for the sequence pattern 2*p, odd, p, even, q*p when reaching a prime (with q a prime < p). - Jon E. Schoenfield and David Applegate, Dec 15 2014
For a generalization, see the sequence of monomials of primes in the comment in A247225. - Vladimir Shevelev, Jan 19 2015
From Vladimir Shevelev, Feb 24 2015: (Start)
Let P be prime. Denote by S_P*P the first multiple of P appearing in the sequence. Then
1) For P >= 5, S_P is prime.
Indeed, let
a(n-2)=v, a(n-1)=w, a(n)=S_P*P. (*)
Note that gcd(v,P)=1. Therefore, by the definition of the sequence, S_P*P should be the smallest number such that gcd(v,S_P) > 1.
So S_P is the smallest prime factor of v.
2) The first multiples of all primes appear in the natural order.
Suppose not. Then there is a pair of primes P < Q such that S_Q*Q appears earlier than S_P*P. Let
a(m-2)=v_1, a(m-1)=w_1, a(m)=S_Q*Q. (**)
Then, as in (*), S_Q is the smallest prime factor of v_1. But this does not depend on Q. So S_Q*P is a smaller candidate in (**), a contradiction.
3) S_P < P.
Indeed, from (*) it follows that the first multiple of S_P appears earlier than the first multiple of P. So, by 2), S_P < P.
(End)
For any given set S of primes, the subsequence consisting of numbers whose prime factors are exactly the primes in S appears in increasing order. For example, if S = {2,3}, 6 appears first, in due course followed by 12, 18, 24, 36, 48, 54, 72, etc. The smallest numbers in each subsequence (i.e., those that appear first) are the squarefree numbers A005117(n), n > 1. - Bob Selcoe, Mar 06 2015

Crossrefs

Cf. A098548, A098551, A249943 (first time all 1..n appear), A251553.
The inverse permutation is in A098551.
A098552(n) = a(a(n)).
A251102(n) = GCD(a(n+2),a(n)).
Cf. A251101 (smallest prime factor), A251103 (largest prime factor), A251138 (number of distinct prime factors), A251140 (total number of prime factors), A251045 (squarefree part), A251089 (squarefree kernel), A250127 and A251415 (records for a(n)/n), A251411 (fixed points), A248647 (records).
Cf. also A251412 (trajectory of 11), A251556 (finite cycles), A251413 and A251414 (variant involving odd numbers), A249357 ("Fibonacci" variant).
Smallest missing numbers: A251416, A251417, A251546-A251552, A247253. See also A251557, A241558, A251559.
Indices of some pertinent subsequences: A251237 (even numbers), A251238 (odd numbers), A251391 (squarefree), A251541 and A251239 (primes), A251240 (squares of primes), A251241 (prime powers), A251393 (powers of 2), A251392 (nonprimes), A253297 (primes p for which some multiple k*p > 2*p precedes p).
Three arrays concerning the occurrences of multiples of primes: A251637, A251715, A251716.
Two sequences related to the numbers which immediately follow a prime: A253048, A253049. Seven sequences related to the numbers that appear two steps after primes: A251542, A251543, A251544, A251545, A253052, A253053, A253054. See also A253055 and A253056.
Other starting values: A251554, A251555.
See also A064413 (EKG sequence), A255582, A121216 (similar sequences), A257112 (two-dimensional analog).
See also A253765 and A253766 (bisections), A250299 (parity), A253768 (partial sums).
See A336957 for a variation.

Programs

  • Haskell
    import Data.List (delete)
    a098550 n = a098550_list !! (n-1)
    a098550_list = 1 : 2 : 3 : f 2 3 [4..] where
       f u v ws = g ws where
         g (x:xs) = if gcd x u > 1 && gcd x v == 1
                       then x : f v x (delete x ws) else g xs
    -- Reinhard Zumkeller, Nov 21 2014
    
  • Maple
    N:= 10^4: # to get a(1) to a(n) where a(n+1) is the first term > N
    B:= Vector(N,datatype=integer[4]):
    for n from 1 to 3 do A[n]:= n: od:
    for n from 4 do
      for k from 4 to N do
        if B[k] = 0 and igcd(k,A[n-1]) = 1 and igcd(k,A[n-2]) > 1 then
           A[n]:= k;
           B[k]:= 1;
           break
        fi
      od:
      if k > N then break fi
    od:
    seq(A[i],i=1..n-1); # Robert Israel, Nov 21 2014
  • Mathematica
    f[lst_List] := Block[{k = 4}, While[ GCD[ lst[[-2]], k] == 1 || GCD[ lst[[-1]], k] > 1 || MemberQ[lst, k], k++]; Append[lst, k]]; Nest[f, {1, 2, 3}, 68] (* Robert G. Wilson v, Nov 21 2014 *)
    NN = Range[4, 1000]; a098550 = {1, 2, 3}; g = {-1}; While[g[[1]] != 0, g = Flatten[{FirstPosition[NN, v_ /; GCD[a098550[[-1]], v] == 1 && GCD[a098550[[-2]], v] > 1, 0]}]; If[g[[1]] != 0, d = NN[[g]]; a098550 = Flatten[Append[a098550, d[[1]]]]; NN = Delete[NN, g[[1]]]]]; Table[a098550[[n]], {n, 71}] (* L. Edson Jeffery, Jan 01 2015 *)
  • PARI
    a(n, show=1, a=3, o=2, u=[])={n<3&&return(n); show&&print1("1, 2"); for(i=4,n, show&&print1(","a); u=setunion(u, Set(a)); while(#u>1 && u[2]==u[1]+1, u=vecextract(u,"^1")); for(k=u[1]+1, 9e9, gcd(k,o)>1||next; setsearch(u,k)&&next; gcd(k,a)==1||next; o=a; a=k; break)); a} \\ Replace "show" by "a+1==i" in the main loop to print only fixed points. - M. F. Hasler, Dec 01 2014
    
  • Python
    from math import gcd
    A098550_list, l1, l2, s, b = [1,2,3], 3, 2, 4, {}
    for _ in range(1,10**6):
        i = s
        while True:
            if not i in b and gcd(i,l1) == 1 and gcd(i,l2) > 1:
                A098550_list.append(i)
                l2, l1, b[i] = l1, i, 1
                while s in b:
                    b.pop(s)
                    s += 1
                break
            i += 1 # Chai Wah Wu, Dec 04 2014

A241838 Column 1 of A237270, also the right border.

Original entry on oeis.org

1, 3, 2, 7, 3, 12, 4, 15, 5, 9, 6, 28, 7, 12, 8, 31, 9, 39, 10, 42, 11, 18, 12, 60, 13, 21, 14, 56, 15, 72, 16, 63, 17, 27, 18, 91, 19, 30, 20, 90, 21, 96, 22, 42, 23, 36, 24, 124, 25, 39, 26, 49, 27, 120, 28, 120, 29, 45, 30, 168, 31, 48, 32, 127
Offset: 1

Views

Author

Omar E. Pol, Apr 29 2014

Keywords

Comments

First differs from A241559 at a(45).
If A237271(n) = 1 then a(n) = A241558(n) = A241559(n) = A000203(n).
If n is an odd prime then a(n) = (n + 1)/2 = A241558(n) = A241559(n).
For more information see A237593.

Examples

			For n = 45 the symmetric representation of sigma(45) = 78 has three parts [23, 32, 23], both the first and the last term are equal to 23, so a(45) = 23.
		

Crossrefs

Programs

  • Mathematica
    Map[First[a237270[#]]&,Range[64]] (* data : computing all parts *)
    (* computing only the first part of the symmetric representation of sigma(n) *)
    row[n_] := Floor[(Sqrt[8n+1]-1)/2] (* in A237591 *)
    f[n_, k_] := If[Mod[n-k*(k+1)/2, k]==0, (-1)^(k+1), 0]
    g[n_, k_] := Ceiling[(n+1)/k-(k+1)/2] - Ceiling[(n+1)/(k+1)-(k+2)/2] (* in A237591 *)
    a241838[n_] := Module[{r=row[n], widths={}, i=1, w=0, len, legs}, w+=f[n, i]; While[i<=r && w!=0, AppendTo[widths, w]; i++; w+=f[n, i]]; len=Length[widths]; legs=Map[g[n, #]&, Range[len]]; If[lenHartmut F. W. Hoft, Jan 25 2018 *)

Formula

a(n) = A237270(n, 1) = A237270(n, A237271(n)).

A241559 Largest part of the symmetric representation of sigma(n).

Original entry on oeis.org

1, 3, 2, 7, 3, 12, 4, 15, 5, 9, 6, 28, 7, 12, 8, 31, 9, 39, 10, 42, 11, 18, 12, 60, 13, 21, 14, 56, 15, 72, 16, 63, 17, 27, 18, 91, 19, 30, 20, 90, 21, 96, 22, 42, 32, 36, 24, 124, 25, 39, 26, 49, 27, 120, 28, 120, 29, 45, 30, 168, 31, 48, 32, 127
Offset: 1

Views

Author

Michel Marcus and Omar E. Pol, Apr 29 2014

Keywords

Comments

First differs from A241838 at a(45).
If A237271(n) = 1 then a(n) = A241558(n) = A241838(n) = A000203(n).
If n is an odd prime then a(n) = (n + 1)/2 = A241558(n) = A241838(n).
For more information see A237593.

Examples

			For n = 9 the symmetric representation of sigma(9) = 13 in the first quadrant looks like this:
y
.
._ _ _ _ _ 5
|_ _ _ _ _|
.         |_ _ 3
.         |_  |
.           |_|_ _ 5
.               | |
.               | |
.               | |
.               | |
. . . . . . . . |_| . . x
.
There are three parts [5, 3, 5] and the largest part is 5 so a(9) = 5.
For n = 45 the symmetric representation of sigma(45) = 78 has three parts [23, 32, 23] and the largest part is 32 so a(45) = 32.
		

Crossrefs

Programs

  • Mathematica
    (* Function a237270[] is defined in A237270 *)
    a241559[n_]:=Max[a237270[n]]
    Map[a241559,Range[64]] (* data *)
    (* Hartmut F. W. Hoft, Sep 19 2014 *)

A244579 Numbers k with the property that the number of parts in the symmetric representation of sigma(k) equals the number of divisors of k.

Original entry on oeis.org

1, 3, 5, 7, 9, 11, 13, 17, 19, 21, 23, 25, 27, 29, 31, 33, 37, 39, 41, 43, 47, 49, 51, 53, 55, 57, 59, 61, 65, 67, 69, 71, 73, 79, 81, 83, 85, 87, 89, 93, 95, 97, 101, 103, 107, 109, 111, 113, 115, 119, 121, 123, 125, 127, 129, 131, 133, 137, 139, 141, 145
Offset: 1

Views

Author

Omar E. Pol, Jul 02 2014

Keywords

Comments

Numbers n such that A243982(n) = 0.
First differs from A151991 at a(25).
Let n = 2^m * q with m >= 0 and q odd. Let c_n denote the count of regions in the symmetric representation of sigma(n), which is determined by the positions of 1's in the n-th row of A237048. The maximum of c_n occurs when odd and even positions of 1's alternate implying that all regions have width 1, denoted by w_n = 1. When m > 0 then sigma_0(n) > sigma_0(q) and c_n = sigma_0(n) is impossible. Therefore, exactly those odd n with w_n = 1 are in this sequence. Furthermore, since the 1's in A237048 represent the odd divisors of n, their odd-even alternation expresses the property 2*f < g for any two adjacent divisors f < g of odd number n; in other words, this sequence is also the complement of A090196 relative to the odd numbers. This last property permits computations of elements in this sequence faster than with function a244579, which is based on Dyck paths. - Hartmut F. W. Hoft, Oct 11 2015
From Hartmut F. W. Hoft, Dec 06 2016: (Start)
Also, integers n such that for any pair a < b of divisors of n the inequality 2*a < b holds (hence n is odd).
Let 1 = d_1 < ... < d_k = n be all (odd) divisors of n. The property 2*d_i < d_(i+1), for 1 <= i < k, is equivalent for the 1's in the n-th row of A249223 to be in positions 1 = d_1 < 2 < d_2 < 2*d_2 < ... < d_i <2*d_i < d_(i+1) < ... where 2*d_i represents the odd divisor e_i with d_i * e_i = n. In other words, the odd divisors are the number of parts in the symmetric representation of sigma(n). The rightmost 1 in the n-th row occurs in an odd (even) position when k is odd (even).
As a consequence this sequence is also the complement of A090196 in the set of odd numbers. (End)

Examples

			9 is in the sequence because the parts of the symmetric representation of sigma(9) are [5, 3, 5] and the divisors of 9 are [1, 3, 9] and in both cases there is the same number of elements: A237271(9) = A000005(9) = 3.
See the link for a diagram of the symmetric representations of sigma for sequence data listed above. The symmetric representations of sigma(a(35)) = sigma(81) = sigma(3^4) consists of 5 regions whose areas are [41, 15, 9, 15, 41] and computed as 41 = (3^4+3^0)/2, 15 = (3^3+3^1)/2, and 9 = 3^2 for the central area. Observe also that the 81st row in triangle A237048 is [ 1 1 1 0 0 1 0 0 1 0 0 0 ] with the 1's in positions 1, 2, 3, 6, and 9. This is the largest count for the symmetric regions of sigma shown in the diagram. - _Hartmut F. W. Hoft_, Oct 11 2015
		

Crossrefs

Programs

  • Mathematica
    (* Function a237270[] is defined in A237270 *)
    a244579[m_, n_] := Select[Range[m,n], Length[a237270[#]] == Length[Divisors[#]]&]
    a244579[1, 150] (* data *)
    (* Hartmut F. W. Hoft, Sep 19 2014 *)
    (* alternative function using the divisor property *)
    divisorPairsQ[n_] := Module[{d=Divisors[n]}, Select[2*Most[d] - Rest[d], # >= 0&] == {}]
    a244579Alt[m_?OddQ, n_] := Select[Range[m, n, 2], divisorPairsQ]
    a244579Alt[1, 145] (* data *)
    (* Hartmut F. W. Hoft, Oct 11 2015 *)

Formula

A237271(a(k)) = A000005(a(k)).

A251820 Numbers n for which the symmetric representation of sigma(n) has at least 3 parts, all having the same area.

Original entry on oeis.org

15, 5950
Offset: 1

Views

Author

Hartmut F. W. Hoft, Dec 09 2014

Keywords

Comments

a(3) > 36000000.
Also intersection of A241558 and A241559 (minimum = maximum) minus the union of A238443 and A239929 (number of parts <= 2).

Examples

			The parts of the symmetric representations of sigma(15) and sigma(5950) are {8, 8, 8} and {4464, 4464, 4464}, respectively, so a(1) = 15 and a(2) = 5950.
From _Omar E. Pol_, Dec 09 2014: (Start)
Illustration of the symmetric representation of sigma(15) = 8 + 8 + 8 = 24 in the first quadrant:
.
.  _ _ _ _ _ _ _ _ 8
. |_ _ _ _ _ _ _ _|
.                 |
.                 |_ _
.                 |_  |_ 8
.                   |   |_
.                   |_ _  |
.                       |_|_ _ _ 8
.                             | |
.                             | |
.                             | |
.                             | |
.                             | |
.                             | |
.                             | |
.                             |_|
.
The three parts have the same area.
(End)
		

Crossrefs

Programs

  • Mathematica
    (* T[], row[], cD[] & tD[] are defined in A239663 *)
    a251820[n_] := Module[{pT = T[n, 1], cT, cL, cW = 0, cR = 0, sects = {}, j = 1, r = row[n], test = True}, While[test && j <= r, cT = T[n, j+1]; cL = pT - cT; cW += (-1)^(j+1) * tD[n, j]; If[cW == 0 && cR != 0, AppendTo[sects, cR]; cR = 0; If[Min[sects] != Max[sects], test = False], cR += cL * cW]; pT = cT; j++]; If[cW != 0, AppendTo[sects, 2 * cR - cW]]; Min[sects] == Max[sects] && Length[sects] > 1]
    Select[Range[50000], a251820] (* data *)

A296513 a(n) is the smallest subpart of the symmetric representation of sigma(n).

Original entry on oeis.org

1, 3, 2, 7, 3, 1, 4, 15, 3, 9, 6, 5, 7, 12, 1, 31, 9, 2, 10, 3, 5, 18, 12, 13, 5, 21, 6, 1, 15, 3, 16, 63, 7, 27, 3, 10, 19, 30, 8, 11, 21, 4, 22, 42, 1, 36, 24, 29, 7, 15, 10, 49, 27, 3, 8, 9, 11, 45, 30, 6, 31, 48, 5, 127, 9, 1, 34, 63, 13, 13, 36, 7, 37, 57, 3
Offset: 1

Views

Author

Omar E. Pol, Feb 10 2018

Keywords

Comments

If n is an odd prime (A065091) then a(n) = (n + 1)/2.
If n is a power of 2 (A000079) then a(n) = 2*n - 1.
If n is a perfect number (A000396) then a(n) = 1 assuming there are no odd perfect numbers.
a(n) is also the smallest number in the n-th row of the triangles A279391 and A280851.
a(n) is also the smallest nonzero term in the n-th row of triangle A296508.
The symmetric representation of sigma(n) has A001227(n) subparts.
For the definition of the "subpart" see A279387.
For a diagram with the subparts for the first 16 positive integers see A296508.
It appears that a(n) = 1 if and only if n is a hexagonal number (A000384). - Omar E. Pol, Sep 08 2021
The above conjecture is true. See A280851 for a proof. - Omar E. Pol, Mar 10 2022

Examples

			For n = 15 the subparts of the symmetric representation of sigma(15) are [8, 7, 1, 8], the smallest subpart is 1, so a(15) = 1.
		

Crossrefs

Shares infinitely many terms with A241558, A241559, A241838, A296512 (and possibly more).

Programs

  • Mathematica
    (* a280851[] and support function are defined in A280851 *)
    a296513[n_]:=Min[a280851[n]]
    Map[a296513,Range[75]] (* Hartmut F. W. Hoft, Sep 05 2021 *)

Extensions

More terms from Omar E. Pol, Aug 28 2021

A296512 a(n) is the largest subpart of the symmetric representation of sigma(n).

Original entry on oeis.org

1, 3, 2, 7, 3, 11, 4, 15, 5, 9, 6, 23, 7, 12, 8, 31, 9, 35, 10, 39, 11, 18, 12, 47, 13, 21, 14, 55, 15, 59, 16, 63, 17, 27, 18, 71, 19, 30, 20, 79, 21, 83, 22, 42, 27, 36, 24, 95, 25, 39, 26, 49, 27, 107, 28, 111, 29, 45, 30, 119, 31, 48, 32, 127, 33, 131, 34, 63
Offset: 1

Views

Author

Omar E. Pol, Feb 10 2018

Keywords

Comments

If n is an odd prime (A065091) then a(n) = (n + 1)/2.
If n is a power of 2 (A000079) then a(n) = 2*n - 1.
If n is a perfect number (A000396) then a(n) = 2*n - 1, assuming there are no odd perfect numbers.
a(n) is also the largest element in the n-th row of the triangles A279391, A280851 and A296508.
The symmetric representation of sigma(n) has A001227(n) subparts.
For the definition of the "subpart" see A279387.
For a diagram with the subparts for the first 16 positive integers see A296508.

Examples

			For n = 15 the subparts of the symmetric representation of sigma(15) are [8, 7, 1, 8], the largest subpart is 8, so a(15) = 8.
		

Crossrefs

Shares infinitely many terms with A241558, A241559, A241838, A296513 (and possibly more).

Programs

  • Mathematica
    (* a280851[] and support function are defined in A280851 *)
    a296512[n_]:=Max[a280851[n]]
    Map[a296512,Range[68]] (* Hartmut F. W. Hoft, Sep 05 2021 *)

Extensions

More terms from Omar E. Pol, Aug 28 2021

A351903 a(n) is the smallest number k such that the symmetric representation of sigma(k) has at least one part of size n.

Original entry on oeis.org

1, 3, 2, 7, 9, 11, 4, 15, 10, 19, 21, 6, 25, 27, 8, 31, 33, 22, 37, 39, 26, 43, 45, 47, 49, 51, 34, 12, 57, 38, 16, 45, 65, 67, 69, 46, 73, 75, 18, 79, 81, 20, 85, 87, 58, 91, 93, 62, 52, 99, 101, 103, 105, 70, 109, 28, 74, 115, 117, 24, 121, 123, 32, 127, 129, 86, 133, 135, 137, 76
Offset: 1

Views

Author

Omar E. Pol, Feb 25 2022

Keywords

Comments

Conjecture 1: there are infinitely many pairs of the form a(x) = y; a(y) = x (see examples).
First differs from A351904 at a(11).
From Hartmut F. W. Hoft, Jun 10 2024: (Start)
For numbers less than or equal to a(2^20), (2^k, 2^(k+1) - 1), 0 <= k <= 19, are the only pairs satisfying a(a(x)) = x; the triple (36, 46, 91) is the only one satisfying a(a(a(x))) = x, and there are no proper order 4 quadruples and no order 5 quintuples, apart from fixed point 1.
Conjecture 2: Only the pairs x = 2^k and y = 2^(k+1) - 1, k >= 0, satisfy a(x) = y and a(y) = x.
A repeated number d in this sequence determines a pair of distinct indices u and v such that d = a(u) = a(v). This means that d is the smallest number for which parts of sizes u and v occur in the symmetric representation of sigma(d), SRS(d). There are 5507 such pairs less than a(2^20). (End)

Examples

			For n = 11 we have that 21 is the smallest number k with at least one part 11 in the symmetric representation of sigma(k), so a(11) = 21.
The symmetric representation of sigma(21) in the first quadrant looks like this:
.
   _ _ _ _ _ _ _ _ _ _ _ 11
  |_ _ _ _ _ _ _ _ _ _ _|
                        |
                        |
                        |_ _ _
                        |_ _  |_ 5
                            |_ _|_
                                | |_ 5
                                |_  |
                                  | |
                                  |_|_ _ _ _ 11
                                          | |
                                          | |
                                          | |
                                          | |
                                          | |
                                          | |
                                          | |
                                          | |
                                          | |
                                          | |
                                          |_|
.
For n = 12 we have that 6 is the smallest number k with at least one part 12 in the symmetric representation of sigma(k), so a(12) = 6.
The symmetric representation of sigma(6) in the first quadrant looks like this:
.
   _ _ _ _
  |_ _ _  |_
        |   |_ 12
        |_ _  |
            | |
            | |
            |_|
.
Some pairs of the form a(x) = y; a(y) = x:
   a(2) =  3;   a(3) =  2.
   a(4) =  7;   a(7) =  4.
   a(8) = 15;  a(15) =  8.
  a(16) = 31;  a(31) = 16.
.
The first three repeated terms are 45 = a(23) = a(32), 135 = a(68) = a(104) and 225 = a(113) = a(177), - _Hartmut F. W. Hoft_, Jun 10 2024
		

Crossrefs

Programs

  • Mathematica
    (* a237270[ ] implements improved computing time for A237270 *)
    a237591[n_, k_] := Map[Ceiling[(n+1)/#-(#+1)/2]-Ceiling[(n+1)/(#+1)-(#+2)/2]&, Range[k]]
    a249223[n_, k_] := FoldList[#1+(-1)^(#2+1)KroneckerDelta[Mod[n-#2 (#2+1)/2, #2]]&, 1, Range[2, k]]
    row[n_] := Floor[(Sqrt[8*n+1]-1)/2]
    a237270[n_] := Module[{lw=Transpose[{a237591[n, row[n]], a249223[n, row[n]]}], diag, sL, pL}, diag=Last[lw][[2]]; sL=Split[lw, #[[2]]!=0&]; pL=Map[Apply[Dot, Transpose[#]]&, Select[sL, #[[1, 2]]!=0&]]; If[diag==0, Join[pL, Reverse[pL]], If[Length[pL]>1, Join[Most[pL], {2Last[pL]-diag}, Reverse[Most[pL]]], 2pL-diag]]]
    a351903[n_] := Module[{list=Table[0, n], count0=n, i=1}, While[count0>0, Map[If[list[[#]]==0, list[[#]]=i; count0--]&, Select[a237270[i], #<=n&]]; i++]; list]
    a351903[70] (* Hartmut F. W. Hoft, Jun 10 2024 *)

Formula

a(n) = min( k : exists 1 <= j <= |SRS(k)|, SRS(k)[j] = n ) where |SRS(k)| denotes the number of parts in SRS(k) and SRS(k)[j] its j-th part. - Hartmut F. W. Hoft, Jun 10 2024

Extensions

a(17)-a(70) from Hartmut F. W. Hoft, Jun 10 2024

A295422 a(n) = size of the middle part, i.e., the part closest to or crossing the diagonal, in the symmetric representation of sigma(n).

Original entry on oeis.org

1, 3, 2, 7, 3, 12, 4, 15, 3, 9, 6, 28, 7, 12, 8, 31, 9, 39, 10, 42, 5, 18, 12, 60, 5, 21, 6, 56, 15, 72, 16, 63, 7, 27, 12, 91, 19, 30, 8, 90, 21, 96, 22, 42, 32, 36, 24, 124, 7, 15, 10, 49, 27, 120, 8, 120, 11, 45, 30, 168, 31, 48, 16, 127, 9, 144, 34, 63, 13, 36, 36, 195, 37, 57, 24
Offset: 1

Views

Author

Hartmut F. W. Hoft, Feb 12 2018

Keywords

Comments

When the symmetric representation of sigma(n) has an even number of parts, e.g., for every prime, the two middle parts have equal size so either one may be chosen.
Since a(45) = 32 while A241558(45) = 23 the two sequences are different, indeed both respective complements of the sequences, A241558 in a and a in A241558, are infinite as the symmetric representations of the following two subsequences of this sequence show:
(1) n = 5*3^k, k>1, has the 3 parts ( (5*3^k + 1)/2, 4*(3^k - 1), (5*3^k + 1)/2 ) with the middle the largest part.
(2) n = p^2, p > 2 prime, has the 3 parts ( (p^2 + 1)/2, p, (p^2 + 1)/2 ) with the middle the smallest part.
The parts of the symmetric representation of sigma are in A237270.

Examples

			a(9) = 3; see the Example in A241558.
a(16) = 31 since its symmetric representation of sigma has one part of width one.
a(41) = 21 since for any odd prime number p, row p of A237270 consists of the two parts: {(p+1)/2, (p+1)/2}.
a(50) = 15 since its symmetric representation of sigma has the three parts 39, 15, and 39.
		

Crossrefs

Programs

  • Mathematica
    (* function a237270 and its support are defined in A237270 *)
    a295422[n_] := Module[{a=a237270[n]}, a[[Ceiling[Length[a]/2]]]]
    Map[a295422, Range[75]] (* data *)

A377462 a(n) is the size of the central part of the symmetric representation of sigma(n), or 0 if such a part does not exits.

Original entry on oeis.org

1, 3, 0, 7, 0, 12, 0, 15, 3, 0, 0, 28, 0, 0, 8, 31, 0, 39, 0, 42, 0, 0, 0, 60, 5, 0, 0, 56, 0, 72, 0, 63, 0, 0, 12, 91, 0, 0, 0, 90, 0, 96, 0, 0, 32, 0, 0, 124, 7, 15, 0, 0, 0, 120, 0, 120, 0, 0, 0, 168, 0, 0, 16, 127, 0, 144, 0, 0, 0, 36, 0, 195, 0, 0, 0, 0, 18, 0, 0, 186, 9, 0, 0, 224, 0
Offset: 1

Views

Author

Omar E. Pol, Oct 29 2024

Keywords

Comments

a(n) = A000203(n) if and only if n is a member of A174973.

Examples

			For n = 9 the symmetric representation of sigma(9) = 13 in the first quadrant looks like this:
y
.
._ _ _ _ _ 5
|_ _ _ _ _|
.         |_ _ 3
.         |_  |
.           |_|_ _ 5
.               | |
.               | |
.               | |
.               | |
. . . . . . . . |_| . . x
.
There are three parts [5, 3, 5] and the central part is 3 so a(9) = 3.
		

Crossrefs

Indices of odd terms give A028982.
Indices of even terms give A028983.
Indices of zeros give A071561.
Indices of nonzero terms give A071562.
Nonzero terms give A295423.
Parity gives A053866.
Has the same parity as A000203, A000593, A001227, A033879, A033880, A067742.
Showing 1-10 of 10 results.