A018254 -id:A018254 - cp's OEIS frontend

A161713 a(n) = (-n^5 + 15n^4 - 65n^3 + 125n^2 - 34n + 40)/40.

1, 2, 4, 7, 14, 28, 49, 71, 79, 46, -70, -329, -812, -1624, -2897, -4793, -7507, -11270, -16352, -23065, -31766, -42860, -56803, -74105, -95333, -121114, -152138, -189161, -233008, -284576, -344837, -414841, -495719, -588686, -695044

Offset: 0

Reinhard Zumkeller, Jun 17 2009

{a(k): 0 <= k < 6} = divisors of 28:

a(n) = A027750(A006218(27) + k + 1), 0 <= k < A000005(28).

			Differences of divisors of 28 to compute the coefficients of their interpolating polynomial, see formula:
  1     2     4     7    14    28
     1     2     3     7    14
        1     1     4     7
           0     3     3
              3     0
                -3

Vincenzo Librandi, Table of n, a(n) for n = 0..10000
Reinhard Zumkeller, Enumerations of Divisors
Index entries for linear recurrences with constant coefficients, signature (6,-15,20,-15,6,-1).

Cf. A000124, A000125, A000127, A002522, A005408, A006261, A016813, A018254, A058331, A080856, A086514, A161700, A161701, A161702, A161703, A161704, A161706, A161707, A161708, A161710, A161711, A161712, A161715, A161856.

[(-n^5 + 15*n^4 - 65*n^3 + 125*n^2 - 34*n + 40)/40: n in [0..40]]; // Vincenzo Librandi, Jul 17 2011

Table[(-n^5+15n^4-65n^3+125n^2-34n)/40+1,{n,0,40}] (* or *) LinearRecurrence[{6,-15,20,-15,6,-1},{1,2,4,7,14,28},40] (* Harvey P. Dale, Jan 14 2014 *)

a(n)=(-n^5+15*n^4-65*n^3+125*n^2-34*n+40)/40 \\ Charles R Greathouse IV, Sep 24 2015

def A161713(n): return n*(n*(n*(n*(15 - n) - 65) + 125) - 34)//40 + 1 # Chai Wah Wu, Dec 16 2021

a(n) = C(n,0) + C(n,1) + C(n,2) + 3*C(n,4) - 3*C(n,5).
G.f.: -(-1+4*x-7*x^2+7*x^3-7*x^4+7*x^5)/(-1+x)^6. - R. J. Mathar, Jun 18 2009
a(0)=1, a(1)=2, a(2)=4, a(3)=7, a(4)=14, a(5)=28, a(n)=6*a(n-1)- 15*a(n-2)+ 20*a(n-3)-15*a(n-4)+6*a(n-5)-a(n-6). - Harvey P. Dale, Jan 14 2014

A133028 Even perfect numbers divided by 2.

Original entry on oeis.org

3, 14, 248, 4064, 16775168, 4294934528, 68719345664, 1152921504069976064, 1329227995784915872327346307976921088, 95780971304118053647396689042151819065498660774084608, 6582018229284824168619876730229361455111736159193471558891864064, 7237005577332262213973186563042994240786838745737417944533177174565599576064

Offset: 1

Omar E. Pol, Oct 20 2007, Apr 23 2008, Apr 28 2009

nonn

a(13) has 314 digits and is too large to include. - R. J. Mathar, Oct 23 2007
Largest proper divisor of n-th even perfect number.
Also numbers k such that A000203(k) is divisible 24. - Ctibor O. Zizka, Jun 29 2009

Amiram Eldar, Table of n, a(n) for n = 1..15
Omar E. Pol, Determinacion geometrica de los numeros primos y perfectos.

Cf. A028334, A000396 (perfect numbers).
Cf. A000043, A000668, A000203.
Cf. A018254, A018487, A032742, A133024, A133025, A135652, A135653, A135654, A135655.
Cf. A134708, A135650. - Omar E. Pol, Jul 07 2009

a:=proc(n) if isprime(2^n-1)=true then 2^(n-2)*(2^n-1) else end if end proc: seq(a(n),n=1..120); # Emeric Deutsch, Oct 24 2007

p = Select[2^Range[400] - 1, PrimeQ]; p*(p+1)/4 (* Vladimir Joseph Stephan Orlovsky, Feb 02 2012 *)
Map[2^(#-2) * (2^# - 1) &, MersennePrimeExponent[Range[12]]] (* Amiram Eldar, Oct 21 2024 *)

a(n) = A000396(n)/2. - R. J. Mathar, Oct 23 2007 [Assuming there are no odd perfect numbers. - Jianing Song, Sep 17 2022]
a(n) = 2^(A000043(n) - 2) * A000668(n). - Omar E. Pol, Mar 01 2008
a(n) = A032742(A000396(n)), assuming there are no odd perfect numbers.

More terms from R. J. Mathar and Emeric Deutsch, Oct 23 2007

A135652 Divisors of 28 (the 2nd perfect number), written in base 2.

Original entry on oeis.org

1, 10, 100, 111, 1110, 11100

Offset: 1

Omar E. Pol, Feb 23 2008, Mar 03 2008

The number of divisors of the second perfect number is equal to 2*A000043(2)=A061645(2)=6.

			The structure of divisors of 28 (see A018254)
----------------------------------------------------------------------
n ... Divisor . Formula ....... Divisor written in base 2 ............
----------------------------------------------------------------------
1)......... 1 = 2^0 ........... 1
2)......... 2 = 2^1 ........... 10
3)......... 4 = 2^2 ........... 100 .... (The 2nd superperfect number)
4)......... 7 = 2^3 - 2^0 ..... 111 .... (The 2nd Mersenne prime)
5)........ 14 = 2^4 - 2^1 ..... 1110
6)........ 28 = 2^5 - 2^2 ..... 11100... (The 2nd perfect number)

Index entries for sequences related to divisors of numbers

For more information see A018254 (Divisors of 28). Cf. A000043, A000079, A000396, A000668, A019279, A061645, A061652.

FromDigits[IntegerDigits[#,2]]&/@Divisors[28] (* Harvey P. Dale, Nov 14 2020 *)

apply(n->fromdigits(binary(n)), divisors(28)) \\ Charles R Greathouse IV, Jun 21 2017

a(n)=A018254(n), written in base 2. Also, for n=1 .. 6: If n<=(A000043(2)=3) then a(n) is the concatenation of the digit "1" and n-1 digits "0" else a(n) is the concatenation of A000043(2)=3 digits "1" and (n-1-A000043(2)) digits "0".

A133031 Triangle read by rows: row n lists divisors of n-th perfect number A000396(n).

Original entry on oeis.org

1, 2, 3, 6, 1, 2, 4, 7, 14, 28, 1, 2, 4, 8, 16, 31, 62, 124, 248, 496, 1, 2, 4, 8, 16, 32, 64, 127, 254, 508, 1016, 2032, 4064, 8128, 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, 2048, 4096, 8191, 16382, 32764, 65528, 131056, 262112, 524224, 1048448, 2096896

Offset: 1

Omar E. Pol, Oct 26 2007

Harvey P. Dale, Table of n, a(n) for n = 1..5000
Omar E. Pol, Determinacion geometrica de los numeros primos y perfectos.

Cf. A018254, A018487, A027750. Perfect numbers: A000396.

Divisors[PerfectNumber[Range[5]]]//Flatten (* Harvey P. Dale, Jul 29 2024 *)

A133024 Divisors of 8128, the 4th perfect number.

Original entry on oeis.org

1, 2, 4, 8, 16, 32, 64, 127, 254, 508, 1016, 2032, 4064, 8128

Offset: 1

Omar E. Pol, Oct 26 2007, Mar 03 2008, Dec 27 2008

127 is the 4th Mersenne prime: A000668.
The number of divisors of the 4th perfect number is 2*A000043(4)=A061645(4)=14.
For the structure of this sequence and its binary expansion, see A135654.

Cf. A018254, A018487. Perfect numbers: A000396.

Cf. A000079, A000668, A061645, A133033, A135654.

Divisors[8128] (* Harvey P. Dale, Jul 30 2023 *)

divisors(8128) \\ Charles R Greathouse IV, Jun 21 2017

For n=1..7 : a(n) = 2^(n-1). For n=8..14: a(n) = 2^(n-1) - 2^(n-8) = A000668(4)*2^(n-8).

A133025 Divisors of 33550336, the 5th perfect number.

Original entry on oeis.org

1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, 2048, 4096, 8191, 16382, 32764, 65528, 131056, 262112, 524224, 1048448, 2096896, 4193792, 8387584, 16775168, 33550336

Offset: 1

Omar E. Pol, Oct 26 2007, Mar 03 2008, Dec 27 2008

8191 is the 5th Mersenne prime: A000668.
The number of divisors of the 5th perfect number is 2*A000043(5)=A061645(5)=26.
For the structure of this sequence and its binary expansion, see A135655.

Cf. A018254, A018487. Perfect numbers: A000396.

Cf. A000043, A000079, A000668, A061645, A133033, A135655.

Divisors[33550336] (* Harvey P. Dale, Jan 24 2015 *)

divisors(33550336) \\ Charles R Greathouse IV, Jun 21 2017

For n=1..13 : a(n) = 2^(n-1). For n=14..26: a(n) = 2^(n-1) - 2^(n-14) = A000668(5)*2^(n-14).

A139247 Triangle read by rows: row n lists the divisors of n-th perfect number A000396(n) that are multiples of n-th Mersenne prime A000668(n).

Original entry on oeis.org

3, 6, 7, 14, 28, 31, 62, 124, 248, 496, 127, 254, 508, 1016, 2032, 4064, 8128, 8191, 16382, 32764, 65528, 131056, 262112, 524224, 1048448, 2096896, 4193792, 8387584, 16775168, 33550336, 131071, 262142, 524284, 1048568, 2097136, 4193792

Offset: 1

Omar E. Pol, Apr 22 2008

Also, row n list the divisors of n-th perfect number that are not powers of 2.

First term of row n is the n-th Mersenne prime A000668(n). Last term of row n is the n-th perfect number A000396(n). Row n has A000043(n) terms. The sum of row n is equal to A133049(n), the square of n-th Mersenne prime A000668(n).

			Triangle begins:
  3, 6,
  7, 14, 28
  31, 62, 124, 248, 496
  127, 254, 508, 1016, 2032, 4064, 8128
  ...
==========================================================
Row .... First term ..... Last term ....... Row sum ......
n ..... (A000668(n)) ... (A000396(n)) ... (A000668(n)^2) .
==========================================================
1 ............ 3 .............. 6 ......... 3^2 = 9
2 ............ 7 ............. 28 ......... 7^2 = 49
3 ........... 31 ............ 496 ........ 31^2 = 961
4 .......... 127 ........... 8128 ....... 127^2 = 16129
5 ......... 8191 ....... 33550336 ...... 8191^2 = 67092481

Omar E. Pol, Determinacion geometrica de los numeros primos y perfectos.

Cf. A000043, A000396, A000668, A018254, A018487, A133024, A133025, A133031, A133049, A135652, A135653, A135654, A135655.

A241031 Sum of n-th powers of divisors of 28.

Original entry on oeis.org

6, 56, 1050, 25112, 655746, 17766056, 489541650, 13599182072, 379283617986, 10599157616456, 296486304875250, 8297561014164632, 232274972859656226, 6502905234227329256, 182070232515259616850, 5097810928082584052792

Offset: 0

Vincenzo Librandi, Apr 17 2014

Vincenzo Librandi, Table of n, a(n) for n = 0..200
Index entries for linear recurrences with constant coefficients, signature (56,-1043,8240,-29204,43904,-21952).

Cf. A018254 (divisors of 28).

Cf. similar sequence listed in A241029.

Magma
```
[DivisorSigma(n, 28): n in [0..20]];
```
Magma
```
[(4^n+2^n+1)*(7^n+1): n in [0..20]];
```

Total[#^Range[0, 20] & /@ Divisors[28]] (* or *) Table[(4^n + 2^n + 1) (7^n + 1), {n, 0, 20}]

G.f.: 2*(3 - 140*x + 2086*x^2 - 12360*x^3 + 29204*x^4 - 21952*x^5)/((1 - x)*(1 - 2*x)*(1 - 4*x)*(1 - 7*x)*(1 - 14*x)*(1 - 28*x)).

a(n) = (4^n + 2^n + 1)*(7^n + 1).

A139246 Triangle read by rows: row n lists the proper divisors of n-th perfect number A000396(n).

Original entry on oeis.org

1, 2, 3, 1, 2, 4, 7, 14, 1, 2, 4, 8, 16, 31, 62, 124, 248, 1, 2, 4, 8, 16, 32, 64, 127, 254, 508, 1016, 2032, 4064, 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, 2048, 4096, 8191, 16382, 32764, 65528, 131056, 262112, 524224, 1048448, 2096896, 4193792, 8387584, 16775168, 1

Offset: 1

Omar E. Pol, Apr 22 2008, corrected Apr 25 2008

Rows n has A133033(n) terms.

The n-th row sum is the n-th perfect number A000396(n).

			Triangle begins:
  1, 2, 3
  1, 2, 4, 7, 14
  1, 2, 4, 8, 16, 31, 62, 124, 248
  1, 2, 4, 8, 16, 32, 64, 127, 254, 508, 1016, 2032, 4064
  ...

Omar E. Pol, Determinacion geometrica de los numeros primos y perfectos.

Cf. A000396, A018254, A018487, A133024, A133025, A133031, A133033, A135652, A135653, A135654, A135655, A139247.

Table[Most[Divisors[PerfectNumber[n]]],{n,6}]//Flatten (* Harvey P. Dale, Jul 08 2024 *)

A139248 Triangle read by rows: row n lists the proper divisors of n-th even superperfect number A061652(n).

Original entry on oeis.org

1, 1, 2, 1, 2, 4, 8, 1, 2, 4, 8, 16, 32, 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, 2048, 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, 2048, 4096, 8192, 16384, 32768, 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, 2048, 4096, 8192, 16384, 32768, 65536, 131072, 1, 2, 4, 8, 16

Offset: 1

Omar E. Pol, Apr 22 2008

Also, row n list the proper divisors of n-th superperfect number A019279(n), if there are no odd superperfect numbers.

Row n has A000043(n) - 1 = A090748(n) terms.

			Triangle begins:
  1
  1, 2
  1, 2, 4, 8
  1, 2, 4, 8, 16, 32
  1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, 2048
  1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, 2048, 4096, 8192, 16384, 32768
  ...

Omar E. Pol, Determinacion geometrica de los numeros primos y perfectos.

Cf. A000043, A000668, A018254, A018487, A019279, A061652, A090748, A133024, A133025, A133031, A133049, A135652, A135653, A135654, A135655, A139246.

cp's OEIS Frontend

A161713 a(n) = (-n^5 + 15*n^4 - 65*n^3 + 125*n^2 - 34*n + 40)/40.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Python

Formula

A133028 Even perfect numbers divided by 2.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

Formula

Extensions

A135652 Divisors of 28 (the 2nd perfect number), written in base 2.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A133031 Triangle read by rows: row n lists divisors of n-th perfect number A000396(n).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

A133024 Divisors of 8128, the 4th perfect number.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A133025 Divisors of 33550336, the 5th perfect number.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A139247 Triangle read by rows: row n lists the divisors of n-th perfect number A000396(n) that are multiples of n-th Mersenne prime A000668(n).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

A241031 Sum of n-th powers of divisors of 28.

Views

Author

A161713 a(n) = (-n^5 + 15n^4 - 65n^3 + 125n^2 - 34n + 40)/40.