|
|
A140433
|
|
Primes of the form n^0+(n+1)^1+(n+2)^2+(n+3)^3+(n+4)^4.
|
|
0
|
|
|
701, 2647, 4481, 7129, 15731, 53551, 110161, 405001, 473201, 549667, 1079297, 1541051, 1922077, 6892651, 8654689, 10734697, 13168801, 15995071, 30380849, 33789601, 55322081, 72401057, 85800961, 113622391, 147716801, 238297249
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
n=1->701, n=3->247, n=4->4481, n=5->7129, n=7->15731, n=11->53551,...
(1+0)^0+(1+1)^1+(1+2)^2+(1+3)^3+(1+4)^4=1+2+9+64+625=701
|
|
MATHEMATICA
|
lst={}; Do[p=n^0+(n+1)^1+(n+2)^2+(n+3)^3+(n+4)^4; If[PrimeQ[p], AppendTo[lst, p]], {n, 2*5!}]; lst
Select[1+#[[1]]+#[[2]]^2+#[[3]]^3+#[[4]]^4&/@Partition[ Range[ 200], 5, 1], PrimeQ] (* Harvey P. Dale, Jan 11 2019 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|