|
|
A176134
|
|
Primes p of the form |prime(n+2)^2-prime(n+1)^2-prime(n)^2|, (absolute values).
|
|
4
|
|
|
47, 97, 409, 433, 1201, 1321, 1249, 2713, 3169, 4201, 4129, 5209, 7129, 9001, 10177, 8521, 15889, 20353, 29209, 36457, 33889, 48817, 49681, 52201, 69073, 71209, 93001, 94201, 88897, 117529, 118801, 140401, 165601, 203017, 210361, 225529, 229249
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
11^2-7^2-5^2=47, 19^2-17^2-13^2=abs(97),...
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Table[Abs[Prime[n+2]^2-Prime[n+1]^2-Prime[n]^2], {n, 6!}], PrimeQ[ # ]&]
Select[Abs[#[[3]]-#[[2]]-#[[1]]]&/@(Partition[Prime[Range[100]], 3, 1]^2), PrimeQ] (* Harvey P. Dale, Jun 24 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|