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-2 of 2 results.

A123650 a(n) = 1 + n^2 + n^3 + n^5.

Original entry on oeis.org

4, 45, 280, 1105, 3276, 8029, 17200, 33345, 59860, 101101, 162504, 250705, 373660, 540765, 762976, 1052929, 1425060, 1895725, 2483320, 3208401, 4093804, 5164765, 6449040, 7977025, 9781876, 11899629, 14369320, 17233105, 20536380, 24327901
Offset: 1

Views

Author

Jonathan Vos Post, Oct 04 2006

Keywords

Comments

3rd row, A(3,n), of the infinite array A(k,n) = 1 + Sum_{i=1..k} n^prime(i). If we deem prime(0) = 1, the array is A(k,n) = Sum_{i=0..k} n^prime(i). The first row is A002522 = 1 + n^2. The second row is A098547 = 1 + n^2 + n^3. The 4th row, A(4,n), is A123111 1 + n^2 + n^3 + n^5 + n^7. 10101101 (base n). A(n,n) is A123113 Main diagonal of prime power sum array. The current sequence, A(3,n), can never be prime because of the polynomial factorization a(n) = 1 + n^2 + n^3 + n^5 = +/- (n+1)*(n^2-n+1)*(n^2+1). Its fewest prime factors are 2 for the semiprime a(1) = 4. We similarly have polynomial factorizations for A123651 = A(7,n) = 1+n^2+n^3+n^5+n^7+n^11+n^13+n^17 and A123652 = A(13,n) = 1+n^2+n^3+n^5+...+n^41.

Crossrefs

Programs

  • Magma
    [1+n^2+n^3+n^5: n in [1..25]]; // G. C. Greubel, Oct 17 2017
  • Mathematica
    Table[1+n^2+n^3+n^5,{n,30}] (* or *) LinearRecurrence[{6,-15,20,-15,6,-1},{4,45,280,1105,3276,8029},30] (* Harvey P. Dale, Jan 18 2014 *)
  • PARI
    for(n=1,25, print1(1+n^2+n^3+n^5, ", ")) \\ G. C. Greubel, Oct 17 2017
    

Formula

a(n) = 1 + n^2 + n^3 + n^5 = 101101 (base n) = +/- (n+1)*(n^2-n+1)*(n^2+1).
G.f.: x*(4 +21*x +70*x^2 +20*x^3 +6*x^4 -x^5)/(1-x)^6. - Colin Barker, May 25 2012

A123652 a(n) = 1 + n^2 + n^3 + n^5 + n^7 + n^11 + n^13 + n^17 + n^19 + n^23 + n^29 + n^31 + n^37 + n^41.

Original entry on oeis.org

14, 2339155617965, 36923966682271786990, 4854597644377050732053585, 45547499507677574921923909526, 80266855145143309588022024772829, 44586202603279528645530450127574150
Offset: 1

Views

Author

Jonathan Vos Post, Oct 04 2006

Keywords

Comments

13th row, A(13,n), of the infinite array A(k,n) = 1 + Sum_{i=1..k} n^prime(i). If we deem prime(0) = 1, the array is A(k,n) = Sum_{i=0..k} n^prime(i). The first row is A002522 = 1 + n^2. The second row is A098547 = 1 + n^2 + n^3. The 3rd row, A(3,n), is A123650. The 4th row, A(4,n), is A123111 1 +n^2 +n^3 +n^5 +n^7. 10101101 (base n). A(n,n) is A123113 Main diagonal of prime power sum array. The sequence A(13,n) = a(n) can never be prime because of the polynomial factorization. It can be semiprime, as with a(1) = 14 and a(2) = 2339155617965 = 5 * 467831123593 and a(6) and 100010000010100000100010100010100010101101 = 101 * 990198019901980199010000990199010001001. We similarly have polynomial factorization for the 7th row, A123651 = A(7,n) = 1 + n^2 + n^3 + n^5 + n^7 + n^11 + n^13 + n^17 = +/- (n^2+1)*(n^15-n^13+2n^11-n^9+n^7+n^3+1).

Crossrefs

Programs

  • Magma
    [1 + n^2 + n^3 + n^5 + n^7 + n^11 + n^13 + n^17 + n^19 + n^23 + n^29 + n^31 + n^37 + n^41: n in [1..25]]; // G. C. Greubel, Oct 17 2017
  • Mathematica
    Table[1+Total[n^Prime[Range[PrimePi[41]]]],{n,8}] (* Harvey P. Dale, Dec 20 2010 *)
  • PARI
    for(n=1,25, print1(1 + n^2 + n^3 + n^5 + n^7 + n^11 + n^13 + n^17 + n^19 + n^23 + n^29 + n^31 + n^37 + n^41, ", ")) \\ G. C. Greubel, Oct 17 2017
    

Formula

a(n) = 1+n^2+n^3+n^5+n^7+n^11+n^13+n^17+n^19+n^23+n^29+n^31+n^37+n^41 = 100010000010100000100010100010100010101101(base n) = +/-(n^2+1)*(n^39-n^37+2n^35-2n^33+2n^31-n^29+2n^27-2n^25+2n^23-n^21+n^19+n^15-n^13+2n^11-n^9+n^7+n^3+1).
Showing 1-2 of 2 results.