A064364 -id:A064364 - cp's OEIS frontend

A000792 a(n) = max{(n - i)*a(i) : i < n}; a(0) = 1.

1, 1, 2, 3, 4, 6, 9, 12, 18, 27, 36, 54, 81, 108, 162, 243, 324, 486, 729, 972, 1458, 2187, 2916, 4374, 6561, 8748, 13122, 19683, 26244, 39366, 59049, 78732, 118098, 177147, 236196, 354294, 531441, 708588, 1062882, 1594323, 2125764, 3188646, 4782969, 6377292

Offset: 0

N. J. A. Sloane

Numbers of the form 3^k, 2*3^k, 4*3^k with a(0) = 1 prepended.
If a set of positive numbers has sum n, this is the largest value of their product.
In other words, maximum of products of partitions of n: maximal value of Product k_i for any way of writing n = Sum k_i. To find the answer, take as many of the k_i's as possible to be 3 and then use one or two 2's (see formula lines below).
a(n) is also the maximal size of an Abelian subgroup of the symmetric group S_n. For example, when n = 6, one of the Abelian subgroups with maximal size is the subgroup generated by (123) and (456), which has order 9. [Bercov and Moser] - Ahmed Fares (ahmedfares(AT)my-deja.com), Apr 19 2001
Also the maximum number of maximal cliques possible in a graph with n vertices (cf. Capobianco and Molluzzo). - Felix Goldberg (felixg(AT)tx.technion.ac.il), Jul 15 2001 [Corrected by Jim Nastos and Tanya Khovanova, Mar 11 2009]
Every triple of alternate terms {3*k, 3*k+2, 3*k+4} in the sequence forms a geometric progression with first term 3^k and common ratio 2. - Lekraj Beedassy, Mar 28 2002
For n > 4, a(n) is the least multiple m of 3 not divisible by 8 for which omega(m) <= 2 and sopfr(m) = n. - Lekraj Beedassy, Apr 24 2003
Maximal number of divisors that are possible among numbers m such that A080256(m) = n. - Lekraj Beedassy, Oct 13 2003
Or, numbers of the form 2^p*3^q with p <= 2, q >= 0 and 2p + 3q = n. Largest number obtained using only the operations +,* and () on the parts 1 and 2 of any partition of n into these two summands where the former exceeds the latter. - Lekraj Beedassy, Jan 07 2005
a(n) is the largest number of complexity n in the sense of A005520 (A005245). - David W. Wilson, Oct 03 2005
a(n) corresponds also to the ultimate occurrence of n in A001414 and thus stands for the highest number m such that sopfr(m) = n, for n >= 2. - Lekraj Beedassy, Apr 29 2002
a(n) for n >= 1 is a paradigm shift sequence with procedural length p = 0, in the sense of A193455. - Jonathan T. Rowell, Jul 26 2011
a(n) = largest term of n-th row in A212721. - Reinhard Zumkeller, Jun 14 2012
For n >= 2, a(n) is the largest number whose prime divisors (with multiplicity) add to n, whereas the smallest such number (resp. smallest composite number) is A056240(n) (resp. A288814(n)). - David James Sycamore, Nov 23 2017
For n >= 3, a(n+1) = a(n)*(1 + 1/s), where s is the smallest prime factor of a(n). - David James Sycamore, Apr 10 2018

			a{8} = 18 because we have 18 = (8-5)*a(5) = 3*6 and one can verify that this is the maximum.
a(5) = 6: the 7 partitions of 5 are (5), (4, 1), (3, 2), (3, 1, 1), (2, 2, 1), (2, 1, 1, 1), (1, 1, 1, 1, 1) and the corresponding products are 5, 4, 6, 3, 4, 2 and 1; 6 is the largest.
G.f. = 1 + x + 2*x^2 + 3*x^3 + 4*x^4 + 6*x^5 + 9*x^6 + 12*x^7 + 18*x^8 + ...

B. R. Barwell, Cutting String and Arranging Counters, J. Rec. Math., 4 (1971), 164-168.
B. R. Barwell, Journal of Recreational Mathematics, "Maximum Product": Solution to Prob. 2004;25(4) 1993, Baywood, NY.
M. Capobianco and J. C. Molluzzo, Examples and Counterexamples in Graph Theory, p. 207. North-Holland: 1978.
S. L. Greitzer, International Mathematical Olympiads 1959-1977, Prob. 1976/4 pp. 18;182-3 NML vol. 27 MAA 1978
J. L. Gross and J. Yellen, eds., Handbook of Graph Theory, CRC Press, 2004; p. 396.
P. R. Halmos, Problems for Mathematicians Young and Old, Math. Assoc. Amer., 1991, pp. 30-31 and 188.
L. C. Larson, Problem-Solving Through Problems. Problem 1.1.4 pp. 7. Springer-Verlag 1983.
D. J. Newman, A Problem Seminar. Problem 15 pp. 5;15. Springer-Verlag 1982.
N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

T. D. Noe, Table of n, a(n) for n = 0..500
R. Bercov and L. Moser, On Abelian permutation groups, Canad. Math. Bull. 8 (1965) 627-630.
Walter Bridges and William Craig, On the distribution of the norm of partitions, arXiv:2308.00123 [math.CO], 2023.
J. Arias de Reyna and J. van de Lune, The question "How many 1's are needed?" revisited, arXiv preprint arXiv:1404.1850 [math.NT], 2014. See M_n.
J. Arias de Reyna and J. van de Lune, Algorithms for determining integer complexity, arXiv preprint arXiv:1404.2183 [math.NT], 2014.
Nigel Derby, 96.21 The MaxProduct partition, The Mathematical Gazette 96:535 (2012), pp. 148-151.
Tomislav Doslic, Maximum Product Over Partitions Into Distinct Parts, Journal of Integer Sequences, Vol. 8 (2005), Article 05.5.8.
Hans Havermann, Tables of sum-of-prime-factors sequences (overview with links to the first 50000 sums).
J. Iraids, K. Balodis, J. Cernenoks, M. Opmanis, R. Opmanis and K. Podnieks, Integer Complexity: Experimental and Analytical Results, arXiv preprint arXiv:1203.6462 [math.NT], 2012.
Andrew Kenney and Caroline Shapcott, Maximum Part-Products of Odd Palindromic Compositions, Journal of Integer Sequences, Vol. 18 (2015), Article 15.2.6.
E. F. Krause, Maximizing The Product of Summands, Mathematics Magazine, MAA Oct 1996, Vol. 69, no. 5 pp. 270-271.
MathPro, 20000 Problems Under the Sea, Problem 14856.Putnam 1979/A1.
J. W. Moon and L. Moser, On cliques in graphs, Israel J. Math. 3 (1965), 23-28.
Natasha Morrison and Alex Scott, Maximizing the number of induced cycles in a graph, Preprint, 2016. See f_2(n).
Simon Plouffe, Approximations de séries génératrices et quelques conjectures, Dissertation, Université du Québec à Montréal, 1992; arXiv:0911.4975 [math.NT], 2009.
Simon Plouffe, 1031 Generating Functions, Appendix to Thesis, Montreal, 1992.
F. Pluvinage, Developing problem solving experiences in practical action projects, The Mathematics Enthusiast, ISSN 1551-3440, Vol. 10, nos. 1 & 2, pp. 219-244.
D. A. Rawsthorne, How many 1's are needed?, Fib. Quart. 27 (1989), 14-17.
J. T. Rowell, Solution Sequences for the Keyboard Problem and its Generalizations, Journal of Integer Sequences, 18 (2015), #15.10.7.
Robert Schneider and Andrew V. Sills, The Product of Parts or "Norm" of a Partition, Integers (2020) Vol. 20A, Article #A13.
J. Scholes, 40th Putnam 1979 Problem A1.
J. Scholes, 18th IMO 1976 Problem 4.
Andrew V. Sills and Robert Schneider, The product of parts or "norm" of a partition, arXiv:1904.08004 [math.NT], 2019.
V. Vatter, Maximal independent sets and separating covers, Amer. Math. Monthly, 118 (2011), 418-423.
Robert G. Wilson v, Letter to N. J. Sloane, circa 1991.
A. C.-C. Yao, On a problem of Katona on minimal separating systems, Discrete Math., 15 (1976), 193-199.
Index to sequences related to the complexity of n
Index entries for linear recurrences with constant coefficients, signature (0,0,3).

See A007600 for a left inverse.
Cf. A000793, A009490, A034891, A062943, A007601, A062723, A069188, A087902.
Cf. array A064364, rightmost (nonvanishing) numbers in row n >= 2.
See A056240 and A288814 for the minimal numbers whose prime factors sums up to n.
A000792, A178715, A193286, A193455, A193456, and A193457 are closely related as paradigm shift sequences for (p = 0, ..., 5 respectively).
Cf. A202337 (subsequence).
Cf. A038754, A005245, A005520.

a000792 n = a000792_list !! n
a000792_list = 1 : f [1] where
   f xs = y : f (y:xs) where y = maximum $ zipWith (*) [1..] xs
-- Reinhard Zumkeller, Dec 17 2011

I:=[1,1,2,3,4]; [n le 5 select I[n] else 3*Self(n-3): n in [1..45]]; // Vincenzo Librandi, Apr 14 2015

A000792 := proc(n)
    m := floor(n/3) ;
    if n mod 3 = 0 then
        3^m ;
    elif n mod 3 = 1 then
        4*3^(m-1) ;
    else
        2*3^m ;
    end if;
    floor(%) ;
end proc: # R. J. Mathar, May 26 2013

a[1] = 1; a[n_] := 4* 3^(1/3 *(n - 1) - 1) /; (Mod[n, 3] == 1 && n > 1); a[n_] := 2*3^(1/3*(n - 2)) /; Mod[n, 3] == 2; a[n_] := 3^(n/3) /; Mod[n, 3] == 0; Table[a[n], {n, 0, 40}]
CoefficientList[Series[(1 + x + 2x^2 + x^4)/(1 - 3x^3), {x, 0, 50}], x] (* Harvey P. Dale, May 01 2011 *)
f[n_] := Max[ Times @@@ IntegerPartitions[n, All, Prime@ Range@ PrimePi@ n]]; f[1] = 1; Array[f, 43, 0] (* Robert G. Wilson v, Jul 31 2012 *)
a[ n_] := If[ n < 2, Boole[ n > -1], 2^Mod[-n, 3] 3^(Quotient[ n - 1, 3] + Mod[n - 1, 3] - 1)]; (* Michael Somos, Jan 23 2014 *)
Join[{1, 1}, LinearRecurrence[{0, 0, 3}, {2, 3, 4}, 50]] (* Jean-François Alcover, Jan 08 2019 *)
Join[{1,1},NestList[#+Divisors[#][[-2]]&,2,41]] (* James C. McMahon, Aug 09 2024 *)

{a(n) = floor( 3^(n - 4 - (n - 4) \ 3 * 2) * 2^( -n%3))}; /* Michael Somos, Jul 23 2002 */

lista(nn) = {print1("1, 1, "); print1(a=2, ", "); for (n=1, nn, a += a/divisors(a)[2]; print1(a, ", "););} \\ Michel Marcus, Apr 14 2015

A000792(n)=if(n>1,3^((n-2)\3)*(2+(n-2)%3),1) \\ M. F. Hasler, Jan 19 2019

G.f.: (1 + x + 2*x^2 + x^4)/(1 - 3*x^3). - Simon Plouffe in his 1992 dissertation.
a(3n) = 3^n; a(3*n+1) = 4*3^(n-1) for n > 0; a(3*n+2) = 2*3^n.
a(n) = 3*a(n-3) if n > 4. - Henry Bottomley, Nov 29 2001
a(n) = n if n <= 2, otherwise a(n-1) + Max{gcd(a(i), a(j)) | 0 < i < j < n}. - Reinhard Zumkeller, Feb 08 2002
A007600(a(n)) = n; Andrew Chi-Chih Yao attributes this observation to D. E. Muller. - Vincent Vatter, Apr 24 2006
a(n) = 3^(n - 2 - 2*floor((n - 1)/3))*2^(2 - (n - 1) mod 3) for n > 1. - Hieronymus Fischer, Nov 11 2007
From Kiyoshi Akima (k_akima(AT)hotmail.com), Aug 31 2009: (Start)
a(n) = 3^floor(n/3)/(1 - (n mod 3)/4), n > 1.
a(n) = 3^(floor((n - 2)/3))*(2 + ((n - 2) mod 3)), n > 1. (End)
a(n) = (2^b)*3^(C - (b + d))*(4^d), n > 1, where C = floor((n + 1)/3), b = max(0, ((n + 1) mod 3) - 1), d = max(0, 1 - ((n + 1) mod 3)). - Jonathan T. Rowell, Jul 26 2011
G.f.: 1 / (1 - x / (1 - x / (1 + x / (1 - x / (1 + x / (1 + x^2 / (1 + x))))))). - Michael Somos, May 12 2012
3*a(n) = 2*a(n+1) if n > 1 and n is not divisible by 3. - Michael Somos, Jan 23 2014
a(n) = a(n-1) + largest proper divisor of a(n-1), n > 2. - Ivan Neretin, Apr 13 2015
a(n) = max{a(i)*a(n-i) : 0 < i < n} for n >= 4. - Jianing Song, Feb 15 2020
a(n+1) = a(n) + A038754(floor( (2*(n-1) + 1)/3 )), for n > 1. - Thomas Scheuerle, Oct 27 2022

More terms and better description from Therese Biedl (biedl(AT)uwaterloo.ca), Jan 19 2000

A056240 Smallest number whose prime divisors (taken with multiplicity) add to n.

Original entry on oeis.org

2, 3, 4, 5, 8, 7, 15, 14, 21, 11, 35, 13, 33, 26, 39, 17, 65, 19, 51, 38, 57, 23, 95, 46, 69, 92, 115, 29, 161, 31, 87, 62, 93, 124, 155, 37, 217, 74, 111, 41, 185, 43, 123, 86, 129, 47, 215, 94, 141, 188, 235, 53, 329, 106, 159, 212, 265, 59, 371, 61, 177, 122

Offset: 2

Adam Kertesz, Aug 19 2000

a(n) is the index of first occurrence of n in A001414.
From David James Sycamore and Michel Marcus, Jun 16 2017, Jun 28 2017: (Start)
Recursive calculation of a(n):
For prime p, a(p) = p.
For even composite n, let P_n denote the largest prime < n-1 such that n-P_n is prime (except if n = 6).
For odd composite n, let P_n denote the largest prime < n-1 such that n-3-P_n is prime.
Conjecture: a(n) = min { q*a(n-q); q prime, P_n <= q < n-1 }.
Examples:
For n = 9998, P_9998 = 9967 and a(9998) = min { 9973*a(25), 9967*a(31) } = 9967*31 = 308977.
For n = 875, P_875 = 859 and a(875) = min { 863*a(12), 859*a(16) } = 863*35 = 30205.
Note: A000040 and A288313 are both subsequences of this sequence. (End)

			a(8) = 15 = 3*5 because 15 is the smallest number whose prime divisors sum to 8.
a(10000) = 586519: Let pp(n) be the largest prime < n and the candidate being the current value that might be a(10000). Then we see that pp(10000 - 1) = 9973, giving a candidate 9973 * a(10000 - 9973) = 9973 * 92. pp(9973) = 9967, giving a candidate 9967 * a(10000 - 9967) = 9967 * 62. pp(9967) = 9949, giving the candidate 9949 * a(10000 - 9949) = 9962 * 188. This is larger than our candidate so we keep 9967 * 62 as our candidate. pp(9949) = 9941, giving a candidate 9941 * pp(10000 - 9941) = 9941 * 59. We see that (n - p) * a(p) >= (n - p) * p > candidate = 9941 * 59 for p > 59 so we stop iterating to conclude a(10000) = 9941 * 59 = 586519. - _David A. Corneth_, Mar 23 2018, edited by _M. F. Hasler_, Jan 19 2019

Reinhard Zumkeller, Table of n, a(n) for n = 2..10000
Hans Havermann, Tables of sum-of-prime-factors sequences (overview with links to the first 50000 sums).

Cf. A000040, A001414, A064502, A288313.
First column of array A064364, n>=2.
See A000792 for the maximal numbers whose prime factors sums up to n.

a056240 = (+ 1) . fromJust . (`elemIndex` a001414_list)
-- Reinhard Zumkeller, Jun 14 2012

A056240 := proc(n)
    local k ;
    for k from 1 do
        if A001414(k) = n then
            return k ;
        end if;
    end do:
end proc:
seq(A056240(n),n=2..80) ; # R. J. Mathar, Apr 15 2024

a = Table[0, {75}]; Do[b = Plus @@ Flatten[ Table[ #1, {#2}] & @@@ FactorInteger[n]]; If[b < 76 && a[[b]] == 0, a[[b]] = n], {n, 2, 1000}]; a (* Robert G. Wilson v, May 04 2002 *)
b[n_] := b[n] = Total[Times @@@ FactorInteger[n]];
a[n_] := For[k = 2, True, k++, If[b[k] == n, Return[k]]];
Table[a[n], {n, 2, 63}] (* Jean-François Alcover, Jul 03 2017 *)

isok(k, n) = my(f=factor(k)); sum(j=1, #f~, f[j,1]*f[j,2]) == n;
a(n) = my(k=2); while(!isok(k, n), k++); k; \\ Michel Marcus, Jun 21 2017

a(n) = {if(n < 7, return(n + 2*(n==6))); my(p = precprime(n), res); if(p == n, return(p), p = precprime(n - 2); res = p * a(n - p); while(res > (n - p) * p && p > 2, p = precprime(p - 1); res = min(res, a(n - p) * p)); res)} \\ David A. Corneth, Mar 23 2018

A056240(n, p=n-1, m=oo)=if(n<6 || isprime(n), n, n==6, 8, until(p<3 || (n-p=precprime(p-1))*p >= m=min(m,A056240(n-p)*p),); m) \\ M. F. Hasler, Jan 19 2019

Trivial but essential: a(n) >= n. - David A. Corneth, Mar 23 2018

a(n) >= n with equality iff n = 4 or n is prime. - M. F. Hasler, Jan 19 2019

More terms from James Sellers, Aug 25 2000

A002098 G.f.: 1/Product_{k>=1} (1-prime(k)*x^prime(k)).

Original entry on oeis.org

1, 0, 2, 3, 4, 11, 17, 29, 49, 85, 144, 226, 404, 603, 1025, 1679, 2558, 4201, 6677, 10190, 16599, 25681, 39643, 61830, 96771, 147114, 228338, 352725, 533291, 818624, 1263259, 1885918, 2900270, 4396577, 6595481, 10040029, 15166064, 22642064

Offset: 0

N. J. A. Sloane

nonn

a(n) is sum of all numbers k for which A001414(k), the sum of prime factors with repetition, equals n. See Havermann's link. - J. M. Bergot, Jun 14 2013

S.M. Kerawala, On a Pair of Arithmetic Functions Analogous to Chawla's Pair, J. Natural Sciences and Mathematics, 9 (1969), circa p. 103.
N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Seiichi Manyama, Table of n, a(n) for n = 0..6274 (terms 0..500 from T. D. Noe)
H. Havermann: Tables of sum-of-prime-factors sequences (overview with links to the first 50000 sums).

Cf. A002099, A006906.

Row sums of A064364, A116864.

b:= proc(n,i) option remember;
      if n<0 then 0
    elif n=0 then 1
    elif i=0 then 0
    else b(n, i-1) +b(n-ithprime(i), i) *ithprime(i)
      fi
    end:
a:= n-> b(n, numtheory[pi](n)):
seq(a(n), n=0..40);  # Alois P. Heinz, Nov 20 2010

b[n_, i_] := b[n, i] = Which[n<0, 0, n==0, 1, i==0, 0, True, b[n, i-1] + b[n - Prime[i], i]*Prime[i]]; a[n_] := b[n, PrimePi[n]]; Table[a[n], {n, 0, 40}] (* Jean-François Alcover, Feb 19 2016, after Alois P. Heinz *)
With[{nn=40},CoefficientList[Series[1/Product[1-Prime[k]x^Prime[k],{k,nn}],{x,0,nn}],x]] (* Harvey P. Dale, Jun 20 2021 *)

my(N=40, x='x+O('x^N)); Vec(1/prod(k=1, N, 1-isprime(k)*k*x^k)) \\ Seiichi Manyama, Feb 27 2022

Better description and more terms from Vladeta Jovovic, May 09 2003

A178595 Natural numbers sorted by the sum of square roots of prime factors.

Original entry on oeis.org

1, 2, 3, 5, 7, 4, 6, 11, 9, 13, 10, 15, 14, 17, 8, 19, 21, 25, 12, 22, 23, 18, 35, 26, 33, 20, 27, 49, 39, 30, 29, 28, 34, 55, 31, 16, 45, 38, 42, 65, 51, 50, 77, 24, 37, 57, 63, 44, 75, 46, 91, 36, 70, 85, 41, 52, 66, 40, 69, 43, 95, 54, 105, 121, 98, 125, 78, 119, 99, 60, 58

Offset: 1

Joonas Pohjonen, May 30 2010

nonn

Prime factors counted with multiplicity. - Harvey P. Dale, May 20 2023

Cf. A001222, A027746.

Similarly defined sequences: A064364, A168521.

SortBy[Table[{n,Total[N[Sqrt[Flatten[Table[#[[1]],#[[2]]]&/@FactorInteger[n]]]]]},{n,150}],Last][[;;,1]] (* Harvey P. Dale, May 20 2023 *)

For n >= 1, Sum_{k=1..A001222(a(n))} sqrt(A027746(a(n),k)) < Sum_{k=1..A001222(a(n+1))} sqrt(A027746(a(n+1),k)). - Peter Munn, Aug 17 2022

A376147 a(1)=1, followed by array T(n,k), n>=1, k>=2 read by antidiagonals (downwards) wherein the first row is A056240, and the k-th column records in ascending order the numbers m such that A001414(m) = k.

Original entry on oeis.org

1, 2, 3, 4, 5, 8, 6, 7, 9, 15, 10, 14, 16, 12, 21, 20, 18, 11, 25, 24, 35, 28, 30, 27, 13, 42, 40, 32, 33, 22, 50, 45, 36, 26, 49, 56, 60, 48, 39, 44, 70, 63, 64, 54, 17, 55, 105, 84, 75, 72, 65, 52, 66, 112, 100, 80, 81, 19, 77, 88, 98, 125, 120, 90, 51, 34, 78

Offset: 1

David James Sycamore, Sep 12 2024

nonn

The columns of T(n,k) are of finite length, corresponding to A000607(k), whereas the rows are of infinite length. This is a permutation of A064364 (which reads 1 plus the consecutive columns of T(n,k)), and hence of the positive integers A000027.

			Construct the irregular table T(n,k) as follows:
The first row T(1,k) is A056240, smallest number whose sum of prime divisors (with multiplicity) is k (k>=2).  The second row T(2,k) is the second smallest number (if it exists) whose sum of prime divisors is k, and so on. The k-th column is then the ordered list of the A000607(k) numbers (k>=2) whose prime divisors sum to k, the final term of which is A000792(k), after which the k-th column contains no further terms. The sum of the terms in the k-th column (k>=2) is A002098(k).
Read the table T(n,k) by antidiagonals downwards to obtain the data:
  2, 3, 4, 5, 8, 7, 15, 14, 21, 11, 35, 13.. (A056240)
           6, 9,10, 16, 20, 25, 28, 42, 22..
                12, 18, 24, 30, 40, 50, 56..
                        27, 32, 45, 60, 63..
                            36, 48, 64, 75..
                                54, 72, 80..
                                    81, 90..
And so on…

Michael De Vlieger, Table of n, a(n) for n = 1..12011 (rows n = 1..180, flattened)
Michael De Vlieger, Log log scatterplot of a(n), n = 1..22572.

Cf. A000027, A000607, A000792, A001414, A002098, A056240, A064364.

kk = 30;
MapIndexed[Set[t[First[#2]], #1] &,
  Rest@ CoefficientList[
    Series[(1 + x + 2 x^2 + x^4)/(1 - 3 x^3), {x, 0, kk}], x] ];
Array[Set[r[#],
  Total@ Flatten[ConstantArray[#1, #2] & @@@ FactorInteger[#]]] &, t[kk]];
s = Table[
  Select[Range[Prime@ PrimePi[k], t[k]], r[#] == k &], {k, 2, kk}];
Join[{1}, s[[1]],
  Table[i = 1; m = n;
    Reap[While[And[m > 1, Length@ s[[m]] >= i], Sow[s[[m, i]] ]; m--;
i++]][[-1, 1]], {n, 2, kk - 1}] ] // Flatten (* Michael De Vlieger, Sep 18 2024 *)

cp's OEIS Frontend

A257815 Inverse permutation of A064364, when seen as flattened list.

Views

Author

Keywords

Links

Crossrefs

Programs

Haskell

Extensions

A376302 Smallest powerful m in row n of A064364, or -1 if none exist.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A303645 Duplicate of A064364.

Views

Author

Keywords

A000792 a(n) = max{(n - i)*a(i) : i < n}; a(0) = 1.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Haskell

Magma

Maple

Mathematica

PARI

PARI

PARI

Formula

Extensions

A056240 Smallest number whose prime divisors (taken with multiplicity) add to n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Haskell

Maple

Mathematica

PARI

PARI

PARI

Formula

Extensions

A002098 G.f.: 1/Product_{k>=1} (1-prime(k)*x^prime(k)).

Views

Author

Keywords

Comments

References

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Extensions

A178595 Natural numbers sorted by the sum of square roots of prime factors.

Views

Author

Keywords

Comments

Links

Crossrefs