%I #6 Jun 08 2022 18:43:05
%S 3251,5380811,21435859,3559590211,43950269291,1197301738651,
%T 4978825201387,7555858447451,44733963701131,108285670562779,
%U 302711489293211,912484779174091,2585353346765411,4300509998893139
%N Primes of form p = (n^1)-1+(n^2)-2+(n^3)-3+(n^4)-4+(n^5)-5+(n^6)-6+(n^7)-7.
%H Harvey P. Dale, <a href="/A144936/b144936.txt">Table of n, a(n) for n = 1..1000</a>
%t lst={};Do[p=(n^1)-1+(n^2)-2+(n^3)-3+(n^4)-4+(n^5)-5+(n^6)-6+(n^7)-7;If[PrimeQ[p],AppendTo[lst,p]],{n,6!}];lst
%t Select[Table[Total[n^Range[7]]-28,{n,200}],PrimeQ] (* _Harvey P. Dale_, Jun 08 2022 *)
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Sep 25 2008
|