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.

A221979 Partial sums of primes of the form (n+1)^7 - n^7.

Original entry on oeis.org

127, 14324, 557931, 1831540, 4517357, 9734388, 26079025, 167982242, 2096276793, 10354981402, 24379848623, 47195272710, 78109546591, 169264277168, 285424955019, 468934979410, 749602296677, 1302535107108, 2819580695167, 4457920826414
Offset: 1

Views

Author

Vladimir Pletser, Feb 02 2013

Keywords

Comments

Partial sums of primes equal to the difference of two consecutive seventh powers (x+1)^7 - x^7 = 7x(x+1)(x^2+x+1)^2+1 (A121618). Values of x = A121619 - 1. Number of primes equal (x+1)^7 - x^7 < 10^(n) in A221977. Partial sums of number of primes of the form (x+1)^7 - x^7 have similar characteristics to similar sequences for natural primes (A007504), cuban primes (A221793) and primes of the form (x+1)^5 - x^5 (A221848).

Programs

  • Mathematica
    Accumulate[Select[Differences[Range[80]^7],PrimeQ]] (* Harvey P. Dale, Jul 09 2024 *)

A221983 Number of primes of the form (x+1)^11 - x^11 less than 10^n.

Original entry on oeis.org

1, 2, 3, 3, 4, 4, 4, 4, 5, 6, 6, 8, 9, 9, 9, 12, 15, 18, 24, 30, 35, 41, 46, 66, 83, 104, 133, 166, 195, 247, 314, 400, 475, 589, 709, 855, 1046, 1313, 1604, 1998, 2468, 3029, 3681, 4518, 5581, 6920, 8629, 10647, 13122, 16214, 19894, 24644, 30569, 37864, 46927
Offset: 9

Views

Author

Vladimir Pletser, Feb 02 2013

Keywords

Comments

Number of primes less than 10^n and equal to the difference of two consecutive eleventh powers (x+1)^11 - x^11 = 11x(x+1)(x^2+x+1)( x(x+1)(x^2+x+1)(x^2+x+3)+1) + 1 (A189055). Values of x = A211184. Sequence of number of primes less than 10^n and of the form (x+1)^11 - x^11 have similar characteristics to similar sequences for natural primes (A006880), cuban primes (A113478) and primes of the form (x+1)^p - x^p for p = 5 (A221846) and p = 7 (A221977).

Programs

  • Mathematica
    nn = 40; t = Table[0, {nn}]; n = 0; While[n++; p = (n + 1)^11 - n^11; p < 10^nn, If[PrimeQ[p], m = Ceiling[Log[10, p]]; t[[m]]++]]; Accumulate[t] (* T. D. Noe, Feb 04 2013 *)
Showing 1-2 of 2 results.