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.

A121618 Nexus primes of order 7 or primes of form n^7 - (n-1)^7 = A022523(n-1).

This page as a plain text file.
%I A121618 #10 Mar 27 2025 16:51:25
%S A121618 127,14197,543607,1273609,2685817,5217031,16344637,141903217,
%T A121618 1928294551,8258704609,14024867221,22815424087,30914273881,
%U A121618 91154730577,116160677851,183510024391,280667317267,552932810431,1517045588059
%N A121618 Nexus primes of order 7 or primes of form n^7 - (n-1)^7 = A022523(n-1).
%C A121618 Indices n such that Nexus number of 7 order (or A022523(n-1) = n^7 - (n-1)^7) is prime are listed in A121619(n) = {2,4,7,8,9,10,12,17,26, 33,36,39,41,49,51,55,59,66,78,79,80,88,96,98,...}. a(1) = 127 is Mersenne prime A000668(4).
%H A121618 Vladimir Pletser, <a href="/A121618/b121618.txt">Table of n, a(n) for n = 1..1000</a>
%t A121618 Select[Table[n^7 - (n-1)^7, {n,1,200}],PrimeQ]
%t A121618 Select[Differences[Range[100]^7],PrimeQ] (* _Harvey P. Dale_, Mar 27 2025 *)
%o A121618 (PARI) select(isprime,vector(1000,n,n^7-(n-1)^7)) \\ _Charles R Greathouse IV_, May 15 2013
%Y A121618 Cf. A022523, A000040, A000043, A000668, A002407, A121616, A121618, A121619, A121620.
%K A121618 nonn,easy
%O A121618 1,1
%A A121618 _Alexander Adamchuk_, Aug 10 2006