A007489 -id:A007489 - cp's OEIS frontend

A325620 Number of integer partitions of n whose reciprocal factorial sum is an integer.

1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 4, 5, 5, 5, 6, 7, 7, 8, 9, 10, 10, 11, 12, 14, 14, 15, 16, 18, 19, 20, 22, 24, 25, 26, 28, 31, 33, 34, 36, 39, 41, 43, 45, 49, 52, 54, 57, 61, 65, 68, 71, 76, 80, 84, 88, 93, 98, 103, 107, 113

Offset: 1

Gus Wiseman, May 13 2019

The reciprocal factorial sum of an integer partition (y_1,...,y_k) is 1/y_1! + ... + 1/y_k!.

			The initial terms count the following partitions:
  1: (1)
  2: (1,1)
  3: (1,1,1)
  4: (2,2)
  4: (1,1,1,1)
  5: (2,2,1)
  5: (1,1,1,1,1)
  6: (2,2,1,1)
  6: (1,1,1,1,1,1)
  7: (2,2,1,1,1)
  7: (1,1,1,1,1,1,1)
  8: (2,2,2,2)
  8: (2,2,1,1,1,1)
  8: (1,1,1,1,1,1,1,1)
  9: (2,2,2,2,1)
  9: (2,2,1,1,1,1,1)
  9: (1,1,1,1,1,1,1,1,1)

Factorial numbers: A000142, A007489, A022559, A064986, A108731, A115944, A284605, A325508, A325616.

Reciprocal factorial sum: A002966, A051908, A058360, A316854, A316856, A325618, A325621, A325622.

Table[Length[Select[IntegerPartitions[n],IntegerQ[Total[1/(#!)]]&]],{n,30}]

A325622 Number of integer partitions of n whose reciprocal factorial sum is the reciprocal of an integer.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, May 13 2019

nonn

The reciprocal factorial sum of an integer partition (y_1,...,y_k) is 1/y_1! + ... + 1/y_k!.

			The initial terms count the following partitions:
   1: (1)
   2: (2)
   3: (3)
   4: (4)
   4: (2,2)
   5: (5)
   6: (6)
   6: (3,3)
   7: (7)
   8: (8)
   8: (4,4)
   9: (9)
   9: (5,4)
   9: (3,3,3)
  10: (10)
  10: (5,5)
  11: (11)
  11: (4,4,3)
  11: (3,3,3,2)
  12: (12)
  12: (6,6)
  12: (4,4,4)

Factorial numbers: A000142, A007489, A022559, A064986, A108731, A115944, A284605, A325508, A325616.

Reciprocal factorial sum: A002966, A316854, A316857, A325618, A325620, A325623.

f:= proc(n) nops(select(proc(t) local i; (1/add(1/i!,i=t))::integer end proc, combinat:-partition(n))) end proc:
map(f, [$1..70]); # Robert Israel, May 09 2024

Table[Length[Select[IntegerPartitions[n],IntegerQ[1/Total[1/(#!)]]&]],{n,30}]

a(n) = my(c=0); forpart(v=n, if(numerator(sum(i=1, #v, 1/v[i]!))==1, c++)); c; \\ Jinyuan Wang, Feb 25 2025

a(61)-a(70) from Robert Israel, May 09 2024

a(71)-a(80) from Jinyuan Wang, Feb 25 2025

A054115 Triangular array generated by its row sums: T(n,0)=1 for n >= 1, T(n,1)=r(n-1), T(n,k)=T(n,k-1)+r(n-k) for k=2,3,...,n, n >= 2, r(h)=sum of the numbers in row h of T.

Original entry on oeis.org

1, 1, 1, 1, 2, 3, 1, 6, 8, 9, 1, 24, 30, 32, 33, 1, 120, 144, 150, 152, 153, 1, 720, 840, 864, 870, 872, 873, 1, 5040, 5760, 5880, 5904, 5910, 5912, 5913, 1, 40320, 45360, 46080, 46200, 46224, 46230, 46232, 46233, 1, 362880, 403200

Offset: 0

Clark Kimberling

			Rows:
1;
1,1;
1,2,3;
1,6,8,9;
1,24,30,32,33;
1,120,144,150,152,153;

n-th row sum is A000142(n+1) = (n+1)!.

T(n, n)=A007489(n) for n >= 1, T(n+1, 2)=A001048(n)

A057245 Numbers m such that m | Sum_{k=1..m} k!.

Original entry on oeis.org

1, 3, 9, 11, 33, 99

Offset: 1

Robert G. Wilson v, Sep 21 2000

n such that A067462(n) = 0. - T. D. Noe, May 13 2010
For any terms in this sequence, their LCM also belongs to this sequence. Term a(7), if it exists, is prime. - Max Alekseyev, Oct 14 2012
n > 1 is in this sequence iff A049782(n) = 1. - Max Alekseyev, Apr 17 2016
If it exists, a(7) > 12000000. - Bert Dobbelaere, Oct 28 2018
If it exists, a(7) > 1.6*10^8. - Giovanni Resta, Nov 09 2018

Richard K. Guy, Unsolved Problems in Number Theory, Springer, Third Ed., 2004, Section B44.

Cf. A007489, A049782, A064383.

Filtered([1..1500],m->Sum([1..m],k->Factorial(k)) mod m = 0); # Muniru A Asiru, Oct 28 2018

a = 0; b = 1; k = 2; While[k < 250001, c = k*b - (k - 1) a;
If[ Mod[c, k] == 1, Print[k]]; a = b; b = c; k++] (* Robert G. Wilson v, Jun 15 2013 *)

A265350 Numbers whose factorial base representation (A007623) contains at least one of the nonzero digits occurs more than once (although not necessarily in adjacent positions).

Original entry on oeis.org

3, 7, 8, 9, 11, 15, 16, 17, 21, 25, 26, 27, 29, 30, 31, 32, 33, 34, 35, 37, 38, 39, 40, 41, 43, 44, 45, 47, 51, 52, 53, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 69, 70, 71, 75, 79, 80, 81, 83, 87, 88, 89, 90, 91, 92, 93, 94, 95, 99, 103, 104, 105, 107, 111, 112, 113, 117, 121, 122, 123, 125, 126, 127, 128, 129, 130

Offset: 1

Antti Karttunen, Dec 22 2015

Positions of terms larger than ones in A264990.

			For n=7 the factorial base representation (A007623) is "101" as 7 = 3!+1! = 6+1. Digit "1" occurs twice in it, thus 7 is included in this sequence.

Antti Karttunen, Table of n, a(n) for n = 1..10080
Indranil Ghosh, Python program for computing this sequence.
Index entries for sequences related to factorial base representation.

Cf. A007623, A264990.
Cf. A265349 (complement).
Cf. A007489, A046807 (subsequences from 3 onward).

q[n_] := Module[{k = n, m = 2, r, s = {}}, While[{k, r} = QuotientRemainder[k, m]; k != 0|| r != 0, AppendTo[s, r]; m++]; Max[Tally[Select[s, # > 0 &]][[;;,2]]] > 1]; Select[Range[130], q] (* Amiram Eldar, Jan 24 2024 *)

A325623 Heinz numbers of integer partitions whose reciprocal factorial sum is the reciprocal of an integer.

Original entry on oeis.org

1, 2, 3, 5, 7, 9, 11, 13, 17, 19, 23, 25, 29, 31, 37, 41, 43, 47, 49, 53, 59, 61, 67, 71, 73, 77, 79, 83, 89, 97, 101, 103, 107, 109, 113, 121, 125, 127, 131, 137, 139, 149, 151, 157, 163, 167, 169, 173, 179, 181, 191, 193, 197, 199, 211, 221, 223, 227, 229

Offset: 1

Gus Wiseman, May 13 2019

nonn

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).

The reciprocal factorial sum of an integer partition (y_1,...,y_k) is 1/y_1! + ... + 1/y_k!.

			The sequence of terms together with their prime indices begins:
    1: {}
    2: {1}
    3: {2}
    5: {3}
    7: {4}
    9: {2,2}
   11: {5}
   13: {6}
   17: {7}
   19: {8}
   23: {9}
   25: {3,3}
   29: {10}
   31: {11}
   37: {12}
   41: {13}
   43: {14}
   47: {15}
   49: {4,4}
   53: {16}

Factorial numbers: A000142, A007489, A022559, A064986, A108731, A115944, A284605, A325508, A325616.

Reciprocal factorial sum: A002966, A051908, A058360, A316854, A316857, A325619, A325621, A325622.

Select[Range[100],IntegerQ[1/Total[Cases[FactorInteger[#],{p_,k_}:>k/PrimePi[p]!]]]&]

A336498 Irregular triangle read by rows where T(n,k) is the number of divisors of n! with k prime factors, counted with multiplicity.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 1, 1, 2, 2, 2, 1, 1, 3, 4, 4, 3, 1, 1, 3, 5, 6, 6, 5, 3, 1, 1, 4, 8, 11, 12, 11, 8, 4, 1, 1, 4, 8, 11, 12, 12, 12, 12, 11, 8, 4, 1, 1, 4, 8, 12, 16, 19, 20, 20, 19, 16, 12, 8, 4, 1, 1, 4, 9, 15, 21, 26, 29, 30, 30, 29, 26, 21, 15, 9, 4, 1

Offset: 0

Gus Wiseman, Aug 03 2020

Row n is row n! of A146291. Row lengths are A022559(n) + 1.

			Triangle begins:
  1
  1
  1  1
  1  2  1
  1  2  2  2  1
  1  3  4  4  3  1
  1  3  5  6  6  5  3  1
  1  4  8 11 12 11  8  4  1
  1  4  8 11 12 12 12 12 11  8  4  1
  1  4  8 12 16 19 20 20 19 16 12  8  4  1
Row n = 6 counts the following divisors:
  1  2   4   8  16   48  144  720
     3   6  12  24   72  240
     5   9  18  36   80  360
        10  20  40  120
        15  30  60  180
            45  90
Row n = 7 counts the following divisors:
  1  2   4    8   16   48   144   720  5040
     3   6   12   24   72   240  1008
     5   9   18   36   80   336  1680
     7  10   20   40  112   360  2520
        14   28   56  120   504
        15   30   60  168   560
        21   42   84  180   840
        35   45   90  252  1260
             63  126  280
             70  140  420
            105  210  630
                 315

A000720 is column k = 1.
A008302 is the version for superprimorials.
A022559 gives row lengths minus one.
A027423 gives row sums.
A146291 is the generalization to non-factorials.
A336499 is the restriction to divisors in A130091.
A000142 lists factorial numbers.
A336415 counts uniform divisors of n!.
Cf. A000005, A001222, A118914, A124010, A181796, A327526, A336420.
Factorial numbers: A002982, A007489, A048656, A054991, A071626, A325272, A325617, A336414, A336415, A336416, A336418.

Table[Length[Select[Divisors[n!],PrimeOmega[#]==k&]],{n,0,10},{k,0,PrimeOmega[n!]}]

A336616 Maximum divisor of n! with distinct prime multiplicities.

Original entry on oeis.org

1, 1, 2, 3, 24, 40, 720, 1008, 8064, 72576, 3628800, 5702400, 68428800, 80870400, 317011968, 118879488000, 1902071808000, 2487324672000, 44771844096000, 50039119872000, 1000782397440000, 21016430346240000, 5085976143790080000, 6156707963535360000

Offset: 0

Gus Wiseman, Jul 29 2020

nonn

A number's prime signature (row n of A124010) is the sequence of positive exponents in its prime factorization, so a number has distinct prime multiplicities iff all the exponents in its prime signature are distinct.

			The sequence of terms together with their prime signatures begins:
             1: ()
             1: ()
             2: (1)
             3: (1)
            24: (3,1)
            40: (3,1)
           720: (4,2,1)
          1008: (4,2,1)
          8064: (7,2,1)
         72576: (7,4,1)
       3628800: (8,4,2,1)
       5702400: (8,4,2,1)
      68428800: (10,5,2,1)
      80870400: (10,5,2,1)
     317011968: (11,5,2,1)
  118879488000: (11,6,3,2,1)

David A. Corneth, Table of n, a(n) for n = 0..589
Gus Wiseman, Sequences counting and encoding certain classes of multisets

A327498 is the version not restricted to factorials, with quotient A327499.
A336414 counts these divisors.
A336617 is the quotient n!/a(n).
A336618 is the version for equal prime multiplicities.
A130091 lists numbers with distinct prime multiplicities.
A181796 counts divisors with distinct prime multiplicities.
A327526 gives the maximum divisor of n with equal prime multiplicities.
A336415 counts divisors of n! with equal prime multiplicities.
Cf. A000005, A000110, A098859, A118914, A124010, A336424, A336500, A336568.
Factorial numbers: A000142, A007489, A022559, A027423, A048656, A048742, A071626, A325272, A325273, A325617, A336416.

Table[Max@@Select[Divisors[n!],UnsameQ@@Last/@If[#==1,{},FactorInteger[#]]&],{n,0,15}]

a(n) = { if(n < 2, return(1)); my(pr = primes(primepi(n)), res = pr[#pr]); for(i = 1, #pr, pr[i] = [pr[i], val(n, pr[i])] ); forstep(i = #pr, 2, -1, if(pr[i][2] < pr[i-1][2], res*=pr[i-1][1]^pr[i-1][2] ) ); res }
val(n, p) = my(r=0); while(n, r+=n\=p); r \\ David A. Corneth, Aug 25 2020

a(n) = A327498(n!).

A336617 a(n) = n!/d where d = A336616(n) is the maximum divisor of n! with distinct prime multiplicities.

Original entry on oeis.org

1, 1, 1, 2, 1, 3, 1, 5, 5, 5, 1, 7, 7, 77, 275, 11, 11, 143, 143, 2431, 2431, 2431, 221, 4199, 4199, 4199, 39083, 39083, 39083, 898909, 898909, 26068361, 26068361, 215441, 2141737, 2141737, 2141737, 66393847, 1009885357, 7953594143, 7953594143, 294282983291

Offset: 0

Gus Wiseman, Jul 29 2020

nonn

A number's prime signature (row n of A124010) is the sequence of positive exponents in its prime factorization, so a number has distinct prime multiplicities iff all the exponents in its prime signature are distinct.

			The maximum divisor of 13! with distinct prime multiplicities is 80870400, so a(13) = 13!/80870400 = 77.

Jinyuan Wang, Table of n, a(n) for n = 0..1000
Gus Wiseman, Sequences counting and encoding certain classes of multisets

A327499 is the non-factorial generalization, with quotient A327498.
A336414 counts these divisors.
A336616 is the maximum divisor d.
A336619 is the version for equal prime multiplicities.
A130091 lists numbers with distinct prime multiplicities.
A181796 counts divisors with distinct prime multiplicities.
A336415 counts divisors of n! with equal prime multiplicities.
Cf. A000005, A098859, A124010, A336424, A336500, A336568.
Factorial numbers: A000142, A007489, A022559, A027423, A048656, A048742, A071626, A325272, A325273, A325617, A327500, A336416, A336618.

Table[n!/Max@@Select[Divisors[n!],UnsameQ@@Last/@If[#==1,{},FactorInteger[#]]&],{n,0,15}]

a(n) = A327499(n!).

More terms from Jinyuan Wang, Jul 31 2020

A054116 T(n,n-1), array T as in A054115.

Original entry on oeis.org

1, 2, 8, 32, 152, 872, 5912, 46232, 409112, 4037912, 43954712, 522956312, 6749977112, 93928268312, 1401602636312, 22324392524312, 378011820620312, 6780385526348312, 128425485935180312, 2561327494111820312

Offset: 1

Clark Kimberling

nonn

For n>1, equals (-1)^(n+1) * BarnesG(n+2) times the determinant of the n X n matrix whose (i,j)-entry equals (i!-1)/i! if i=j and equals 1 otherwise. - John M. Campbell, Sep 14 2011

Vincenzo Librandi, Table of n, a(n) for n = 1..100

Equals A007489(n)-1.

a[1]:=1; a[2]:=2; for n from 3 to 20 do a[n]:=a[n-1]+factorial(n) end do; # Francesco Daddi, Aug 03 2011

Table[Sum[k!, {k, n}] - 1, {n, 2, 20}] (* Robert G. Wilson v, Nov 12 2004 *)

u1=1;u2=0;z=-1;for(n=3,100,u3=u2+z/n*u1;u1=u2;u2=u3;if(n>0,print1(-(u3)*n!,","))) \\ Benoit Cloitre

Let u(1)=1, u(2)=0 and u(k)=u(k-1)-1/k*u(k-2) then for n>2 a(n-1)=-u(n)*n!. - Benoit Cloitre, Nov 05 2004
a(1)=1 and, for n>=2, a(n) = sum(k=2..n, k!). - Robert G. Wilson v, Nov 12 2004
Conjecture: a(n) - (n+1)*a(n-1) + n*a(n-2) = 0. - R. J. Mathar, Jun 13 2013
G.f.: 1 - 1/(1-x) + W(0)/(1-x), where W(k) = 1 - x*(k+2)/( x*(k+2) - 1/(1 - x*(k+1)/( x*(k+1) - 1/W(k+1) ))); (continued fraction). - Sergei N. Gladkovskii, Aug 25 2013

More terms from Robert G. Wilson v, Nov 12 2004

cp's OEIS Frontend

A325620 Number of integer partitions of n whose reciprocal factorial sum is an integer.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A325622 Number of integer partitions of n whose reciprocal factorial sum is the reciprocal of an integer.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Maple

Mathematica

PARI

Extensions

A054115 Triangular array generated by its row sums: T(n,0)=1 for n >= 1, T(n,1)=r(n-1), T(n,k)=T(n,k-1)+r(n-k) for k=2,3,...,n, n >= 2, r(h)=sum of the numbers in row h of T.

Views

Author

Keywords

Examples

Crossrefs

A057245 Numbers m such that m | Sum_{k=1..m} k!.

Views

Author

Keywords

Comments

References

Crossrefs

Programs

GAP

Mathematica

A265350 Numbers whose factorial base representation (A007623) contains at least one of the nonzero digits occurs more than once (although not necessarily in adjacent positions).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A325623 Heinz numbers of integer partitions whose reciprocal factorial sum is the reciprocal of an integer.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A336498 Irregular triangle read by rows where T(n,k) is the number of divisors of n! with k prime factors, counted with multiplicity.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A336616 Maximum divisor of n! with distinct prime multiplicities.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A336617 a(n) = n!/d where d = A336616(n) is the maximum divisor of n! with distinct prime multiplicities.

Views