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.

Previous Showing 31-36 of 36 results.

A378471 Numbers m whose symmetric representation of sigma(m), SRS(m), has at least 2 parts the first of which has width 1.

Original entry on oeis.org

3, 5, 7, 9, 10, 11, 13, 14, 15, 17, 19, 21, 22, 23, 25, 26, 27, 29, 31, 33, 34, 35, 37, 38, 39, 41, 43, 44, 45, 46, 47, 49, 50, 51, 52, 53, 55, 57, 58, 59, 61, 62, 63, 65, 67, 68, 69, 70, 71, 73, 74, 75, 76, 77, 79, 81, 82, 83, 85, 86, 87, 89, 91, 92, 93, 94, 95, 97, 98, 99, 101, 103, 105
Offset: 1

Views

Author

Hartmut F. W. Hoft, Nov 27 2024

Keywords

Comments

Numbers m = 2^k * q, k >= 0 and q > 1 odd, without odd prime factors p < 2^(k+1).
This sequence is a proper subsequence of A238524. Numbers 78 = A370206(1) = A238524(55) and 102 = A237287(72) are not in this sequence since their width pattern (A341969) is 1210121.
A000079 is not a subsequence since SRS(2^k), k>=0, consists of a single part of width 1.
Let m = 2^k * q, k >= 0 and q > 1 odd, be a number in this sequence and s the size of the first part of SRS(m) which has width 1 and consists of 2^(k+1) - 1 legs of width 1. Therefore, s = Sum_{i=1..2^(k+1)-1} a237591(m, i) = a235791(m, 1) - a235791(m, 2^(k+1)) = ceiling((m+1)/1 - (1+1)/2) - ceiling((m+1)/2^(k+1) - (2^(k+1) + 1)/2) = (2^(k+1) - 1)(q+1)/2. In other words, point (m, s) is on the line s(m) = (2^(k+1) - 1)/2^(k+1) * m + (2^(k+1) - 1)/2.
For every odd number m in this sequence, the first part of SRS(m) has size (m+1)/2.
Let u = 2^k * Product_{i=1..PrimePi(2^(k+1)} p_i, where p_i is the i-th prime, and let v be the number of elements in this sequence that are in the set V = {m = 2^k * q | 1 < m <= u } then T(j + t*v, k) = T(j, k) + t*u, 1 <= j and 1 <= t, holds for the elements in column k.

Examples

			a(5) = 10 is in the sequence since SRS(10) = {9, 9} consists of 2 parts of width 1 and of sizes 9 = (2^2 - 1)(5+1)/2.
a(15) = 25 is in the sequence since the first part of SRS(25) = {13, 5, 13} has width 1 and has size 13 = (2^1 - 1)(25+1)/2.
a(28) = 44 is in the sequence since SRS(44) = {42, 42} has width 1 and has size 42 = (2^3 - 1)(11+1)/2.
The upper left hand 11 X 11 section of array T(j, k) shows the j-th number m in this sequence of the form m = 2^k * q with q odd. The first part of SRS(m) of every number in column k consists of 2^(k+1) - 1 legs of width 1.
j\k| 0   1   2    3    4     5     6      7      8       9       10  ...
------------------------------------------------------------------------
1  | 3   10  44   136  592   2144  8384   32896  133376  527872  2102272
2  | 5   14  52   152  656   2272  8768   33664  133888  528896  2112512
3  | 7   22  68   184  688   2336  8896   34432  138496  531968  2118656
4  | 9   26  76   232  752   2528  9536   34688  140032  537088  2130944
5  | 11  34  92   248  848   2656  9664   35456  142592  538112  2132992
6  | 13  38  116  296  944   2848  10048  35968  144128  543232  2137088
7  | 15  46  124  328  976   3104  10432  36224  145664  544256  2139136
8  | 17  50  148  344  1072  3232  10688  37504  146176  547328  2149376
9  | 19  58  164  376  1136  3296  11072  39296  147712  556544  2161664
10 | 21  62  172  424  1168  3424  11456  39808  150272  558592  2163712
11 | 23  70  188  472  1264  3488  11584  40064  151808  559616  2180096
...
Row 1 is A246956(n), n>=1.
Column 0 is A005408(n) with T(j + 1, 0) = T(j, 0) + 2, n>=1.
Column 1 is A091999(n) with T(j + 2, 1) = T(j, 1) + 12, n>=2.
Column 2 is A270298(n) with T(j + 48, 2) = T(j, 2) + 840, n>=1.
Column 3 is A270301(n) with T(j + 5760, 3) = T(j, 3) + 240240, n>=1.
		

Crossrefs

Programs

  • Mathematica
    (* partsSRS[] and widthPattern[ ] are defined in A377654 *)
    a378471[m_, n_] := Select[Range[m, n], Length[partsSRS[#]]>1&&widthPattern[#][[1;;2]]=={1, 0}&]
    a378471[1, 105]

A367370 a(k) is the number of different widths patterns in the symmetric representation of sigma for numbers having k odd divisors.

Original entry on oeis.org

1, 2, 3, 6, 5, 16, 7, 40
Offset: 1

Views

Author

Hartmut F. W. Hoft, Dec 05 2023

Keywords

Comments

The width pattern (A341969) of the symmetric representation of sigma for a number with k >= 1 odd divisors has length 2*k - 1.
a(p) = p for any prime number p is realized by the m+1 numbers 3^(p-1), ..., 2^m * 3^(p-1) which contain m+1-p duplicates, where m = floor(log_2(3^(p-1))). Each width pattern first increases to a level 1 <= i <= p and then alternates between i and i-1 up to the diagonal of the symmetric representation of sigma resulting in p distinct patterns.
For some numbers n = 2^m * q, q odd and not prime, that are the least instantiations of a width pattern their odd parts q may not be the least instantiations of a width pattern, examples are 78, 1014, 12246 and 171366 with 4, 6, 8 and 10 odd divisors, respectively (see row 2 of the table in A367377).
Conjecture: a(9) = 28.
The least number instantiating the 28th width pattern, 12345654345654321, is n = 43356672, found in a search up to 5*10^9.
Table of width pattern counts of the symmetric representation of sigma and of all possible symmetric patterns:
# odd divisors 1 2 3 4 5 6 7 8 9 10 11 12
pattern count 1 2 3 6 5 16 7 40 28? >=47 11 >=223
A001405 1 2 3 6 10 20 35 70 126 252 462 924
The 4 symmetric patterns 10123232101, 10123432101, 12101010121 and 12123432121 cannot be instantiated as width patterns of numbers with 6 odd divisors.
30 of the 70 possible symmetric patterns of numbers n = 2^m * q, m>=0 and q odd, with 8 odd divisors cannot be instantiated as width patterns of the symmetric representation of sigma(n) since their sequence of widths contradicts the order of the odd divisors d_i of n and of the numbers 2^(m+1) * d_i and the positions of their corresponding 1's in the rows of the triangle of widths in A249223.

Examples

			In the irregular triangle below, row k lists the count and the first occurrences of successive instantiations of the distinct width patterns in the symmetric representation of sigma for numbers with k odd divisors.
# div |count|    first occurrence of distinct width patterns
      |     |    1    2    3     4     5     6      7 .. 11 .. 16 .. 40
-----------------------------------------------------------------------
1     |  1  |    1                                        .     .     .
2     |  2  |    3    6                                   .     .     .
3     |  3  |    9   18   72                              .     .     .
4     |  6  |   15   21   30    60    78   120            .     .     .
5     |  5  |   81  162  648  1296  5184                  .     .     .
6     | 16  |   45   63   75    90   147   150    180    ...  27744   .
7     |  7  |  729 1458 5832 11664 46656 93312 373248     .           .
8     | 40  |  105  135  165   189   210   231    357    ...       203808
9     | 28? |  225  441  450   882   900  1225   1800    ...
10    | >=47|  405  567  810  1134  1377  1539   1620    ...
11    | 11  |59049                 ...               1934917632
The complete sequence of first occurrences of the 11 width patterns for numbers with 11 odd divisors is: 59049, 118098, 472392, 944784, 3779136, 7558272, 30233088, 120932352, 241864704, 967458816, 1934917632.
The column labeled '1' of least occurrences of a width pattern of length 2k-1 is sequence A038547: least number with exactly k odd divisors.
		

Crossrefs

Programs

  • Mathematica
    t249223[n_] := FoldList[#1+(-1)^(#2+1)KroneckerDelta[Mod[n-#2 (#2+1)/2, #2]]&, 1, Range[2, Floor[(Sqrt[8n+1]-1)/2]]]
    (* row n in triangle of A249223 *)
    t262045[n_] := Join[t249223[n], Reverse[t249223[n]]] (* row n in triangle of A262045 *)
    widthPattern[n_] := Map[First, Split[t262045[n]]]
    nOddDivs[n_] := Length[Divisors[NestWhile[#/2&, n, EvenQ[#]&]]]
    count[n_, k_] := Length[Union[Map[widthPattern, Select[Range[n], nOddDivs[#]==k&]]]]
    (* count of distinct width patterns for numbers with k odd divisors in the range 1 .. n *)

A368949 Complement of A368087 in A174905.

Original entry on oeis.org

21, 33, 39, 51, 55, 57, 65, 69, 85, 87, 93, 95, 111, 115, 119, 123, 129, 133, 141, 145, 147, 155, 159, 161, 171, 177, 183, 185, 201, 203, 205, 207, 213, 215, 217, 219, 230, 235, 237, 249, 253, 259, 261, 265, 267, 275, 279, 287, 290, 291, 295, 301, 303, 305, 309, 310, 319, 321, 327, 329, 333, 335, 339, 341
Offset: 1

Views

Author

Hartmut F. W. Hoft, Jan 10 2024

Keywords

Comments

A298855 is a subsequence, number 147 = 3 * 7^2 is the first entry in A368949 not in A298855. This sequence is a subsequence of A174905 = A241008 union A241010.
Alternate definition: Every number n in this sequence has at least 2 distinct odd prime factors and its symmetric representation of sigma consists only of parts of width 1.

Examples

			21 is the smallest number in this sequence since 3 * 5 is not in A174905.
The smallest number in this sequence with 3 distinct odd prime factors is 903 = 3*7*43 which has width pattern (A341969) 101010101010101 of length 17 since ... < d_i < 2 * d_i < d_(i+1) < 2 * d_(i+1) ... holds for all its divisors.
		

Crossrefs

Programs

  • Mathematica
    (* a174905[ ] is defined in A174905 and propQ[ ] in A368087 *)
    a368949[m_, n_] := Select[Range[m, n], a174905[#]&&!propQ[#]&]
    a368949[1, 350]

A368950 Numbers with 11 odd divisors.

Original entry on oeis.org

59049, 118098, 236196, 472392, 944784, 1889568, 3779136, 7558272, 9765625, 15116544, 19531250, 30233088, 39062500, 60466176, 78125000, 120932352, 156250000, 241864704, 282475249, 312500000, 483729408, 564950498, 625000000, 967458816, 1129900996, 1250000000, 1934917632
Offset: 1

Views

Author

Hartmut F. W. Hoft, Jan 10 2024

Keywords

Comments

Every number in this sequence has the form 2^k * p^10, k >= 0, where p is an odd prime. Exactly 11 different width patterns (A341969) of the symmetric representation of sigma are instantiated by the numbers in this sequence. The width pattern becomes unimodal for k >= floor(log_2(p^10)), see A367370 and A367377.

Examples

			a(1) = 59049 = 3^10, a(9) = 5^10 = 9765625 is the smallest number with prime factor 5, a(19) = 282475249 is the smallest number with prime factor 7 and a(27) = 2^floor(log_2(3^10)) * 3^10 = 32768 * 59049 = 1934917632 is the smallest whose width pattern of its symmetric representation of sigma is unimodal.
		

Crossrefs

Cf. A267983 (lists the sequences of numbers with 1 .. 10 odd divisors), A367370, A367377.

Programs

  • Maple
    N:= 10^10: # for terms <= N
    R:= NULL: p:= 2:
    do
      p:= nextprime(p);
      if p^10 > N then break fi;
      R:= R, seq(2^i*p^10, i = 0 .. floor(log[2](N/p^10)))
    od:
    sort([R]); # Robert Israel, Jan 16 2024
  • Mathematica
    numL[p_, b_] := Map[2^# p^10&, Range[0, Floor[Log[2, b/p^10]]]]
    primeL[b_] := Most[NestWhileList[NextPrime[#]&, 3, #^10<=b&]]
    a368950[b_] := Union[Flatten[Map[numL[#, b]&, primeL[b]]]]
    a368950[2 10^9]

A376333 Numbers m whose symmetric representation of sigma(m), SRS(m), consists of widths 0, 1, and 2.

Original entry on oeis.org

15, 35, 45, 63, 70, 75, 77, 78, 91, 99, 102, 105, 110, 114, 117, 130, 135, 138, 143, 153, 154, 165, 170, 174, 175, 182, 186, 187, 189, 190, 195, 209, 221, 222, 225, 231, 238, 245, 246, 247, 255, 258, 266, 273, 282, 285, 286, 297, 299, 318, 322, 323, 325, 345, 348, 350
Offset: 1

Views

Author

Hartmut F. W. Hoft, Sep 20 2024

Keywords

Comments

Sequence a(n) is the subsequence of A375611 for which the symmetric representation of sigma(a(n)) has at least two parts. The width at the diagonal can be any of the 3 widths.
Let m = 2^k * q, k >= 0 and q odd, be a number in this sequence. Let c be the number of divisors s <= A003056(m) of q for which there is at most one divisor t of q satisfying s < t <= min( 2^(k+1) * s, A003056(m). Let w be the number of times width 2 occurs in the width pattern of m (row m in the triangle of A341960). Then c = (w + 1)/2 when the width at the diagonal is equal to 2 and c = w/2 otherwise.

Examples

			SRS(a(1)) consists of 3 parts, its width pattern is 1 0 1 2 1 0 1, and c = 1 with divisor 3.
a(6) = 75 is the smallest number in this sequence which has width  0 on the diagonal; SRS(75) has 4 parts.
a(8) = 78 is the smallest number in this sequence with width pattern 1 2 1 0 1 2 1 (see A370206 and A370209).
a(35) = 225 is the smallest number in the sequence with width 1 on the diagonal; its width pattern is 1 0 1 2 1 2 1 2 1 2 1 2 1 2 1 0 1; w = 6 and c = 3 with divisors 3, 5, and 9.
		

Crossrefs

Programs

  • Mathematica
    (* function sDiv[ ] is defined in A375611 *)
    m012Q[n_] := Union[FoldWhileList[#1+If[OddQ[#2], 1, -1]&, sDiv[n], #1<=2&]]=={0, 1, 2}
    a376333[m_, n_] := Select[Range[m, n], m012Q]
    a376333[1, 350]

A378470 a(n) is the smallest number k for which the width pattern of the symmetric representation of sigma(k), SRS(k), consists of two unimodal parts of maximum width n.

Original entry on oeis.org

3, 78, 10728, 28920, 53752896, 4157280, 278628512256, 90323520, 1658908800, 21499810560, 7487812494923563008, 13005699840, 155267279705546496147456, 111451576596480, 8599694054400, 468208581120, 4172630516011611848266349543424, 5202323481600, 21630916595004029113587563614961664, 67421367982080
Offset: 1

Views

Author

Hartmut F. W. Hoft, Nov 27 2024

Keywords

Comments

Let the nonincreasing multiset cL = { c_1, ... , c_s } be a factorization of n, let dL = { d_1, ... , d_s } be any set of s distinct odd primes, let q = dL^(cL - 1) = d_1^(c_1 - 1) * ... * d_s^(c_s - 1), and let k satisfy 2^k < q < 2^(k+1). Then SRS(2^k * q) is unimodal of maximum height n, 2^k * q has 2n odd divisors and its width pattern has 2n-1 entries. The smallest possible choice for 2^k * q is with the increasing sequence of odd primes d_i = p_(i+1), 1 <= i <= s. The overall smallest 2^k * q is the minimum among all factorizations of n. The smallest number m for which SRS(m) has two unimodal parts of maximum width n requires the additional prime factor r > 2^(k+1) * q which yields m = 2^k * q * r.
This sequence is column 2 in the array of A367377 and a(2) = A370206(1).

Examples

			a(2) = 78  is in the sequence since SRS(78) consists of two parts with width pattern 1 2 1 0 1 2 1 and 78 is the smallest number with those properties.
a(3) = 10728 = 2^3 * 3^2 * 149 is in the sequence since SRS(10728) consists of two parts with width pattern 1 2 3 2 1 0 1 2 3 2 1 and 10728 is the smallest number with those properties.
a(6) = 4157280 = 2^5 * 3^2 * 5 * 2887 is in the sequence. The two factorizations of 6 are {6} and {3, 2} so that with 3^5 = 243 and 3^2 * 5^1 = 45 the inequality 2^5 < 45 < 2^6 determines the single unimodular SRS(32 * 45) of maximum width 6, A250071(6) = 1440. Since 2887 is the smallest prime exceeding 2^6 * 3^2 * 5, 4157280 is the smallest number with SRS(4157280) consisting of two unimodular parts of maximum width 6.
		

Crossrefs

Programs

  • Mathematica
    (* function f[ ] by T. D. Noe in A162247 *)
    sF[n_] := Min[Map[Apply[Times, Prime[Range[2, Length[#]+1]]^#]&, Map[Reverse[#-1]&, f[n]]]]
    f2U[n_] := Module[{s=sF[n], k, p}, k=Floor[Log[2, s]]; p=NextPrime[2^(k+1) s]; 2^k s p]
    a378470[n_] := Map[f2U, Range[n]]
    a378470[20]

Formula

a(p) = 2^k * 3^(p-1) * r, for odd primes p, with 2^k < 3^(p-1) < 2^(k+1) and r > 2^(k+1) * 3^(p-1) least prime, i.e., k = floor( (p-1)*(log_2 (3)) ) and r = prime( primepi(2^(k+1) * 3^(p-1)) + 1 ).
Previous Showing 31-36 of 36 results.