|
|
A140121
|
|
Primes of the form prime(x)*prime(x+1) + (prime(x+1)-prime(x)).
|
|
0
|
|
|
7, 17, 37, 673, 1153, 4093, 7393, 8641, 22501, 32401, 57601, 64513, 70753, 72901, 126733, 136897, 176401, 190093, 205201, 256033, 313597, 324901, 329473, 348097, 430333, 497017, 541693, 585217, 715681, 891133, 974161, 988033, 1238761, 1267873, 1416097, 1432801, 1664101, 1674433, 1742401, 1932037, 2005021, 2146201, 2238013, 2265001, 2480617, 2637373
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
2*3+(3-2) = 2*3+1 = 7, 23*29+(29-23) = 23*29+6 = 673.
|
|
MATHEMATICA
|
a = {}; Do[p1 = Prime[n]; p2 = Prime[n + 1]; p = p1*p2 + (p2 - p1); p3 = p2 - p1; If[PrimeQ[p], AppendTo[a, p]], {n, 10^2}]; a
(* Alternate: *) Select[(#[[1]] #[[2]]+#[[2]]-#[[1]])&/@Partition[ Prime[Range[300]], 2, 1], PrimeQ] (* Harvey P. Dale, Dec 03 2010 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|