A155022 Values of n such that n^a-+a are primes, a=7.

0, 66, 516, 3450, 7200, 8850, 12480, 16500, 18234, 18534, 19440, 21246, 26466, 28596, 39036, 41634, 43500, 43710, 54186, 54876, 59316, 68886, 77184, 81540, 82134, 88044, 89064, 95796, 97530, 98610, 108294, 111864, 113160, 120534, 120696

Offset

1,2

Links

Table of n, a(n) for n=1..35.

Mathematica

a={}; Do[m=n^7; If[PrimeQ[m-7]&&PrimeQ[m+7], AppendTo[a, n]], {n, 0, 9!}]; a
Select[Range[0, 130000], And@@PrimeQ[#^7+{7, -7}]&] (* Harvey P. Dale, Aug 26 2013 *)

Crossrefs

Cf. A108701, A143904, A155021

Sequence in context: A084027 A063249 A106212 * A202639 A175260 A233065

Adjacent sequences: A155019 A155020 A155021 * A155023 A155024 A155025

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Jan 19 2009

Status

approved