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.
%I A121619 #14 Mar 19 2017 17:52:58
%S A121619 2,4,7,8,9,10,12,17,26,33,36,39,41,49,51,55,59,66,78,79,80,88,96,98,
%T A121619 104,113,118,120,123,135,136,142,146,156,157,160,162,173,176,194,210,
%U A121619 219,220,221,222,224,232,234,247,281,291,297,298,305
%N A121619 Indices n such that Nexus numbers of order 7 (A022523(n-1) = n^7 - (n-1)^7) are primes.
%C A121619 Corresponding Nexus primes of order 7 (or primes of form A022523(n-1) = n^7 - (n-1)^7) are listed in A121618[n] = {127, 14197, 543607, 1273609, 2685817, 5217031, 16344637, 141903217,...}.
%H A121619 Vladimir Pletser, <a href="/A121619/b121619.txt">Table of n, a(n) for n = 1..1000</a>
%t A121619 t = {}; Do[np7 = n^7 - (n - 1)^7; If[PrimeQ[np7], AppendTo[t, n]], {n, 305}]; t (* _Carl R. White_, Feb 28 2008 *)
%t A121619 Flatten[Position[Partition[Range[400]^7,2,1],_?(PrimeQ[#[[2]]- #[[1]]]&), {1}, Heads->False]]+1 (* or *) Select[Range[400],PrimeQ[#^7-(#-1)^7]&] (* _Harvey P. Dale_, Mar 19 2017 *)
%Y A121619 Cf. A022523, A121619, A121618, A121616, A121620.
%K A121619 nonn
%O A121619 1,1
%A A121619 _Alexander Adamchuk_, Aug 10 2006
%E A121619 More terms from _Carl R. White_, Feb 28 2008